OFFICE 2019 ACCESS遍历窗口文本框和组合框-甘
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


OFFICE 2019 ACCESS遍历窗口文本框和组合框

发表时间:2020/1/26 23:06:09 评论(0) 浏览(5418)  评论 | 加入收藏 | 复制
   
摘 要:OFFICE 2019 ACCESS遍历窗口文本框和组合框
正 文:
OFFICE 2019 ACCESS遍历窗口文本框和组合框

    If MsgBox("您确定要修改当权记录内容吗?", vbYesNo, "提醒") = vbYes Then

        Dim OldStr As String
        Dim NewStr As String
        Dim Ctl As Access.Control
''        Dim Ctl As Access.TextBox
''        Dim CtlCombo As Access.ComboBox
'        On Error Resume Next
        For Each Ctl In Me.Form.Controls '遍历控件汇总新旧数据进行对比,若一致则表明未修改,则不用进行后续修改程序
            If Ctl.Name <> "父阶物料" Then '因为父阶物料属临时文本框,数据表中并无该字段,故不用考虑对吧
                If Ctl.ControlType = 109 or Ctl.ControlType = 111 Then '109代表文本框,111代表组合框
                    If Nz(OldStr, "") = "" Then
                    
                        OldStr = Ctl.Value
                        NewStr = DLookup(Ctl.Name, "My_ProductTable", "产品代码='" & Me.产品代码 & "'")
                    Else
                        OldStr = OldStr & "|" & Ctl.Value
                        NewStr = NewStr & "|" & DLookup(Ctl.Name, "My_ProductTable", "产品代码='" & Me.产品代码 & "'")
                    End If
                End If
            End If
        Next
        
'        For Each CtlCombo In Me.Form.Controls
'            If Nz(OldStr, "") = "" Then
'                OldStr = CtlCombo.Value
'                NewStr = DLookup(CtlCombo.Name, "My_ProductTable", "产品代码='" & Me.产品代码 & "'")
'            Else
'                OldStr = OldStr & "|" & CtlCombo.Value
'                NewStr = NewStr & "|" & DLookup(CtlCombo.Name, "My_ProductTable", "产品代码='" & Me.产品代码 & "'")
'            End If
'        Next
        
        Debug.Print OldStr
        Debug.Print NewStr
        
        If OldStr = NewStr Then MsgBox "您并未修改当前记录,请确认!", , "提醒": Exit Sub
        DoCmd.OpenForm "frmMy_KeyPassWord", OpenArgs:="ChangeProduct" & "|" & Me.产品代码: Exit Sub
    Else
        Exit Sub
    End If

Access软件网交流QQ群(群号:198465573)
 
 相关文章
遍历窗体控件,检测每个组合框和文本框是否设置了值  【  2009/6/30】
[access查询]遍历--access常用手段  【todaynew  2009/12/14】
【access小品】遍历天下 不畏浮云  【todaynew  2010/4/5】
遍历窗体控件  【Aaron  2011/6/17】
采用函数形式实现遍历子窗体文本框模糊查询文本内容  【cspa  2013/7/16】
如何遍历ACCESS中的窗体  【lzk  2015/12/24】
遍历组合框中所有值  【易勋  2019/1/24】
用For Each遍历表字段名及值  【  2019/8/22】
常见问答
技术分类
相关资源
文章搜索
关于作者


文章分类

文章存档

友情链接