Form - Find Date (1 Viewer)

[sundaram]

The following code is showing only "Not Found", what is error in the code. please advise me.


Dim Strsql As String
Dim DtCri As Date
Dim X As String
X = rst.Fields("SUBMITTALDATE").Value
DtCri = InputBox("Enter the SUBMITTALDATE", "Enter the Date/", "Question/")
If Len(DtCri) = 0 Then
MsgBox Prompt:="No Criteria Specified", Title:="Search tblRFI.MBD"
Exit Sub
End If
'Strsql = "SUBMITTALDATE=#" & Format(DtCri, "mm/dd/yy") & "#"
Strsql = "SUBMITTALDATE=#" & DtCri & "#"
rst.FindFirst Strsql
Debug.Print Strsql
If rst.NoMatch = False Then
Movefields
Else
MsgBox "Not Found."
rst.MoveFirst
End If

 

[DCrake]

Change to

Strsql = "SUBMITTALDATE=#" & CDate(DtCri) & "#"

Also is the format of the date the same as the table?

 

[sundaram]

Change to

Strsql = "SUBMITTALDATE=#" & CDate(DtCri) & "#"

Also is the format of the date the same as the table?

Dear,


Thanks for your kind reply,

Still it is showing the same msg "Not Found". I have checked it the date type is Date\time (medium date) in table and in the form it is medium date. It is not showing any error in the code but it is not pulling the data.

Please do the suggest me.

 

[DCrake]

What is being returned by sqlstr?

Dim X As String
X = rst.Fields("SUBMITTALDATE").Value

Why is this in your code when its not being used?

What is the recordsource for the form?

 

[sundaram]

Change to

Strsql = "SUBMITTALDATE=#" & CDate(DtCri) & "#"

Also is the format of the date the same as the table?

Thanks to your reply
Now it is working out, Its very fine.