返回列表 上一主題 發帖

[發問] textbox簡易除錯

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-1-20 
1# 跳轉到 »
發表於 2015-4-12 23:56 | 顯示全部帖子
If Trim(TB5 + TB6) <> "" And Trim(TB7 + TB8) <> "" Then
   MsgBox "請擇一輸入"
   GoTo END1
End If

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-1-20 
2#
發表於 2015-4-13 07:30 | 顯示全部帖子
不過如果全部（5.6.7.8）都是空白的目前不會感應到 --> 我漏看這條件

[法1]

A = Trim(TB5 + TB6)
B = Trim(TB7 + TB8)
If  A <> "" And B <> ""  OR  A ="" And B = "" Then
   MsgBox "請擇一輸入"
   GoTo END1
End If

[法2]

A = Trim(TB5 + TB6)
B = Trim(TB7 + TB8)
If  NOT (A =  ""  XOR  B = "" ) Then
   MsgBox "請擇一輸入"
   GoTo END1
End If

'===

Trim( ) : 如果你輸入的是全部是空白, 也算是等於你沒有輸入任何值

如果你允許輸入可以是全部是空白, 那就把 Trim() 踢除掉
踢除掉 Trim 應該就好理解了

'====
為何 TB5 後面不需要.Value ?  
.Value 是預設屬性, 沒寫時他自己會判斷成你就是要用 .Value

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-1-20 
3#
發表於 2015-4-21 20:46 | 顯示全部帖子
先把 Trim( )  拿掉, 當作沒有寫過

    Code                ->        說明                                                   
(TB5 + TB6) <> "" -> 表示 TB5, TB6 二人之中 '至少有1人' 有 keyin
(TB7 + TB8) <> "" -> 表示 TB7, TB8 二人之中 '至少有1人' 有 keyin

If  (TB5 + TB6) <> "" And (TB7 + TB8) <> ""  Then

把 ↑↑↑↑↑↑ 的 Code 取代成 說明 得到 ↓↓↓↓↓↓

If  (TB5, TB6 二人之中 '至少有1人' 有keyin)   同時 (TB7, TB8 二人之中 '至少有1人' 有keyin) Then
   MsgBox "請擇一輸入"
   GoTo END1
end if

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題