作为初学者,我今天对麦田老师的“Access双击记录弹出窗体数据”示例
(http://www.accessoft.com/article-show.asp?id=4515)琢磨了半天,终于知道那段代码怎么修改了。目前还不懂具体原理。这里分享给初学的朋友。如下图:
在“2”窗体中找到:事件→加载,在“加载”里面找到源代码
Option Compare Database
Private Sub Form_Load()
Dim ctr As Control
For Each ctr In Me.Controls
If ctr.Section = acDetail And ((TypeOf ctr Is TextBox) or (TypeOf ctr Is ComboBox) or (TypeOf ctr Is CheckBox)) Then
ctr.OnDblClick = "=allDblClick()"
End If
Next
End Sub
Private Function allDblclick()
DoCmd.OpenForm "1", , , "[l5]='" & Me. l5& "'"
End Function
将红色字体的1,修改成你自己设置好的要弹出的窗口名称
红色字体的15,是你点击窗口的字段名称