sundaram
Registered User.
- Local time
- Today, 06:32
- Joined
- May 28, 2009
- Messages
- 36
Dear, I have tried several ways but it is not pulling the record. "Not Fund" Msg is displaying.
I have tried entering date as dd/mm/yyy, mm/dd/yy and dd/mm/yyyy.
I table "SubittalDate" is date type and Medium date in display so Please heop 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 tblemp.MBD"
Exit Sub
End If
Strsql = "SUBMITTALDATE=#" & Format(DtCri, "mm/dd/yy") & "#"
rst.FindFirst Strsql
Debug.Print Strsql
If rst.NoMatch = False Then
Movefields
Else
MsgBox "Not Found."
rst.MoveFirst
End If
I have tried entering date as dd/mm/yyy, mm/dd/yy and dd/mm/yyyy.
I table "SubittalDate" is date type and Medium date in display so Please heop 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 tblemp.MBD"
Exit Sub
End If
Strsql = "SUBMITTALDATE=#" & Format(DtCri, "mm/dd/yy") & "#"
rst.FindFirst Strsql
Debug.Print Strsql
If rst.NoMatch = False Then
Movefields
Else
MsgBox "Not Found."
rst.MoveFirst
End If