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

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ? | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      2個以上查詢的時候 代碼該怎么寫

      qiecaiban 等級: 普通會員 積分:0 金幣:0 來自:蘇州Access交流中心 發表于:2016-01-25 15:09:34   已結帖
      樓主

      在窗體里 設定子窗體名字ABC  ,有兩個文本框 名字1,名前  名字2性別


      如果想查詢名字里面某某某 ,加上性別 假如是男


      寫的代碼是

      Private Sub com12_Click()
       Dim strWhere As String
        If Not IsNull(Me.名前) Then
          strWhere = "[名前] like '*" & Me.名前 & "*'"
        End If


        If Not IsNull(Me.性別) Then
          strWhere = "[性別] like '*" & Me.性別 & "*'"
        End If
        
        Me.ABC.Form.Filter = strWhere
        Me.ABC.Form.FilterOn = True
         
      End Sub


      如果在兩個文本框中輸入查詢條件,結果只能出來識別后面的查詢,前面那個查詢好像不起作用了。

      請問在兩個以上查詢的情況下,代碼該怎么寫?


      謝謝










       

      access培訓  誠聘access開發人員

          qiecaiban
            獲得社區協助:請教問題(即發帖)21篇,其中獲得解決的15篇;
            協助社區成員:協助他人(即回帖)17篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      朱先生 等級:普通會員 積分:601 金幣:0 來自:南通Access交流中心 發表于2016/1/25 15:57:58 
      1樓 得分: 0

      做個簡單查詢方便

      篩選比較難



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          朱先生
            獲得社區協助:請教問題(即發帖)0篇,其中獲得解決的0篇;
            協助社區成員:協助他人(即回帖)1179篇,其中被設為【最佳答案】的253篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      qiecaiban 等級:普通會員 積分:0 金幣:0 來自:蘇州Access交流中心 發表于2016/1/25 16:00:42 
      2樓 得分: 0

      但是我還是想知道答案




          qiecaiban
            獲得社區協助:請教問題(即發帖)21篇,其中獲得解決的15篇;
            協助社區成員:協助他人(即回帖)17篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      朱先生 等級:普通會員 積分:601 金幣:0 來自:南通Access交流中心 發表于2016/1/25 18:06:56 
      3樓 得分: 0
          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          朱先生
            獲得社區協助:請教問題(即發帖)0篇,其中獲得解決的0篇;
            協助社區成員:協助他人(即回帖)1179篇,其中被設為【最佳答案】的253篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      落塵_小新 等級:一星會員 積分:713 金幣:1120 來自:佳木斯Access交流中心 發表于2016/1/25 23:54:16 最佳答案
      4樓 得分: 2

      邏輯問題

      當 名前 不為空時 strWhere 變量賦值成功 

      當 性別 不為空時 strWhere 變量又重新賦值

      所以當 名前 和 性別 都不為空時,語句順序執行到第二個IF時就重新賦值了,自然第一個IF條件不起作用了。

      修改如下(供參考):

      Private Sub com12_Click()
          Dim strWhere As String
          If Not IsNull(Me.名前) Then
              strWhere = "[名前] like '*" & Me.名前 & "*'"
          End If
      
          If Not IsNull(Me.性別) And Not IsNull(Me.名前) Then
              strWhere = strWhere & " AND [性別] like '*" & Me.性別 & "*'"
          End If
      
          Me.ABC.Form.Filter = strWhere
          Me.ABC.Form.FilterOn = True
      End Sub
      
      方法千千萬,就看你怎么干,祝你成功。



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          落塵_小新
            獲得社區協助:請教問題(即發帖)4篇,其中獲得解決的4篇;
            協助社區成員:協助他人(即回帖)502篇,其中被設為【最佳答案】的170篇;
            協助我們社區:發布技術文章28篇,邀請了6名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      qiecaiban 等級:普通會員 積分:0 金幣:0 來自:蘇州Access交流中心 發表于2016/1/26 6:54:02 
      5樓 得分: 0

      老師 謝謝你


      但是 還有個問題

      如果只輸入第二個條件  第一個條件為空的時候

      上面的代碼好像無效了

      怎么辦?

      謝謝



          qiecaiban
            獲得社區協助:請教問題(即發帖)21篇,其中獲得解決的15篇;
            協助社區成員:協助他人(即回帖)17篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      qiecaiban 等級:普通會員 積分:0 金幣:0 來自:蘇州Access交流中心 發表于2016/1/26 6:54:04 
      6樓 得分: 0

      老師 謝謝你


      但是 還有個問題

      如果只輸入第二個條件  第一個條件為空的時候

      上面的代碼好像無效了

      怎么辦?

      謝謝



          qiecaiban
            獲得社區協助:請教問題(即發帖)21篇,其中獲得解決的15篇;
            協助社區成員:協助他人(即回帖)17篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      落塵_小新 等級:一星會員 積分:713 金幣:1120 來自:佳木斯Access交流中心 發表于2016/1/26 21:07:59 
      7樓 得分: 0
      Private Sub com12_Click()
          Dim strWhere As String
          strWhere = Null
          If Not IsNull(Me.名前) Then
              strWhere = strWhere & " AND " & "[名前] like '*" & Me.名前 & "*'"
          End If
      
          If Not IsNull(Me.性別) Then
              strWhere = strWhere & " AND " & "[性別] like '*" & Me.性別 & "*'"
          End If
          strWhere = Mid(strWhere, 6)
          Me.ABC.Form.Filter = strWhere
          Me.ABC.Form.FilterOn = True
      End Sub
      


          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          落塵_小新
            獲得社區協助:請教問題(即發帖)4篇,其中獲得解決的4篇;
            協助社區成員:協助他人(即回帖)502篇,其中被設為【最佳答案】的170篇;
            協助我們社區:發布技術文章28篇,邀請了6名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      總記錄:7篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5