yet again.... I'm stuck ("something" in the syntax is not right)
(could you plz point me in the right direction)
as always, with appreciation in advance,Code:Public Sub AtticStock(frm As Access.Form) 'Me!Subform1.Form!ControlName.Enabled With frm With !fsubSpec_AltMfr.Form 'field added 2020.06.08 may not yet have a value; initiate If IsNull(!chkAtticStockYN) Then !chkAtticStockYN = 0 End If !txtComplete_QTY!Enabled = !chkAtticStockYN !txtComplete_PCT!Enabled = !chkAtticStockYN !txtModule_QTY!Enabled = !chkAtticStockYN !txtModule_PCT!Enabled = !chkAtticStockYN !txtDriver_Qty!Enabled = !chkAtticStockYN !txtDriver_PCT!Enabled = !chkAtticStockYN !txtTrim_QTY!Enabled = !chkAtticStockYN !txtTrim_PCT!Enabled = !chkAtticStockYN !txtQtyBasis!Enabled = !chkAtticStockYN End With End With End Sub
m.