请教如何在access中的代码生成器生成两个动作

aeonsun

比如说，我只用一个按钮，但要实现两个动作，第一个动作将输入的数据提交到数据库，第二个动作对数据库进行查询，生成一个预览的报表
我不知道在它的代码中支持方法的嵌套吗？如何生成，谢谢

(分成两个按钮可以实现)

Private Sub yulan_Click()
    On Error GoTo Err_yulan_Click
    Dim stDocName As String

    stDocName = "时间查询"
    DoCmd.OpenReport stDocName, acPreview

Exit_yulan_Click:
    Exit Sub

Err_yulan_Click:
    MsgBox Err.Description
    Resume Exit_yulan_Click
   
End Sub

Private Sub com_Click()
        On Error GoTo Err_com_Click


        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


就是要一个按钮实现以上两个功能，谢谢，请教如何作？

sea.er

Private Sub yulan_Click()
    On Error GoTo Err_yulan_Click
    Dim stDocName As String

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    stDocName = "时间查询"
    DoCmd.OpenReport stDocName, acPreview

Exit_yulan_Click:
    Exit Sub

Err_yulan_Click:
    MsgBox Err.Description
    Resume Exit_yulan_Click
   
End Sub

aeonsun

哦，谢谢，呵呵...
面向对象用惯了......
还以为可以用两个方法组合调用，呵呵.....
忘记这是过程式语言了........

非常感谢

土豆

面向对象也可以

Me.yulan_Click
Me.com_Click