子窗体记录如何移动到指定记录

today416

我用GOTORECORD  方法，运行的时候老是提示　“子窗体没有打开”，如附件，我也给子窗体设置了焦点啊
高手帮我看看

todaynew

today416 发表于 2011-6-28 00:15
我用GOTORECORD  方法，运行的时候老是提示　“子窗体没有打开”，如附件，我也给子窗体设置了焦点啊
高手 ...

http://www.office-cn.net/forum-v ... E0%BA%F4%D3%A6.html

today416

斑竹,你的例子的确可以.
可不可以帮我看看我的为什么不行啊.没理由啊

today416

看错了.斑竹你的例子实现的效果跟我要的刚好相反
我是想主窗体有很多记录,当浏览主窗体的某一条记录时,子窗体对应的焦点定位到对应的记录上.

todaynew

today416 发表于 2011-6-28 09:35
看错了.斑竹你的例子实现的效果跟我要的刚好相反
我是想主窗体有很多记录,当浏览主窗体的某一条记录时,子窗 ...

鬼打架。上下颠倒一下位置就和你的例子相反了吗？
再使劲看看，这个示例是双向定位，如果还看不懂的话，就看下面的示例：
http://www.office-cn.net/forum-v ... t-%B9%F6%C2%D6.html

today416

关键的问题是,浏览子窗体记录,主窗体同步显示记录是可以的.而且也不需要设置焦点什么的.但是颠倒位置后就不行了.

todaynew

today416 发表于 2011-6-28 12:10
关键的问题是,浏览子窗体记录,主窗体同步显示记录是可以的.而且也不需要设置焦点什么的.但是颠倒位置后就不 ...

一回事

today416

版主能不能帮忙在我的附件中修改下然后再上传给我？

todaynew

today416 发表于 2011-6-28 21:10
版主能不能帮忙在我的附件中修改下然后再上传给我？

一、主窗体为绑定窗体
1、主窗体主动，子窗体从动，则主窗体的成为当前事件写为：
Private Sub Form_Current()
Dim a As Long
a = Me.Form.CurrentRecord
Me.frmMin_Sub.Form.SelTop = a
End Sub

2、子窗体主动，主窗体从动，则子窗体的成为当前事件写为：
Private Sub Form_Current()
Dim a As Long
a = Me.Form.CurrentRecord
DoCmd.GoToRecord acDataForm, Me.Parent.Form.Name, acGoTo, a
End Sub

二、主窗体为非绑定窗体
1、子窗体主动，主窗体从动，则子窗体的成为当前事件写为：
Private Sub Form_Current()
Dim ctrls As controls
Dim ctrl as control
set ctrls=Me.Parent.Form.controls
for each ctrl in ctrls
    if ctrl.controltype=acComboBox or ctrl.controltype=acTextBox then
           ctrl.value=me.controls(ctrl.name).value
    end if
next
End Sub

pq318

斑竹牛啊，还有这招，我解决的办法用的是刷新，外加在子窗体打开在里面录入临时数据