Allow Edits, Additions, and Deletions Button Not working

[TriniGal]

Hello,

I have a form and I have found that the users are not following the proper procedures when adding new records, and in turn they edit existing data. I came up with the following solution to force them to follow proper procedures. I have the following code attached to my add new record button. However its not working. When I click on the button I get an error "Object Required". Can someone please help me figure out why this is happening.

Private Sub ADDNEWPSIDBUTTON_Click()
On Error GoTo Err_ADDNEWPSIDBUTTON_Click

    Me.AllowEdits = True
    Me.AllowAdditions = True
    Me.AllowDeletions = True
    
    Leaks.Form.AllowEdits = True
    Leaks.Form.AllowAdditions = True
    Leaks.Form.AllowDeletions = True
    
    DoCmd.GoToRecord , , acNewRec

Exit_ADDNEWPSIDBUTTON_Click:
    Exit Sub

Err_ADDNEWPSIDBUTTON_Click:
    MsgBox Err.Description
    Resume Exit_ADDNEWPSIDBUTTON_Click
    
End Sub

 

[ZmrAbdulla]

Problem in these lines..
See how to refer to forms/controls on form/subform

http://support.microsoft.com/?kbid=209099

http://www.mvps.org/access/forms/frm0031.htm

________________________________________________________
Zameer Abdulla
Help to find Missing people
Sharp acids corrode their own containers.

 

[ZmrAbdulla]

Oh.. forgot to paste the part..
[tt]
Leaks.Form.AllowEdits = True
Leaks.Form.AllowAdditions = True
Leaks.Form.AllowDeletions = True
[/tt]

________________________________________________________
Zameer Abdulla
Help to find Missing people
Sharp acids corrode their own containers.

 

[TheAceMan1]

How are ya TriniGal . . .

Have a look at the forms [blue]DataEntry[/blue] property. When set to yes, [blue]users can only add records![/blue]

[blue]   Me.DataEntry = True[/blue]

See Ya! . . . . . .