The database is on a network server. There is no frontend on local machines. Everthing is running from the server. Things were OK with 2002. The form concerned has has the following code to lock it:
Sub sLockControls(frm As Form, YesOrNo As Boolean)
Dim ctr As Control
On Error GoTo ErrHandler
For Each ctr In frm.Section(0).Controls
Select Case ctr.ControlType
Case acTextBox, acListBox, acComboBox, acCheckBox
ctr.Locked = YesOrNo
'ctr.BackColor = BackgroundColor
ctr.FontItalic = ctr.Locked
Case Else
'nothing yet
End Select
ResumePoint:
Next
Exit Sub
ErrHandler:
Resume ResumePoint
End Sub
when you edit the form on a blank field it OK but when you change a field the error occurs.
It is also using the Microsoft Audit code from there site to record changes.
I have seen the error on one other form that did not have ctr lock.
Any suggestion would be appreciated.
Never give up never give in.
There are no short cuts to anything worth doing
Sub sLockControls(frm As Form, YesOrNo As Boolean)
Dim ctr As Control
On Error GoTo ErrHandler
For Each ctr In frm.Section(0).Controls
Select Case ctr.ControlType
Case acTextBox, acListBox, acComboBox, acCheckBox
ctr.Locked = YesOrNo
'ctr.BackColor = BackgroundColor
ctr.FontItalic = ctr.Locked
Case Else
'nothing yet
End Select
ResumePoint:
Next
Exit Sub
ErrHandler:
Resume ResumePoint
End Sub
when you edit the form on a blank field it OK but when you change a field the error occurs.
It is also using the Microsoft Audit code from there site to record changes.
I have seen the error on one other form that did not have ctr lock.
Any suggestion would be appreciated.
Never give up never give in.
There are no short cuts to anything worth doing