Office中国论坛/Access中国论坛

标题: 请教如何在access中的代码生成器生成两个动作 [打印本页]

作者: aeonsun 时间: 2004-4-2 18:55
标题: 请教如何在access中的代码生成器生成两个动作
比如说，我只用一个按钮，但要实现两个动作，第一个动作将输入的数据提交到数据库，第二个动作对数据库进行查询，生成一个预览的报表
我不知道在它的代码中支持方法的嵌套吗？如何生成，谢谢

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

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 时间: 2004-4-2 19:08
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 时间: 2004-4-2 19:26
哦，谢谢，呵呵...
面向对象用惯了......
还以为可以用两个方法组合调用，呵呵.....
忘记这是过程式语言了........

非常感谢

作者: 土豆 时间: 2004-4-2 20:36
面向对象也可以

Me.yulan_Click
Me.com_Click

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)