help for find first date

[shafq7]

Hello
Iam trying to find a date from table "taqrir" matching to date in unbound text box in form by this code as below:

 
Private Sub cmdAppend_Click()
Dim dbs As Database
Dim rs As Recordset
If IsNull(Me.M_Date) Then
MsgBox "Please Enter desire Monday date first!"
Else
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Taqrir", dbOpenDynaset)
        rs.FindFirst "[Date]=#" & Me.M_Date & "#"
 
        If rs.NoMatch Then
 
 
 
DoCmd.RunSQL "INSERT INTO Taqrir ( Std, darajah, subid, period, dayid, srno )SELECT [darajah] & [div] & [sex] AS Std, [jadwal table].darajah, [jadwal table].subid, [jadwal table].period, [jadwal table].dayid, [jadwal table].srno FROM [jadwal table]WHERE ((([jadwal table].darajah)>0));"
DoCmd.RunSQL "PARAMETERS [Forms]![frm_main]![M_Date] DateTime;UPDATE Taqrir SET Taqrir.[Date] = IIf([dayid]=1,[Forms]![frm_main]![M_Date],[Forms]![frm_main]![M_Date]+([dayid]-1))WHERE (((Taqrir.Date) Is Null));"
 
    MsgBox "Data Appended successfully!"
 
    Else
            'Display the found record in the form.
           MsgBox "Data already appended for this date! Get print outs of them from below. "
        End If
        Set rs = Nothing
    End If
End Sub
 

I have matching date in taqrir table, but instead i am getting No Match results. Please help to resolve this issue.

I wil be too grateful of u.

Mustafa Shfaqat husain

[puppydogbuddy]

Hello
Iam trying to find a date from table "taqrir" matching to date in unbound text box in form by this code as below:

Private Sub cmdAppend_Click()
Dim dbs As Database
Dim rs As Recordset
If IsNull(Me.M_Date) Then
MsgBox "Please Enter desire Monday date first!"
Else
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Taqrir", dbOpenDynaset)
rs.FindFirst "[Date]=#" & Me.M_Date & "#"

If rs.NoMatch Then



DoCmd.RunSQL "INSERT INTO Taqrir ( Std, darajah, subid, period, dayid, srno )SELECT [darajah] & [div] & [sex] AS Std, [jadwal table].darajah, [jadwal table].subid, [jadwal table].period, [jadwal table].dayid, [jadwal table].srno FROM [jadwal table]WHERE ((([jadwal table].darajah)>0));"
DoCmd.RunSQL "PARAMETERS [Forms]![frm_main]![M_Date] DateTime;UPDATE Taqrir SET Taqrir.[Date] = IIf([dayid]=1,[Forms]![frm_main]![M_Date],[Forms]![frm_main]![M_Date]+([dayid]-1))WHERE (((Taqrir.Date) Is Null));"

MsgBox "Data Appended successfully!"

Else
'Display the found record in the form.
MsgBox "Data already appended for this date! Get print outs of them from below. "
End If
Set rs = Nothing
End If
End Sub


I have matching date in taqrir table, but instead i am getting No Match results. Please help to resolve this issue.

I wil be too grateful of u.

Mustafa Shfaqat husain

Try this and see if it helps. Access date data types have date and time components. Using the DateValue function will extract just the date component. I am not positive, but I don't think you need date delimiter # when DateValue used, but try it both ways:

rs.FindFirst "[Date]= " & DateValue(Me.M_Date)

if the above does not work, then try this with date delimiter.
rs.FindFirst "[Date]=#" & DateValue(Me.M_Date) & "#"