referencing to a control property on a subform

[markjkubicki]

yet again.... I'm stuck ("something" in the syntax is not right)


(could you plz point me in the right direction)

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

as always, with appreciation in advance,
m.

[kd2017]

Try .Enabled instead of !Enabled

[June7]

What happens - error message, wrong result, nothing?

Try using
.txtComplete_QTY.Enabled
etc

[markjkubicki]

.txtComplete_QTY.Enabled = .chkAtticStockYN = application or object defined error
!txtModule_QTY.Enabled = .chkAtticStockYN = application or object defined error
!txtDriver_PCT.Enabled = !chkAtticStockYN = can't find the field chkAtticStockYN referred to in your expression
.txtTrim_PCT.Enabled = !chkAtticStockYN = can't find the field chkAtticStockYN referred to in your expression

[June7]

Suggest you provide db for analysis.

[ssanfu]

Maybe try getting the code to execute WITHOUT using the "WITH...END WITH" syntax.
Then start adding the "WITH...END WITH" syntax - one "WITH...END WITH" at a time.
(small steps, little bites)

I am very confused about which is the form and which is the sub form......

[Micron]

I'd say that if you create a With block, you can DO things with the referenced object, but not manipulating sub objects. The With is with the higher level object not the lower one. It ought to work if it was like

With frm!fsubSpec_AltMfr.Form

and then you wouldn't need to nest With blocks either.