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.OpenRecordse t("LTOT_second_ oxygen2", dbOpenDynaset)
rs.FindFirst "[HospitalNumber] = '" & Me![general_info.Ho spitalNumber] & "'"
If rs.NoMatch Then
rs.AddNew
rs![HospitalNumber] = Me![general_info.Ho spitalNumber]
rs.Update
End If
Any ideas why this could be-I am stumped!!!?????
Could this have anything to do with access permissions set by an IT department? At the moment i havent set any form of workgroups, permissions etc as its only a beta trial database with one client.
Set rs = db.OpenRecordse t("LTOT_second_ oxygen2", dbOpenDynaset)
rs.FindFirst "[HospitalNumber] = '" & Me![general_info.Ho spitalNumber] & "'"
If rs.NoMatch Then
rs.AddNew
rs![HospitalNumber] = Me![general_info.Ho spitalNumber]
rs.Update
End If
Any ideas why this could be-I am stumped!!!?????
Could this have anything to do with access permissions set by an IT department? At the moment i havent set any form of workgroups, permissions etc as its only a beta trial database with one client.
Comment