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

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

      采用函數形式實現遍歷子窗體文本框模糊查詢文本內容

      時 間:2013-07-16 11:03:52
      作 者:cspa   ID:13806  城市:北京
      摘 要:采用函數形式實現遍歷子窗體文本框模糊查詢文本內容功能的好處是使用簡單、易學,適用性強,幾乎不用編寫代碼。
      正 文:

       

          動態窗體文本內容模糊查詢功能可實現使用者邊輸入查詢條件邊反饋查詢結果的效果,給使用者以良好的應用體驗。我在本網站查到一杯綠茶老師發表的《遍歷窗體全字段模糊查詢》的文章,學來受益匪淺。遺憾的是老師的方法是一個具體的實例,使用時需要修改,且需對每處查詢均要重復編寫代碼。

          現我將其改寫為函數形式。改寫后其優點一是通用性。一個函數可以服務于所有需要對子窗體文本框文本內容進行查詢的過程;二是易用性。由于采用函數形式,且該函數僅有輸入查詢內容的字段名稱和子窗體名稱2個參數,編寫查詢語句和查詢條件、執行查詢過程等全部由函數自動完成,極大簡化了編寫程序代碼的過程,也有利于代碼的修改維護。

          唉,懶得寫示例了,直接上代碼吧:

       

      Sub subCX(objTxtName As Object, objWinName As Object)

      '===========================================================

      '示例名稱:通用子窗體文本動態模糊查詢函數

      '示例作者:cspa

      '聯系方式:QQ:1344866591

      '制作日期:2013-7-15

      '===========================================================

      '參數說明:1objTxtName:主窗體上用于輸入查詢內容的字段名稱;

      '              2objWinName:欲查詢內容的字段所在的子窗體名稱。

      '調用說明:在主窗體上用于輸入查詢內容的字段的change事件中輸入:

      '          subCX me.[用于輸入查詢內容的字段名稱],me.[欲查詢內容的字段所在的子窗體名稱]

      '          即完成對該函數的調用。

      Dim strWhere As String

          Dim ctl As Control

          Dim ctlname As String

         

         

         strWhere = Trim$(objTxtName.Text)

          For Each ctl In objWinName.Form.Controls

              If TypeOf ctl Is TextBox Then

                  ctlname = ctlname & "[" & ctl.Name & "] & "

               End If

          Next

          ctlname = Left(ctlname, Len(ctlname) - 3)

          strWhere = "" & ctlname & "  like  '*" & strWhere & "*'"

          objWinName.Form.Filter = strWhere

          objWinName.Form.FilterOn = True

      End Sub

       



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

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

      2013/7/16 11:23:27麥田

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

      用戶名:
      密 碼:
      內 容:
       

      常見問答

      技術分類

      相關資源

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