ACCESS双击记录弹出窗体数据的方法

729次阅读

共计 753 个字符，预计需要花费 2 分钟才能阅读完成。

提醒：本文最后更新于 2020-01-28 22:12，文中所关联的信息可能已发生改变，请知悉！

想在 ACCESS 数据表窗体中双击某条记录然后弹出该记录的详情，查了资料后发现 VB 代码可以实现，网上也有实例代码，只要把具体的窗体名称、字段等修改下就可以了。再次记录下具体过程。

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()”‘控件的双击事件就调用 alldblclick 函数。‘可以参考平台生成的 list 窗体，在每一个文本框控件的双击事件中，都有 =ViewDetails()‘上述代码其实就是遍历当前窗体的每一个控件，如果该控件在主体节，并且是文本框、组合框、复选框中的一种时，其双击事件 =allDblClick()
        End If
    Next
End Sub
Private Function allDblclick()
    DoCmd.OpenForm“1”, , ,“[l5]='”& Me. l5&“‘”End Function

alldblclick 到底能做什么呢？

就是打开 detail 窗体，并且打开条件为：where id = me.id

从而实现双击某条记录时，打开该记录的详情。

将蓝色字体的 1，修改成你自己设置好的要弹出的窗口名称。

将蓝色字体的 15，修改成你点击窗口的字段名称。

具体实例下载：https://pan.baidu.com/s/1xyh-h3MtopFtVzp2uwRvCw

提取码 5bn1

正文完