关于“Access双击记录弹出窗体数据”解析

时　间:2013-06-25 18:51:31
作　者:西索梦   ID：32006  城市：绵阳
摘　要:http://www.accessoft.com/article-show.asp?id=4515
正　文:

作为初学者，我今天对麦田老师的“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，是你点击窗口的字段名称