Preventing user changes until specified

[smardonl]

I have a form with several fields all related to the same table. My ultimate goal is to prevent the user from changing any fields until they select a button called btnEditRec and once they have made their changes and selected a button called btnSaveRec, the controls will all lock again. I have tried the following methods with little success or ease (form is called "Updated Data Entry Form")...

/*Loads form with no editing, changes with OnClick event*/
Private Sub Form_Load()
AllowEdits = False
AllowDeletes = False
AllowAdditions = False
DataEntry = False
End Sub

Private Sub Private Sub btnEditRec_Click()
AllowEdits = True
AllowDeletes = True
AllowAdditions = True
DataEntry = False
End Sub

/*Loads form with a snapshot record set and changes to a dynaset with OnClick event*/
Private Sub Form_Current()
Dim rs as Recordset
Forms![Updated Data Entry Form].rs=2
End Sub

Private Sub btnEditRec_Click()

Dim rs As Recordset
Forms![Updated Data Entry Form].rs = 0

End Sub

I'm sure there are ways to make my life easier. Does anyone know them? Thanks in advance,

Lindsay

 

[Abulafia]

Private Sub Form_Load() 
    Call LockAll(True) ' passing True will lock all (False will unlock)
End Sub 

Private Sub FormLock(boo As Boolean)
    On Error Resume Next
    Dim ctl As Control
    For Each ctl In Me
        Me.ctl.Locked = Not boo
    Next
End Sub