求教

李永利　发表于：2010-12-24 10:02:14 　

如何实现用鼠标点击窗体“表1”上任一数据，弹出一个或在旁边显示窗体“表2”，由窗体“表2”显示出与鼠标在窗体“表1”上指定数据的相关信息。

曹光耀发表于：2010-12-24 10:53:53

先创建一过程-DblClick，代码如下：

Sub DblClick()
DoCmd.OpenForm "表2", acNormal, , "工厂='" & Me.工厂 & "'"
End Sub

在窗体“表1”的‘编号’字段的双击事件中加入代码：
Private Sub 编号_DblClick(Cancel As Integer)
Call DblClick '调用过程DblClick
End Sub

在窗体“表1”的‘工厂’字段的双击事件中加入代码：

Private Sub 工厂_DblClick(Cancel As Integer)
Call DblClick '调用过程DblClick
End Sub

在窗体“表1”的‘设备名称’字段的双击事件中加入代码：

Private Sub 设备名称_DblClick(Cancel As Integer)
Call DblClick '调用过程DblClick
End Sub

李永利发表于：2010-12-24 12:03:22

曹光耀老师您好：

按照您的方法还是不行，提示 Private Sub 设备名称_DblClick(Cancel As Integer)

Call DblClick '调用过程DblClick

End Sub

有问题。

煮江品茶发表于：2010-12-24 13:48:13

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

Access交流中心