[問題] vba發現表單有空白,跳出msbox,並停止

[waiter337 (給開司一罐蘇格登)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:

版本:


目前textbox1 是vba表單中的一個姓名輸入位置

當我發現他沒輸入東西,或者為數字跟標點符號時

原設定為"新增資料"的按扭

按下之後會發現錯誤,跳出msbox,並停止vba的運作
(甚至是當輸入完成換行時,輸入不符規格,就會自動跳出警告視窗)


目前卡住不會寫
If TextBox1.Value = False Then

end if

目前google"停止 vba 巨集"大神

大部份都是停止excel顯示錯誤警告視窗的巨集

求高手支援


另外問一下

我總共有

TextBox1.Value = False
TextBox2.Value = False
TextBox3.Value = False
TextBox4.Value = False
TextBox5.Value = False
TextBox6.Value = False
TextBox7.Value = False
TextBox8.Value = False
TextBox9.Value = False
TextBox10.Value = False
TextBox11.Value = False
TextBox12.Value = False
TextBox13.Value = False
TextBox14.Value = False


這些需要判斷

是需要每個各做一次,還是有一次找尋的方法

但我猜可能還是得一個一個做

因為警告視窗得顯示未輸入的空白格子

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.35.158.244
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1474540826.A.591.html
※ 編輯: waiter337 (114.35.158.244), 09/22/2016 18:43:15
※ 編輯: waiter337 (114.35.158.244), 09/22/2016 18:46:41
※ 編輯: waiter337 (114.35.158.244), 09/22/2016 18:47:24
推 Metal5566: UNLOAD userform1
→ waiter337: If TextBox1.Text = "" Then MsgBox ("舊車主空白")
→ waiter337: Exit Sub
→ waiter337: End If
→ waiter337: 有時後會跳出 有END IF 卻沒有 IF
→ waiter337: 好像是不用end if 的 if種類
→ waiter337: 我刪掉繼續hkhk43
→ waiter337: 繼續測
→ waiter337: 已解決
可是我出現另一個問題

假設14個都空白沒填

他的msgbox就會跳14次= =

該怎麼做讓他只跳最前面那次警告

後面沒填的警告先不跳

而且我還可以順便exit sub

避免錯誤的資料進入database
※ 編輯: waiter337 (114.35.158.244), 09/22/2016 22:15:38
→ soyoso: 迴圈，內判斷textbox是否為空白，如只跳最前面那次的話
→ soyoso: 就當第1筆空白時，執行msgbox訊息，再執行回文的exit sub
https://goo.gl/zoPWzG

裡面的msgbox每項皆不同

該如何撰寫

for ii = 1 to 14

if textbox & ii & .text = "" then  msgbox

exit sub

next

--------------------------------------

If TextBox1.Text = "" Then MsgBox ("舊車主空白")

If TextBox2.Text = "" Then MsgBox ("舊車牌空白")

If TextBox3.Text = "" Then MsgBox ("引擎號碼空白")

If TextBox4.Text = "" Then MsgBox ("電話空白")

If TextBox5.Text = "" Then MsgBox ("手機空白")

If TextBox6.Text = "" Then MsgBox ("身份證字號空白")

If TextBox7.Text = "" Then MsgBox ("出生年月日空白")

If TextBox8.Text = "" Then MsgBox ("新車主空白")

If TextBox9.Text = "" Then MsgBox ("新車牌空白")

If TextBox10.Text = "" Then MsgBox ("引擎號碼空白")

If TextBox11.Text = "" Then MsgBox ("身份證字號空白")

If TextBox12.Text = "" Then MsgBox ("出生年月日空白")

If TextBox13.Text = "" Then MsgBox ("機種空白")
※ 編輯: waiter337 (114.35.158.244), 09/23/2016 15:17:33
→ waiter337: 迴圈寫出不同的敘述 是否要在增加一個變數
→ waiter337: 還是說用exit for
→ soyoso: 用controls來指定到textbox的名稱
→ soyoso: 如檔案內textbox後為連續流水號，可用"textbox" & ii的方
→ soyoso: 式
→ waiter337: 等下研究一下
→ waiter337: 如果改用補助欄
→ waiter337: Msgbox("a" & ii)  然後補助欄放在其他頁面a1~a14
→ waiter337: Controls 目前還沒用過 我先google一下
→ soyoso: 抱歉，補助欄是？輔助欄嗎？
→ soyoso: Msgbox("a" & ii)  然後補助欄放在其他頁面a1~a14是指
→ soyoso: msgbox引內儲存格a1~a14的值嗎?
→ waiter337: 對
→ soyoso: 如果引用儲存格的值，寫法上就不正確了
→ soyoso: 應是range或cells來指定
→ waiter337: 抱歉,我還是寫不出來
→ soyoso: controls方面嗎？如果是的話類似http://imgur.com/a/ahfAT
→ waiter337: 太感謝了
→ waiter337: 麻煩幫我看一下這樣寫有沒有其他問題
lable1 是表單格子前面的名稱

Private Sub CommandButton1_Click()

For ii = 1 To 14

x = Controls("Label" & ii)

If Controls("textbox" & ii) = "" Then

MsgBox " 注意 " & x & " 空白.": Exit Sub


End If
Next
End Sub


vba跑的了
※ 編輯: waiter337 (114.35.158.244), 09/23/2016 18:12:29
→ soyoso: label方面要實際是否調整流水號同textbox
→ soyoso: 因原本提供的檔案內是無對應上的
→ waiter337: 是的 後來我又重新調整過了表單上的排序
→ waiter337: Label1會對上textbox1
→ waiter337: 另外
Private Sub CommandButton31_Click()

For jj = 1 To 14

y = Controls("frame" & jj).Caption

If Controls("OptionButton" & jj).Value = True Then

MsgBox " 注意 " & y & " 空白.": Exit Sub

End If

Next
End Sub


由於框架frame1 與 按扭選項OptionButton1 是沒有遞增邏輯的

我想抓取frame1的名稱 "處理種類"
(或許之後我在設個列表,甚至是其他排序)

其下有3個按扭選項
利用
OptionButton1
OptionButton2
OptionButton3
來判斷是否有點選這樣

是否三個內有點選任1,或許本身frame1,有true跟false能夠判斷

是否有選擇其一了,不過也只能選一個

※ 編輯: waiter337 (114.35.158.244), 09/23/2016 20:17:54
或者大大們有沒有什麼類似的範本

像是vba的資料輸入表,各行各業的都可以

借我參考 我自己研究看看

我先google一下
※ 編輯: waiter337 (114.35.158.244), 09/23/2016 20:24:16
→ soyoso: 迴圈於各frame內，判斷controls為OptionButton是否有任一
→ soyoso: 個被選取