Checkbox after Update event

[Mikep99]

I am new to access and need some help with coding.
I have a main form XYZ with 2 subforms. I have a checkbox on subform1 "frmExpediteS" that when checked i would like the Value in Feild "PO" of this subform to appear & populate the feild "PO" in a second subform 2 "frmExpediteDetails". I think I need an after Update event but not sure of the code to use.
Can someone please steer me in the right direction.

Tks

[puppydogbuddy]

I am new to access and need some help with coding.
I have a main form XYZ with 2 subforms. I have a checkbox on subform1 "frmExpediteS" that when checked i would like the Value in Feild "PO" of this subform to appear & populate the feild "PO" in a second subform 2 "frmExpediteDetails". I think I need an after Update event but not sure of the code to use.
Can someone please steer me in the right direction.

Tks

Try this:

The following assumes that both subforms are direct subs of the main form (subform2 is not sub of subform1). Both subforms have to be opened (but do not have to be visible) in order for this to work.

Private Sub YourCheckbox_AfterUpdate()
   Forms!frmXYZ!frmExpediteDetails.Form!PO.Value = Forms!frmXYZ!frmExpediteS.Form!PO.Value
End Sub

[Mikep99]

Thanks Buddy I will give it a go

[Mikep99]

Hi Buddy,
I tried your code & I get a synteax error message.

Private Sub Expedite_AfterUpdate()
 
Forms!frmExpedite!frmExpediteDetails.Form!PO.Value = Forms!frmExpedite!frmExpediteS.Form!PO.Value
 
End Sub

Where am I going wrong.

The main form is "frmexpedite"
Subform 1 is "frmExpediteS" Feild name to copy from "PO"
Subform 2 is "frmExpediteDetails" Feild to copy To "PO"

Tks again for any help


And Yes your right this is how the form is set up.

"The following assumes that both subforms are direct subs of the main form (subform2 is not sub of subform1). Both subforms have to be opened (but do not have to be visible) in order for this to work"

[Mikep99]

Thanks for help but its working now, with a lot of help,
the code is

Private Sub Expedite_AfterUpdate()
Dim Clone As DAO.Recordset
   If Me![Expedite] Then
      Set Clone = Forms!frmExpedite!frmExpediteDetails.Form.RecordsetClone
      With Clone
         .AddNew
         !PO = Me![PO]
         .Update
      End With
   End If
 
End Sub