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

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

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

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

      access vba 窗體文本框怎么用for或者do循環語句

      c豪 等級: 積分:0 金幣:0 來自:桂林Access交流中心 發表于:2020-02-09 16:08:15  
      樓主

      請問大師們access vba 怎么用for循環語句或者是do循環語句寫這一段?#(捂臉)將來如果有100個這樣的文本框,用if開寫不是要寫死人啊,這段代碼的目的就是為了判斷這些文本框是否為空值

       

      access培訓  誠聘access開發人員

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

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

      網站工作人員微信

      學習 等級:普通會員 積分:4 金幣:80 來自:北京Access交流中心 發表于2020/2/9 19:59:10 
      1樓 得分: 0

      我也是水平不咋地,不過這種代碼我寫過。


      sub abc()

      首先要定義一個控件

      dim ctl as control

      接著用for each next語句

      for each ctl in currentform

          if ctl.type=vbtextbox then

           if isnull(ctl) then 

              你要做的事情

          end if

          end if

      next

      sub end

      大致結構就是這樣,你再找資料慢慢學習



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

          c豪
            獲得社區協助:請教問題(即發帖)1篇,其中獲得解決的0篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      chinasa 等級:貴賓★★★★★ 積分:926 金幣:120 來自:寧波Access交流中心 發表于2020/2/12 10:43:21 
      3樓 得分: 0


      夠詳細了吧。


      Dim ctl As Access.Control         '定義一個控件變量
      Dim i  '假設有10個文本框
      i = 0
      For Each ctl In Me.Form.Controls  '在窗體中遍歷控件
          If ctl.ControlType = 109 Then  '如果控件類型為文本框(109代表文本框)
           MsgBox ctl.Name & "=" & ctl   '跳出該文本框的名字以及內容。你可以根據你的需要,在這里寫你需要的代碼。
          '_____________________下面這段代碼時模擬你打算把指定文本框清空或者更改為你想要的結果_____________________________________________________
          Do Until i > 10  '假設你有10個文本框,文本框的名字前綴相同,后面用不同數字
          If ctl.Name = "Text" & i Then  'Text是你文本框的前綴,后面的i代表你文本框后面的數字,比如你的aa1和ff1
          ctl = Null
          MsgBox "已清空"
          ctl = "xxx"
          MsgBox "已改為xxx"
          End If
          i = i + 1
          Loop
          End If
         '________________________上面這段代碼時模擬你打算把指定文本框清空或者更改為你想要的結果_____________________________________________________
      i = 0
      Next



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