Make a unbound field = 1

[gheyman]

Private Sub Command11_Click()
On Error GoTo Command11_Click_Err

     updateQuery1
    DoCmd.OpenForm "frm_NIS_TSL", acNormal, "", "", , acNormal
        [TextSql].Value = 1

Command11_Click_Exit:
    Exit Sub

Command11_Click_Err:
    MsgBox Error$
    Resume Command11_Click_Exit

End Sub

How do I get TextSql to equal 1 in this event? Its an unbound text field

 

[Micron]

Forms!frm_NIS_TSL.TextSql = 1?
or
Forms!frm_NIS_TSL.TextSq= "1" ?

 

[gheyman]

I get a message "Application-defined or Object-defined error

Private Sub Command11_Click()
'Go to TSL Button
On Error GoTo Command11_Click_Err

     updateQuery1
    DoCmd.OpenForm "frm_NIS_TSL", acNormal, "", "", , acNormal
    Forms!frm_NIS_TSL.TextSq = 1


Command11_Click_Exit:
    Exit Sub

Command11_Click_Err:
    MsgBox Error$
    Resume Command11_Click_Exit

End Sub

 

[gheyman]

Got it!

It was missing an "l"

Forms!frm_NIS_TSL.TextSq = 1

Forms!frm_NIS_TSL.TextSql = 1

Thank You!

 

[Micron]

Yup, I made boo boo in 2nd example, which was intended for where value would be text.
You're welcome.