error with rs update

[tanzania]

Hi, I have tested my databse and everthing works fine but then have given it to a customer and the following part of the code does not seems to be updating as required.

Set rs = db.OpenRecordset("LTOT_second_oxygen2", dbOpenDynaset)
rs.FindFirst "[HospitalNumber] = '" & Me![general_info.HospitalNumber] & "'"
If rs.NoMatch Then
rs.AddNew
rs![HospitalNumber] = Me![general_info.HospitalNumber]
rs.Update
End If

Any ideas why this could be-I am stumped!!!?????

 

[KeithG]

Are you receiving any errors? Have you stepped through the code?

 

[tanzania]

no because I cant replicate the problem on any of my machines - its ona clinets machine

 

[tanzania]

ah its ok, its just very finnicky, had to keep clicking enar edge of page until i got the right one