If text box in userform is not empty then msgbox

[Claire Jackson]

Hi,

I'm using the following code but it isn't working? Basically I have a text box that requires a popup message to tell the user that he must do something if he has entered data in the text box

Sub RevisedDate()

If Txt_Rev_Comp_Date.Text.Value <> "" Then
MsgBox "I'm not empty!"
End If

End Sub

 

[abdelfattah]

hi claire , you have to choose value or text not together the code should be like this

Sub RevisedDate()

If Txt_Rev_Comp_Date.Text <> "" Then
MsgBox "I'm not empty!"
End If
End Sub

or this

Sub RevisedDate()

If Txt_Rev_Comp_Date.Value <> "" Then
MsgBox "I'm not empty!"
End If

End Sub

 

[Claire Jackson]

OK thanks, I've tried both and it's not showing me the message box? it's just letting me type a date in and then just tabbing to the next field

 

[Norie]

Claire

How are you executing RevisedDate?

Are you calling it from the Exit event of the Txt_Rev_Comp_Date textbox or some other event?

 

[abdelfattah]

i hope this help

Private Sub  If Txt_Rev_Comp_Date_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Txt_Rev_Comp_Date = vbNullString Then Exit Sub
If IsDate(Txt_Rev_Comp_Date) Then
Txt_Rev_Comp_Date = Format(Txt_Rev_Comp_Date, "dd/mm/yyyy")
MsgBox "I'm not empty!"
End If
End Sub