Need help with code

[tyant]

The code is meant to check if there is a value in the text box. If there is no value its meant to display a msgbox.

If the value is not a date or is not "-" then the msgbox should appear.

**********
The Code:*
**********
Case frmInsertCompany.Incorp.value = "" or _
not isDate(frmInsertCompany.Incorp.value)
Ret = False
Msgbox "Incorporated must not be empty, It should be a Date"
frmInsertCompany.Incorp.value = "-"

 

[dilettante]

Do you really want something like:

If frmInsertCompany.Incorp.value = ""  or _
    not IsDate(frmInsertCompany.Incorp.value) Then
  Ret = False
Else
  MsgBox "Incorporated must not be empty, " _
       & "It should be a Date"
  frmInsertCompany.Incorp.value = "-"
End If

Or am I really missing something here?

 

[JohnYingling]

If Not(frmInsertCompany.Incorp.value = "-"  or _
    IsDate(frmInsertCompany.Incorp.value) Then
    Ret = False
    MsgBox "Incorporated must not be empty, " _
       & "It should be a Date"
    frmInsertCompany.Incorp.value = "-"
End If

http://WWW.VBCompare.Com