关于“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,是你点击窗口的字段名称
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access更新查询】更新查...(05.15)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
学习心得
最新文章
- 【Access更新查询】通过更新查...(05.20)
- 精美简单实用的系统面板_完善版(改...(05.18)
- Access提示方法成员未找到的解...(05.17)
- Access运行时错误-21472...(05.15)
- 【Access更新查询】更新查询如...(05.15)
- 日期不为空怎么写表达式?[字段名]...(05.14)
- 附件字段如何判断myPictrue...(05.13)
- Access链接表SQL SERV...(05.11)
- Access快速开发平台企业版--...(05.09)
- 新版铁路工程管理系统V2.0(05.08)