点按钮打开一新窗体，再在新窗体上新建数据，如何实现两步指令？

太溪　发表于：2010-01-31 17:05:33 　

我点击A窗体上的“新建”按钮，以打开"frmGcGCDsys"的新窗体。
---------------------------------

Private Sub Cmd新建_Click()
On Error GoTo Err_Cmd新建_Click

Dim stDocName As String
Dim stLinkCriteria As String

    stDocName = "frmGcGCDsys"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    'goto Forms.frmGcGCDsys.Cmd新建.Click

'Call Forms.frmGcGCDsys.Cmd新建.Click

Exit_Cmd新建_Click:
Exit Sub

Err_Cmd新建_Click:
    MsgBox Err.Description
    Resume Exit_Cmd新建_Click

End Sub

-------------------------------------

打开"frmGcGCDsys"的新窗体后，在"frmGcGCDsys"的新窗体上也有一个“新建”按钮，手动点击后，才是真正的在"frmGcGCDsys"的新窗体上新建数据：

---------------------------------

Private Sub Cmd新建_Click()
On Error GoTo Err_Cmd新建_Click

DoCmd.GoToRecord , , acNewRec

Exit_Cmd新建_Click:
Exit Sub

Err_Cmd新建_Click:
    MsgBox Err.Description
    Resume Exit_Cmd新建_Click

End Sub

------------------------------

请问：如何直接点击A窗体的“新建”按钮，来自动完成：

打开"frmGcGCDsys"的新窗体，并再自动在"frmGcGCDsys"的新窗体上新建一条数据，这两个动作呢？

在A窗体模块中使用CALL吗？试过好像不行。

请问使用CALL后是在A窗体中执行新增数据，还是在"frmGcGCDsys"的新窗体中新增数据呢？

我是新手，请大家多多指教。

Kevin 发表于：2010-01-31 21:42:36

A窗体调用B窗体的sub子程序

方法是这样的：

1.将B窗体要被调用的sub子程序写成public，比如

public sub openxx()

.....

end sub

2.然后从A窗体中调用，比如

private sub openxx_click()

form_B窗体.openxx()

end sub

太溪发表于：2010-02-01 00:15:28

谢谢，成功了！

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

Access交流中心