向珠江品茶老师求援

牛先生　发表于：2010-08-22 19:49:29 　

你指导我做的那种在当前窗体下，可增加新的品种，不必关闭当前窗体就可以显示增加的新品种的功能挺好用的，我将这个办法用到了几个进料单中，但是，有的进料单当增加新品种后，不能立刻显示，其中辅料进料单，当增加了新品种后，不能关闭，请你给看看是哪里出的问题，该如何解决。谢了

点击下载此附件

Top

煮江品茶发表于：2010-08-23 09:36:30

点击下载此附件

Top

zhy6271 发表于：2010-08-23 09:38:58

煮江老师。。帮我也回复下吧。。

在查询版~http://www.accessoft.com/bbs/showtopic.asp?ID=9762&BoardID=4

Top

牛先生发表于：2010-08-23 13:29:11

谢谢您，能告诉我问题出在那么？我查看了一下，没有发现你在哪里改动了。原来为何提示找不到“成本核算扩展”呢

Top

煮江品茶发表于：2010-08-23 14:47:00

1、传递的子窗体名称不是“成本核算扩展”，打开的语句改为：

Private Sub 增加原料品种_Click()
DoCmd.OpenForm "原料品种表", , , , acFormAdd, , Me.Form.Name & ";" & "扩展进料单辅料;原料品种"
End Sub

2、为防止窗体未及时刷新，在关闭窗体代码中加入刷新语句如下：

Private Sub 关闭_Click()
Dim A
Me.Requery
If Len(Me.OpenArgs) > 0 Then
A = Split(Me.OpenArgs, ";")
Forms(A(0)).Controls(A(1)).Form.Controls(A(2)).Requery
End If
DoCmd.Close
End Sub

Top

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

Access交流中心

向珠江品茶老师求援