双击弹出修改窗体

小学生　发表于：2015-10-30 16:33:53 　

Private Sub AB1_DblClick(Cancel As Integer)
DoCmd.OpenForm "修改窗体"
End Sub

Private Sub AB2_DblClick(Cancel As Integer)
DoCmd.OpenForm "修改窗体"
End Sub

Private Sub AB3_DblClick(Cancel As Integer)
DoCmd.OpenForm "修改窗体"
End Sub

Private Sub AB4_DblClick(Cancel As Integer)
DoCmd.OpenForm "修改窗体"
End Sub

Private Sub AB5_DblClick(Cancel As Integer)
DoCmd.OpenForm "修改窗体"
End Sub

Private Sub ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "修改窗体"
End Sub

请问弹出修改窗体只可以这样写吗？还有没有其他更好的办法？

Top

杜超发表于：2015-10-30 22:35:03

写个模块调用

Top

网行者发表于：2015-10-31 06:31:42

http://www.accessoft.com/article-show.asp?id=8966

http://www.accessoft.com/article-show.asp?id=4515

Top

小学生发表于：2015-10-31 07:50:13

感谢网行者老师！就是这种效果。

Top

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

Access交流中心

双击弹出修改窗体