返回列表 上一主題 發帖

[發問] 判斷textbox是否為空值

tryagaaa

帖子
5 
主題
3 
精華
0 
積分
8 
點名
0  
作業系統
WIN7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2015-10-6 
最後登錄
2020-3-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-10-14 11:37 | 只看該作者

[發問] 判斷textbox是否為空值

大家好

我現在有七個textbox 我想要知道他是否為空值

我用
  1. If TextBox7.Text And TextBox8.Text And TextBox9.Text And TextBox10.Text And TextBox11.Text And TextBox12.Text And TextBox13.Text = "" Then
  2. msgbox "請輸入關鍵字!"
  3. else
  4. end if
複製代碼
可是他會跟我說 型態不符合

請問要怎麼改才對呢?
收藏 分享

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-10-18 
2#
發表於 2015-10-14 17:09 | 只看該作者
本帖最後由 准提部林 於 2015-10-14 17:11 編輯

將 And 改成 &　
And, Or 用於〔條件〕判斷，
&　才是連接字串∼∼

或參考：
Dim j&, T$
For j = 7 To 13
　　T = T & Controls("TextBox" & j)
Next j
If T = "" Then MsgBox "請輸入關鍵字!": Exit Sub

另一參考：
Dim j&, Jm%
For j = 7 To 13
　　If Controls("TextBox" & j) <> "" Then Jm = 1: Exit For
Next j
If Jm = 0 Then MsgBox "請輸入關鍵字!": Exit Sub

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題