|
您需要建立“关系”,选择“级联更新”选项即可。(菜单:工具--关系.......)
但我不知道您两表之间的关系是如何对应的,因此无法帮您做进一步的指导。
另外建议您将:
If IsNull(Me![编号]) = True Then
MsgBox "请输入编号,它不可以为空!", vbOKOnly, "输入编号"
Me![编号].SetFocus
ElseIf IsNull(Me![工号]) = True Then
MsgBox "请输入工号,它不可以为空!", vbOKOnly, "输入工号"
Me![工号].SetFocus
ElseIf IsNull(Me![合同号]) = True Then
MsgBox "请输入合同号,它不可以为空!", vbOKOnly, "输入合同号"
Me![合同号].SetFocus
ElseIf IsNull(Me![产出期]) = True Then
MsgBox "请输入产出期,它不可以为空!", vbOKOnly, "输入产出期"
Me![产出期].SetFocus
ElseIf IsNull(Me![订购单位]) = True Then
MsgBox "请输入订购单位,它不可以为空!", vbOKOnly, "输入订购单位"
Me![订购单位].SetFocus
ElseIf IsNull(Me![图纸名称]) = True Then
MsgBox "请输入图纸名称,它不可以为空!", vbOKOnly, "输入图纸名称"
Me![图纸名称].SetFocus
ElseIf IsNull(Me![计划完成日期]) = True Then
MsgBox "请输入计划完成日期,它不可以为空!", vbOKOnly, "输入计划完成日期"
Me![计划完成日期].SetFocus
ElseIf IsNull(Me![分图日期]) = True Then
MsgBox "请输入分图日期,它不可以为空!", vbOKOnly, "输入分图日期"
Me![分图日期].SetFocus
更改为:检验完所有的错误,一次性提示。
这样减少 记录存在多个错误却要来来回回的改的问题。 |
|