I have a cell where people type in a date. The format is "mm/dd/yyyy" (e.g.
11/18/2005). I want to write a "If" statement to check whether the user
types in a date in that cell. If they leave it blank or type anything else,
I want to have a message box comes up. So this is what I have, and it's not
working.

If ActiveSheet.Range("B8").NumberFormat < "m/d/yyyy" Then
MsgBox "Please enter a date in cell B8.", , "Warning!"

Please help. Thanks.

How about

With Activesheet.Range("B8")
If .Value < "" Then
If Not IsDate(.Value) Then
MsgBox "Please enter a date in cell B8.", , "Warning!"
EndIf
Else
MsgBox "Please enter a date in cell B8.", , "Warning!"
End If
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"AccessHelp" wrote in message
...
I have a cell where people type in a date. The format is "mm/dd/yyyy"
(e.g.
11/18/2005). I want to write a "If" statement to check whether the user
types in a date in that cell. If they leave it blank or type anything
else,
I want to have a message box comes up. So this is what I have, and it's
not
working.

If ActiveSheet.Range("B8").NumberFormat < "m/d/yyyy" Then
MsgBox "Please enter a date in cell B8.", , "Warning!"

Please help. Thanks.

Thanks Bob. Your code works, but that code would not go along with mine.
That code is just a small piece of mine.

I have to use "If" statements. Basically, my whole code would test that
cell first for date. Then if it is true, it will go on to another "If"
statement and so on.

Can you help me with "IF"? Thanks.

"Bob Phillips" wrote:

How about

With Activesheet.Range("B8")
If .Value < "" Then
If Not IsDate(.Value) Then
MsgBox "Please enter a date in cell B8.", , "Warning!"
EndIf
Else
MsgBox "Please enter a date in cell B8.", , "Warning!"
End If
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"AccessHelp" wrote in message
...
I have a cell where people type in a date. The format is "mm/dd/yyyy"
(e.g.
11/18/2005). I want to write a "If" statement to check whether the user
types in a date in that cell. If they leave it blank or type anything
else,
I want to have a message box comes up. So this is what I have, and it's
not
working.

If ActiveSheet.Range("B8").NumberFormat < "m/d/yyyy" Then
MsgBox "Please enter a date in cell B8.", , "Warning!"

Please help. Thanks.

Perhaps just try

If IsDate(Range("B8").Value Then
' your code

--

HTH

RP
(remove nothere from the email address if mailing direct)


"AccessHelp" wrote in message
...
Thanks Bob. Your code works, but that code would not go along with mine.
That code is just a small piece of mine.

I have to use "If" statements. Basically, my whole code would test that
cell first for date. Then if it is true, it will go on to another "If"
statement and so on.

Can you help me with "IF"? Thanks.

"Bob Phillips" wrote:

How about

With Activesheet.Range("B8")
If .Value < "" Then
If Not IsDate(.Value) Then
MsgBox "Please enter a date in cell B8.", , "Warning!"
EndIf
Else
MsgBox "Please enter a date in cell B8.", , "Warning!"
End If
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"AccessHelp" wrote in message
...
I have a cell where people type in a date. The format is "mm/dd/yyyy"
(e.g.
11/18/2005). I want to write a "If" statement to check whether the
user
types in a date in that cell. If they leave it blank or type anything
else,
I want to have a message box comes up. So this is what I have, and
it's
not
working.

If ActiveSheet.Range("B8").NumberFormat < "m/d/yyyy" Then
MsgBox "Please enter a date in cell B8.", , "Warning!"

Please help. Thanks.