sql error . runtime 3021 - no current record

[princess12]

Hi everyone,

i have a checkout room form where after customers check in room, the form updatess the checkinout table to check out.

the error i get is from the sql and it on the dates line, even though the query works perfectly with accurate results

sql = "SELECT * " & _
"FROM checkinout " & _
"WHERE CustomerId = " & Me.listbox.Column(0) & "" & _
" AND RoomNo = " & Me.listbox.Column(3) & "" & _
" AND CheckInDate = #" & Me.listbox.Column(4) & "#"


Set db = CurrentDb
Set rst = db.OpenRecordset(sql)



With rst
.Edit


rst!CheckOutDate = Me.txtbox1
....


could someone please point me to the right direction

thanks alot

[rpeare]

Why doesn't your table have a unique identifier? A unique identifier would help you identify a record by a single field.

Is your room number an actual number? Have you tried debug.print SQL to see what your string is returning? If you cut and paste that string into a query window does it return the expected results?

Have you tried rst!checkoutdate = "#" & me.txtbox1 & "#"

[NoellaG]

Hi,

before you can move through a recordset you have to check if there are any records. You can do so by checking if rst.BOF (Begin Of File) = rst.EOF (End Of File). If this is the case, the recordset is empty.

[princess12]

thanks for suggestions, it helped me fixed it, sorry for the trouble.