this code is not editing the record in the table
Private Sub cmdclick_Click()
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_camd")
For i = 0 To rs.RecordCount - 1
If rs.Fields("mainID_PK") = Me.cbomslno Then
rs.Edit
rs!ifmdate = Me.txtdate
rs.Update
End If
Next
End Sub