textbox boş olarak geçilmesin..

[mavidus]

arkadaşlar 4 adet textbox var ve 1 adet commandbuton var.Ã?rnekle açıklayacak olursam 1 nolu textbox boş ise command buttona kayıt için bastığımda beni msgbox ile uyarsın "1 nolu textbox boş bırakılmaz " gibi,ve 2,3,4 de uyarı versin.Bunu nasıl yapabiliriz acaba.

 

[Kemal Demir]

if Textbox1.value="" then
MsgBox("Textbox1'i Boş Geçemessiniz")
Exit sub
End if


anladığım kadarı ıle bole birşey ıstedınız.

 

[Kemal Demir]

Private Sub CommandButton1_Click()

if Textbox1.value="" then
MsgBox("Textbox1'i Boş Geçemessiniz")
Exit sub
End if
if Textbox2.value="" then
MsgBox("Textbox2'i Boş Geçemessiniz")
Exit sub
End if
if Textbox3.value="" then
MsgBox("Textbox3'i Boş Geçemessiniz")
Exit sub
End if
if Textbox4.value="" then
MsgBox("Textbox4'i Boş Geçemessiniz")
Exit sub
End if

End Sub

 

[mavidus]

çok sağolasın rakkas.
tam istediğim gibi oldu.

 

[mavidus]

Bir şey daha soracaktım mesala textbox1'in sadece büyük Textbox2'nin ise küçük harf yazmasını nasıl sağlarız.

 

[metinozlu]

büyük harf için
Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)

End Sub

 

[mavidus]

teşekkür ederim metinozlu...