求助:VBA遍历子窗体字段值, 并显示于文本框

zxklzxm1983

拜托了{:soso_e181:} 给个附件{:soso_e181:}

zxklzxm1983

自己顶下{:soso_e110:}

access学习交流

用dlookup 就可以了。看看是不是这样

zxklzxm1983

谢谢3楼, dlookup不正确, 没有条件, 需要直接遍历子窗体字段

zxklzxm1983

{:soso_e149:} 每日一顶

zxklzxm1983

{:soso_e149:} 自己一顶

todaynew

zxklzxm1983 发表于 2013-7-25 19:43
自己一顶

Public Sub SetParentFormctrls(ByVal frm As Form)
    '功能：将子窗体控件数据赋值给主窗体对应控件
   Dim ctrls As Controls
    Dim ctrl As Control
    Set ctrls = frm.Parent.Controls
    For Each ctrl In frm.Controls
        If ctrl.ControlType <> acLabel Then
            ctrls(ctrl.Name).Value = ctrl.Value
        End If
    Next
End Sub

在子窗体中的加载事件中写：
call SetParentFormctrls(me.form)

zxklzxm1983

todaynew 发表于 2013-7-25 20:11
Public Sub SetParentFormctrls(ByVal frm As Form)
    '功能：将子窗体控件数据赋值给主窗体对应控件
...

谢谢大叔, 给个示例最好, 代码看不太懂

zxklzxm1983

{:soso_e110:} 自己顶

zxklzxm1983

结贴: 1. 指针读取字段值 2.循环赋值文本框

感谢老汉大叔的回答{:soso_e181:}