也说双子窗体联动
时 间:2017-03-15 13:15:23
作 者:李子 ID:50504 城市:宁波
摘 要:也谈利用 selectrecord() 函数实现双子窗体联动的例子
正 文:
笔者是新手,看到前面几位高手讲述的关于利用 selectrecord() 函数实现双子窗体联动的例子,很受启发。经过实践,笔者又将“半夜罗”的示例稍作优化,得到了更为简洁的联动方法。
优化的方法是,取消了在主窗体创建过渡文本框(用于链接字段值的传递)的做法,将用于联动的VBA命令直接写在selectrecord() 函数中,当子窗体A的数据记录切换时,根据函数可以直接触发另一个子窗体B的数据集的动态刷新。
下面给出selectrecord() 函数的写法:
Function selectRecord()
'1.整行变黑,方便查看是哪一条记录;
'2.让某行的第一个字段获得焦点,从而触发焦点事件,来决定选择的是哪一条记录。
On Error GoTo Err_selectRecord:
'鼠标单击时选定整行记录
DoCmd.RunCommand acCmdSelectRecord
'根据子窗体A(frmChild_A)的表(表A)的字段值(字段A)刷新子窗体B(frmChild_B)上的数据
Forms!frmMain.frmChild_B.SourceObject = Forms!frmMain.frmChild_B.SourceObject
Forms!frmMainl.frmChild_B.Form.Filter = "(表B.字段B) Like " _
& " IIf(IsNull(Forms!frmMain.frmChild_A.Form.字段A),'',Forms!frmMain_bjgl.frmChild_A.Form.字段A)"
Forms!frmMain_bjgl.frmChild_B.Form.FilterOn = True
Exit_selectRecord:
Exit Function
Err_selectRecord:
Resume Exit_selectRecord
End Function
这种做法的关键处有几点:
1、在主窗体加载时,设置两个子窗体的记录源为表的全集查询(也可以在设计视图静态设置,但不如动态设置灵活)。
如: Me.frmChild_B.Form.RecordSource = " select * FROM 表B"
2、在selectrecord() 函数中要用FORMS.标明窗体和控件的完整引用关系(因为是程序中动态赋值的),而不能简化为ME.代替。
如: Forms!frmMain.frmChild_B.SourceObject
3、要在子窗体A的“成为当前”事件中,输入 =selectRecord() ,以便记录切换时触发代码执行。
以上小技巧仅供各位向笔者一样的初学者参考使用。不当之处请指正(其它未讲清楚的可以参考“半夜罗”会员的“双子窗体联动.mdb”例子)。
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)