Date

[ariel81]

i have a statement like this:

Dim TempDate As Date

TempDate = ReportDay & "/" & h!txtMthNum & "/" & h!txtSqnReportYear

during program run time there will be a run time error '13' (type mismatch).
in debug mode, the values inside are:


ReportDay = 30 (correct)
h!txtMthNum = 2 (correct)
h!txtSqnReportYear = 2007 (correct)
TempDate = 12:00:00 AM (wrong)

TempDate value is 12:00:00 AM (wrong) instead of "30/2/2007" for TempDate.
is there anything wrong in my statement?

 

[boblarson]

Set it using
TempDate = "#" & ReportDay & "/" & h!txtMthNum & "/" & h!txtSqnReportYear & "#"

 

[ariel81]

it doesn't work...

here is the full statement

Dim TempDate As String
Dim FindDate As Date

 TempDate = ReportDay & "/" & h!txtMthNum & "/" & h!txtSqnReportYear
               FindDate = Format((TempDate), "mm/dd/yyyy")
               rst.FindFirst "InputDate = #" & FindDate & "#"

the debug mode hightlighted this statement:

FindDate = Format((TempDate), "mm/dd/yyyy")

values inside FindDate = 12:00:00 AM (Wrong)
values inside TempDate = "29/2/2007"

 

[John_W]

mmm...

You could try using a valid date?

 

[ariel81]

i put a IsDate and its solved

 If IsDate(TempDate) Then
                 FindDate = Format((TempDate), "mm/dd/yyyy")