Run-time error '3260'

[deeaccess]

Hi All,

We are using Microsoft 97 access on Windows 2003 server.

When we try to go into one of the forms, it shows the following run time error:

Run-time error '3260':

Couldn't update; currently locked by user 'Admin' on machine 'FRONTOFFICE01'.

This particular problem never occurred before as we've used this application for more than 3 years. The following is snippet code of the function where this problem is occurring:

Private Function testBdgt()
'ensure that these fields are added before proceeding with other fields
If fldDt <> "" And fldNm <> "" And fldCust <> "" And fldSlsID <> "" And fldAdd1 <> "" And fldCty <> "" Then
fldBdgt.Enabled = True
tckAmt.Enabled = True
slAmt.Enabled = True
Rollers.Enabled = True
Tanks.Enabled = True
Trucks.Enabled = True
Miscellaneous_Equipment.Enabled = True
Inventory_Items.Enabled = True
Miscellaneous_Items.Enabled = True
Asphalt.Enabled = True
Workers.Enabled = True
fldFrmnID.Enabled = True
txtFrmnHrs.Enabled = True
'add a budget even if no value specified
If IsNull(fldBdgt) Then
fldBdgt = 0
updateBdgt
End If
Else
fldBdgt.Enabled = False
tckAmt.Enabled = False
slAmt.Enabled = False
Rollers.Enabled = False
Tanks.Enabled = False
Trucks.Enabled = False
Miscellaneous_Equipment.Enabled = False
Inventory_Items.Enabled = False
Miscellaneous_Items.Enabled = False
Asphalt.Enabled = False
Workers.Enabled = False
fldFrmnID.Enabled = False
txtFrmnHrs.Enabled = False
End If
Form.Refresh (problem occurs here)
End Function

Any suggestions would be much appreciated to resolve this problem!

Thank you,
Dee

 

[grande]

Someone might have it open. I can't update anything on my DBs if someone else has it open (a slight problem...)

-------------------------
Just call me Captain Awesome.