请问老师，这个代码如何修改？

半夜罗　发表于：2014-11-23 16:01:01 　

请问老师，这个代码如何修改？

销售单内，有一子窗体，想通过双击子窗体中的物料代码打开“物料选择窗体”，再双击“物料选择窗体”中物料代码，使其自动录入在销售单子窗体中的“物料代码”字段。出现的问题是：单独打开子窗体（不是打开销售单），能实现。打开销售单就出现“找不到销售单子窗体”的提示。代码如下，不知如何修改。谢谢各位老师！！！！！

Private Sub 物料代码_DblClick(Cancel As Integer)
Forms("销售单子窗体").物料代码 = Me.物料代码
Forms("销售单子窗体").品名 = Me.品名
Forms("销售单子窗体").规格 = Me.规格
Forms("销售单子窗体").单位 = Me.单位
DoCmd.Close
End Sub点击下载此附件

Top

煮江品茶发表于：2014-11-23 18:46:47

提示的很清楚嘛，当前没有打开的“销售单子窗体”。

forms("销售单").controls("销售单子窗体").物料代码.value=me.物料代码.value

.....

Top

半夜罗发表于：2014-11-23 19:44:04

谢谢老师！虽然您提供的代码还是没有解决问题，但经您提供的代码，我作了一些小的改动，问题已解决。代码如下：

'判断销售单是否打开
If CurrentProject.AllForms("销售单").IsLoaded = True Then '判断销售单是否打开

'如果销售单窗体打开
Forms!销售单!销售单子窗体.Form!物料代码 = Me.物料代码
Forms!销售单!销售单子窗体.Form!品名 = Me.品名
Forms!销售单!销售单子窗体.Form!规格 = Me.规格
Forms!销售单!销售单子窗体.Form!单位 = Me.单位
End If
DoCmd.Close '关闭本窗体

通过与原代码对比，原来是引用窗体控件的代码书写错误。正确的引用格式为：

Forms!主窗体名!子窗体名.Form!字段名

窗体与字段间一定是 "." 而不是 "!"

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

请问老师，这个代码如何修改？