I would like to track my milage.
MilageId - Autonumber Primary Key
RepId - Number
I have a from for start milage and a form for Stop milage. I would like to be able to have the stopMilage form lookup on the table to see if there is a record with this date and RepId and add the current information to the same record. If nothing is present (I forgot to start my milage for the day) just add a new record.
I have been trying to write some code in vb
. This is what I have so far.
Private Sub Combo7_AfterUpdate()
Dim strSQL As String
Dim lngKey As Long
lngKey = Nz(DLookup("milageid", "milage", "RepID = " & Me.Combo7 & " AND [Milage_Date] = #" & DATE & "#"), 0)
If lngKey <> 0 Then
Me.RecordsetClone.FindFirst "[milageId] = " & lngKey
Me.Bookmark = Me.RecordsetClone.Bookmark
I get an error on the last line
Me.Bookmark = Me.Recordsetclone.Bookmark
It says no record set. The line just above it has the correct value for the lngKey but I don't know how to get the book mark feature to work correctly.
Any help would be appreciated.