Hello,
I have a form with an on click event that makes fields visible when checked.
I am then calling the click event when the form loads, opens and current.
The on click is working, however when i reopen the form the status of the job doesnt hold the changes even when the checkbox is true.
I have a few of these, all seem to be working except this one. Not sure why if anyone can help?
I have a form with an on click event that makes fields visible when checked.
I am then calling the click event when the form loads, opens and current.
The on click is working, however when i reopen the form the status of the job doesnt hold the changes even when the checkbox is true.
I have a few of these, all seem to be working except this one. Not sure why if anyone can help?
Code:
Private Sub ChkAssembled_Click()
If Me.ChkAssembled = True Then
Me.LblProdTick.Visible = True
Me.CboAssemblers.Visible = True
Me.LblAssemblers.Visible = True
Me.LblActualMins.Visible = True
Me.TxtActualMins.Visible = True
Me.TxtActualHours.Visible = True
Me.LblActualHours.Visible = True
Me.LblAssComplete.Visible = True
Me.LblAssComp.Visible = True
Me.LblAssDate.Visible = True
Me.TxtAssComplete.Visible = True
Me.TxtAssemblyDue.Visible = True
Me.LblAssemblyDue.Visible = True
Else
Me.LblProdTick.Visible = False
Me.CboAssemblers.Visible = False
Me.LblAssemblers.Visible = False
Me.LblActualMins.Visible = False
Me.TxtActualMins.Visible = False
Me.TxtActualHours.Visible = False
Me.LblActualHours.Visible = False
Me.LblAssComplete.Visible = False
Me.LblAssComp.Visible = False
Me.LblAssDate.Visible = False
Me.TxtAssComplete.Visible = False
Me.TxtAssemblyDue.Visible = False
Me.LblAssemblyDue.Visible = False
End If
End Sub
Code:
Private Sub Form_Open(Cancel As Integer)
Call CboJobTypeID_Click
Call ChkLaminateBtops_Click
Call ChkSolidSurfaceTops_Click
Call ChkBtopOther_Click
Call ChkSubstrates_Click
Call ChkTemplates_Click
Call ChkCarcassCut_Click
Call ChkCarcassEdge_Click
Call ChkPFBCut_Click
Call ChkPFBEdge_Click
Call ChkWhiteSatCut_Click
Call ChkTwoPakPaint_Click
Call ChkHingeDrill_Click
Call ChkBIDs_Click
Call ChkAssembled_Click
Call ChkFingerP_Click
Call ChkPickHW_Click
Call ChkGlazing_Click
Call ChkMetalWork_Click
Call ChkBoardOrder_Click
Call ChkEdgeOrder_Click
Call ChkHW_Order_Click
Call CboDeliverPickUp_Click
Call CboSupplyInstall_Click
End Sub