rs update not working

[tania20]

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!!!?????

 

[Crowley16]

is this a split db? does the user at the customer site have relevant network permissions against the back end mdb file?

--------------------
Procrastinate Now!

 

[tania20]

it is not a split database, is only on the local pc.i am totally baffled-can not replicate this on three machines i have tested it on.im just not sure wehre the error lies, with either findfirst, nomatch, addnew or update.all the rest of the database is working fine except for this part

 

[tania20]

could it have something to do with access permissions that may have been set by an IT department when they installed Access?

 

[JoeAtWork]

What error message are they getting?

 

[tania20]

they are not getting any error messages.its simply not adding new record and updating for nomatch

 

[maxhugen]

I've no idea if this will help but... the form control you're accessing sounds a bit suss to me: Me![general_info.HospitalNumber].

Can you try naming the control and using that, rather than using a field name with the DOT notation? eg, call it 'cboHospitalNumber', and change your code ref to Me!cboHospitalNumber?

Not sure if this will help at all, but may be worth a try.


Max Hugen

http://www.hugen.com.au

Australia

 

[tania20]

i agree the formatting not the greatest, but that doesnt explain why it works with no problems on a range of pcs...of which i have tried in both admin and limited user logins

 

[maxhugen]

I know, it's maddening when everything works perfectly till the client tries it. If you have access to the client's pc, could you try stepping through the code to ensure you're getting the values you want?

For example, if rs![HospitalNumber] is a required field, and for whatever reason Me![general_info.HospitalNumber] isn't returning a value, the update will fail.

Max Hugen

http://www.hugen.com.au

Australia

 

[tania20]

yeh thats my next step tmrw, but has to be done over phone.for what kind of reasons would it not return a value?

 

[maxhugen]

I don't know! It's kinda grasping at straws

Max Hugen

http://www.hugen.com.au

Australia

 

[JoeAtWork]

At this point I would say it is 50/50 whether this is an actual error, or a user misunderstanding. How much confidence do you have in the person reporting the "error" to you?

If it was me, I would want to look over their shoulder while they do it, or have them send me their database.

When I can't replicate an error myself, and there is no error message, the problem usually turns out to be the operator not understanding the software.

 

[maxhugen]

G'day JoeAtWork

Yeh, you do have to take users' responses with a grain of salt!

However, I have seen probs that I couldn't replicate in my dev environment... slow network problems, JET versions not current, and so on.

tania20, if you have no way to look over the client's shoulder (the best way, as JoeAtWork suggested), it may not help to get their db, as you may find it just continues to work on your workstation.

One thing you could try is to subscribe to GoToMeeting (but a bit pricey), as this allows you to take control of the user's pc, and try debugging it yourself.

If that's not an option, I'd add some conditional debugging info, eg:

function myFunc()
...
[b]Const cDEBUG%=True[/b]
Dim iCnt&
...

    Set rs = db.OpenRecordset("LTOT_second_oxygen2", dbOpenDynaset)
    [b]' check that the recordset really did return some records
    if cDEBUG then
        rs.MoveLast: iCnt=rs.RecordCount
        msgbox "Records returned: " & iCnt
    end If

    ' check we have a value
    if cDEBUG then msgbox "Find HospitalNumber: " & _ 
                   Me![general_info.HospitalNumber][/b]

    rs.FindFirst "[HospitalNumber] = '" & _
                 Me![general_info.HospitalNumber] & "'"
    If rs.NoMatch Then

        [b]' see if we had a match
        if cDEBUG then msgbox "No match found"[/b]

        rs.AddNew
        rs![HospitalNumber] = Me![general_info.HospitalNumber]
        rs.Update

        [b]' let's see if a record was added
        if cDEBUG then
            rs.Bookmark = rs.LastModified
            msgbox "Last record added: " & _
                   rs![HospitalNumber]
        endif[/b]
    End If

    ... more code

end function

Using this, you'll only need to ask your user to toggle the const cDEBUG to True, and back to False.

Or you could even temporarily add a checkbox 'cDEBUG' on the form that call the function, and use that to toggle the debugging.

HTH

Max Hugen

http://www.hugen.com.au

Australia

 

[JoeAtWork]

You wouldn't happen to have an error logging file the user can send you?

 

[tania20]

hey, thanks to everyone for all their help! the problem is sorted.the database had been saved to all users/application data, so that when the database was opened by a limited user updates and additions via open recordset were not allowed. i solved this by simply moving the folder to the C:/ drive - phew