Hi Pbaldy

Thanks for your help

I have tried your suggestion but I get the error

"Item not found in this collection".

My code is below

Private Sub Command115_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = CurrentDb.OpenRecordset("SELECT [Password] FROM [tblpasswords] WHERE [Used] = 0")
With rs
Me.lngEncrpytion_Password = ![Password]
.Edit
![Password used] = True
.Update
.MoveNext
End With
End Sub

The line it highlights in debug mode is

![Password used] = True


Any ideas?

Thanks

Sure; you have to add that field to the SELECT clause for the recordset.

Thanks again

Sorry but do you mind telling me the code to do this.

Thanks

surely wouldn't you be better off using SQL for this
there seems little point interrating through a records set if all you want to do is update
UPDATE tblpasswords] set [password used] = true WHERE [Used] = 0"

Set rs = CurrentDb.OpenRecordset("SELECT [Password], [Password used] FROM [tblpasswords] WHERE [Used] = 0")

healdem, given that the goal is to first get an unused password, then flag it as used, the recordset seems appropriate to me. Your SQL would flag all as used.

Healdem and Pbaldy....

THANK YOU!

Thanks for all your help. I have managed to get my database working like how I want it.

Happy to help!

true
but if the object is to get a single password (the next available one, then you have some code that gets it. you then have sufficient informatiuon to update with a WHERE clause. there should be no need to iterate through a record set to rediscover the correct row in the password table.

heck he could edit the column in the recordset that retrieved the password.

I believe that's exactly what's being done:

Me.lngEncrpytion_Password = ![Password]
.Edit
![Password used] = True
.Update

The first line gets the password, the next 3 edit the other field. I grant you that the .MoveNext is confusing, and shouldn't be in there. It may even cause an error. There is no loop.

fairy snuff
saw the .movenext and assumed the worst......