Access Permissions

[paquer]

Hi'

I have a 'Full Data User' Account with full permissions for all
tables.
On the forms this user had only Read Design.

The user was able to change data accordingly, input data into
previously null fields.
Removing all data from a field 'making it null' etc...

Now when the user attempts to remove data from a field making it null'
or populating a null field, I get a "Runtime error 2602" stating they
need modify permissions for the form?

I have the following code written into the form to confirm changes to
each record;
(This is where the Debug cmd goes to)

Private Sub Form_BeforeUpdate(Cancel As Integer)

'Provide the user with the option to save/undo
'changes made to the record in the form

If MsgBox("Changes have been made to this record." _
& vbCrLf & vbCrLf & "Do you want to save these
changes?" _
, vbYesNo, "Changes Made...") = vbYes Then
DoCmd.Save
Else
DoCmd.RunCommand acCmdUndo
End If
Last_Updated = Now()
End Sub

[paquer]

I figured it out on another discussion.
DoCmd.Save - attempts to save design changes to the form, not the
records your changing.
Access saves the records all on its own. I therefore just removed the
DoCmd.Save from the code.
Thanks Allan Browne!

No problems now. Except that you cant have record level locking in a
RunTime database!

On Mar 16, 3:02 pm, [e-mail] wrote:

Hi'

I have a 'Full Data User' Account with full permissions for all
tables.
On the forms this user had only Read Design.

The user was able to change data accordingly, input data into
previously null fields.
Removing all data from a field 'making it null' etc...

Now when the user attempts to remove data from a field making it null'
or populating a null field, I get a "Runtime error 2602" stating they
need modify permissions for the form?

I have the following code written into the form to confirm changes to
each record;
(This is where the Debug cmd goes to)

Private Sub Form_BeforeUpdate(Cancel As Integer)

'Provide the user with the option to save/undo
'changes made to the record in the form

If MsgBox("Changes have been made to this record." _
& vbCrLf & vbCrLf & "Do you want to save these
changes?" _
, vbYesNo, "Changes Made...") = vbYes Then
DoCmd.Save
Else
DoCmd.RunCommand acCmdUndo
End If
Last_Updated = Now()
End Sub