After Updating Subform

[KBNETGUY]

Hey folks I have form with a subform. The subform on load doesn't allow edits. I have two button within the sub form. One named Edit (when pressed allowing users to edit) and another named Lock (when pressed not allowing the users to edit)



What Im trying to also prevent is that if the user advances to the next Parent record with out clicking on the lock button then ullitmately there able to to begin editing the subform with having to press the Edit button. What on even can I use to prevent this

Heres the Code:

Private Sub Form_Load()
        Me.AllowEdits = False
End Sub

Private Sub Edit_RawMaterial_Click()


        Me.AllowEdits = True
        MsgBox "You are about to edit these raw materials!"


End Sub

Private Sub Lock_RawMaterial_Click()
        Me.AllowEdits = False
        MsgBox "You are about to lock these raw materials!"
End Sub

[pbaldy]

The current event of the main form will fire when they change records.

[KBNETGUY]

The current event of the main form will fire when they change records.

Actually I tried that the first time prior to me posting. If i advance the Parent form to the next record I would have thought that the Onload Event Procedure on the SUB-FORM (Private Sub Form_Load()) would have done what your saying but if I advance the parent record using the native navigation located at the very bottom of the main form then Im still able to edit the Subform contents:

[pbaldy]

The load event only fires when the form is first loaded. You need code in the main form's current event.

[KBNETGUY]

Not sure what code I would need? Any ideas. I can t use the same code thats in the subform onLoad but is there code that says Reload the Subform?

I tried adding the following code to the Form_Current on the main form but still dow not work.

[Batch Ingredients subform].Requery

Thanks again!

[Beetle]

You don't need to reload the sub form, you just need to set the AllowEdits property. In the Current event of the main form;

Me!YourSubformControl.Form.AllowEdits = False

[KBNETGUY]

You are correct. Thank you!