Can anyone fix my code using If and ElseIF?

[kbj0109]

I have three blank text boxes in a UserForm.

All of them should not be blank, or It gets message 'Fill All of Them'
and also, if the value in the third text box is not a Date format, I want a message box "Enter A Date"


Somehow,, my code is not working..
Please somebody help me out..
ElseIf should be used to check the data format of Date. and I don't know how...

This is my current code

If Text1.Value = "" Then
If Text2.Value = "" Then
If Date3.Value = "" Then
MsgBox "Fill All of Them"

ElseIf IsDate(Date3.Value) Then
MsgBox "Enter A Date"

End If

 

[Dendro]

Each 'If' needs a 'End If'.
Or you write something like this:
If....then
....
else
....If .....then
....else....
....end if
End if

or you can write like this:

if

elseif

elseif

elseif

end if

 

[Dendro]

For your code, you can use the 'Or' operator.

If Date3.Value = "" Then
     If Text1.Value = "" Or Text2.Value = "" Then
              MsgBox "Fill All of Them"
     Else
             MsgBox "Enter A Date"
     End If
End If

 

[kbj0109]

Thanks!! Or is really nice thing to use!

 

[My Aswer Is This]

Try This:

Private Sub CommandButton2_Click()
If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "Fill All Of Them"
If IsDate(Date3.Value) = False Then MsgBox "Enter A Date"

End Sub

 

[kbj0109]

It's exactly what I just did.

Thank you !