东流西上
故在柳溪,水东有柳

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

阿里云主机

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

  1. Option Compare Database
  2. Private Sub Form_Load()
  3.     Dim ctr As Control
  4.     For Each ctr In Me.Controls
  5.         If ctr.Section = acDetail And ((TypeOf ctr Is TextBox) or (TypeOf ctr Is ComboBox) or (TypeOf ctr Is CheckBox)) Then    ‘如果当前控件处于主体节,并且控件是文本框、组合框、复选框中的一种时,
  6.         ctr.OnDblClick = “=allDblClick()”
  7.   ‘控件的双击事件就调用alldblclick函数。
    ‘可以参考平台生成的list窗体,在每一个文本框控件的双击事件中,都有=ViewDetails()
    ‘上述代码其实就是遍历当前窗体的每一个控件,如果该控件在主体节,并且是文本框、组合框、复选框中的一种时,其双击事件=allDblClick()
  8.         End If
  9.     Next
  10. End Sub
  11. Private Function allDblclick()
  12.     DoCmd.OpenForm “1”, , , “[l5]='” & Me. l5& “‘”
  13. End Function
  14. alldblclick到底能做什么呢?
    ‘就是打开detail窗体,并且打开条件为:where id = me.id
    ‘从而实现双击某条记录时,打开该记录的详情。

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

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

[file]

赞(0) 打赏
转载请注明出处:水东柳博客 » ACCESS双击记录弹出窗体数据的方法
分享到: 更多 (0)

评论 抢沙发

7 + 5 =
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏