笔者是新手,看到前面几位高手讲述的关于利用 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”例子)。