texbox lar boşsa doldurun mesajı

[a_self_lion]

benim hazırladığım form da
TFisNo
TKirlTar
TOdaNo
TTutar
TFree
TAciklama

isimlerinde 6 adet texbox um var bunlardan ilk 4 ü girilmek zorunda alltaki ikisi ise isteğe bağlı acaba üstten 4 ünü boş olduğunda kaydet tuşuna bastığım zaman kontrol yapsa da boş iste oraları doldurulmasını sağlasam tabiki msgbox ta oda no kismi boş lütfen doldurun gibi ve tamam a basıncada TOdaNo ya gitmesi

Mümkün müdür acaba


Son bir sorum daha olacaktı Calendar1 de açıldığında bu günün tarihini göstermiş olsa.....

 

[osmantelci]

Private Sub CommandButton1_Click()
For i = 1 To 4
With Controls("TextBox" & (i))
If .Value = Empty Then
MsgBox "Boş Geçmeyiniz" & "TextBox" & i
End If
End With
Next
End Sub

Private Sub UserForm_Initialize()
calendar1 = Date
End Sub