[求助]如何在添加记录时将该字段的行来源字段同时更新

guzai

我做一个病历管理输入数据库，并去word套打

目前其他功能基本实现

但是有1个新问题

例如：我的主表下有一个字段为入院诊断，我通过组合框 选择了子表“入院诊断”

这样我在输入的时候直接有子表下的数据如”脑梗塞、脑出血“等可以选择，省了不少力气

但是有什么办法当我在输入记录到主表的时候，碰到关联的子表内没有的疾病名的情况下，让新的疾病名自动添加到子表”入院诊断“里面呢？

万分感谢

[此贴子已经被作者于2004-10-17 22:25:02编辑过]

wanshan

不知道你说无法的保存具体是什么意思！如果是保存时提示错误，把库传上来！如果是保存后无法在列表里显示，是因为来源不同，你添加的是在表1，而列表来源是在表2，怎么可能列出来呢？

guzai

这样的话例子：一个数据库内有一个表  “信息”里面字段为：姓名，年龄，性别如果在窗口设计里“年龄”选组合框，来源于“信息”中的年龄，用了年龄.requery，用保存命令的话是可以实现添加原来年龄字段里没有的值但如果我在“信息”表内的“年龄”字段的设计里引用了数据库下第二个表“年龄”，行来源于第二个表的年龄字段的话我添加 年龄.requery却无法保存了是不是 要加点其他语句呢？

guzai

原来是在DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70下面加一句字段名.requery

guzai

哦，搞懂了，呵呵，谢谢了可惜我的病历输入都做好了，好不容易排好的版，又费了

guzai

可自动生成的窗体里的框都是文本框，不是组合框我看你在表1里没有设置为组合框那么请问你怎么把文本框改成组合框的？

guzai

Option Compare Database

Private Sub Command6_Click()

    DoCmd.GoToRecord , , acNewRec

End Sub

Private Sub Command7_Click()

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    病名.Requery

End SubPrivate Sub 病名_BeforeUpdate(Cancel As Integer)End Sub

是不是这样的显示？有个beforeupdate

wanshan

这个是用向导生成的保存代码，最主要的是当中比较长的一句。其它的是用来生成提示的（可以自定义提示，把“MsgBox Err.Description”替换成“MsgBox "自定义提示内容"”），都可以去掉，不影响功能！具体步骤：1.新建一个窗体；2.打开工具箱；3.点击“命令按钮”；4.在窗体相应位置单击，会弹出向导对话框（如果不弹出，必须点一下工具箱上面的“控件向导”按钮）；5.选择相应的命令即可生成相应的代码。

guzai

以下是引用wewyhy在2004-10-18 20:06:35的发言：





在窗体里







单击事件中：



Private Sub 名字_Click()

On Error GoTo Err_名字_Click





   DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70



Exit_名字_Click:

    Exit Sub



Err_名字_Click:

    MsgBox Err.Description

    Resume Exit_名字_Click



End Sub

楼上的大哥，上面的大概什么意思？

能不能具体解释下步骤？

我不懂编程啊

能麻烦举个例子让我照搬么？呵呵

wanshan

不知道是不是你要的效果！