<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 5個免費課程
      網站公告
      ·Access快速平臺QQ群號:156702533    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
      您的位置: 首頁 > 技術文章 > Access數據庫-窗體/數據頁

      OFFICE 2019 ACCESS遍歷窗口文本框和組合框

      時 間:2020-01-26 23:06:09
      作 者:   ID:48957  城市:昆山
      摘 要: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交流群 (群號:32587638)       access源碼網店

      最新評論 查看更多評論(0)

      發表評論您的評論將提升作者分享的動力!快來評論一下吧!

      用戶名:
      密 碼:
      內 容:
       

      常見問答

      技術分類

      相關資源

      關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助