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

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

      輸入型控件判斷是否為空

      時 間:2020-03-04 22:31:40
      作 者:水果   ID:67235  城市:盤錦
      摘 要:輸入型控件判斷是否為空。
      正 文:

      Public Function gf_FieldisNull(ByVal rform As Form) As Boolean
      '功能說明:我們開發的軟件在實際應用中,有些字段是必須輸入的.而用戶可能會因為操作上的原因,發生漏輸入的現象
      '         這個函數可以控制用戶必須輸入合法數據.
      '使用說明:首先需要在窗體必輸控件的"控件提示文本"屬性中填入"必填",在"標記"屬性中填寫該控件的中文名
      '使用示例: gf_FieldIsNotNull Me
      '作者: 王三平,參考中國人提供的源代碼,修改.
      '日期:2007-10-13
      '修改:2009-1-12 更正以下缺點
      '---1、由于在修改窗體中的字段名不是中文,所以提示信息出現的是字母,你可以取中文名字,來取得好的效果。
      '---2、如果窗體視圖是數據表樣式,則會出現錯誤提示,此功能完善。
          On Error GoTo errorhandler
          Dim ctl As Control
          For Each ctl In rform.Controls
              With ctl
                  If .ControlType = acTextBox _
                      or .ControlType = acComboBox _
                      or .ControlType = acListBox _
                      or .ControlType = acCheckBox _
                      or .ControlType = acOptionButton _
                      or .ControlType = OptionGroup _
                      Then
                  If ctl.ControlTipText = "必填" And IsNull(ctl) Then
                      FieldisNull = True
                      ctl.SetFocus
                      MsgBox "請錄入[ " & ctl.Tag & " ]必填項! ", 64, "系統提示!"
                      Exit For
                  Else
                      FieldisNull = False
                  End If
                  End If
              End With
          Next ctl
      errorhandler_exit:
          Exit Function
      errorhandler:
          Resume Next
      End Function


      Access軟件網官方交流QQ群 (群號:198348076)       access源碼網店

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

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

      用戶名:
      密 碼:
      內 容:
       

      常見問答

      技術分類

      相關資源

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