Passing a Field Value to a Variable

[bcournoyer]

Beginners question. I'm just learning VBA for Access and I'm having an issue setting a field value to a variable. See code below.



I can get the value of the field I click on (ORDERNO) and even display it in a msgbox. But I cannot get it assigned to a variable. When I run the below code I get an Object Require error highlighting the Set orderNum line.
I've tried the following for that line.

Set orderNum = myF![ORDERNO].Value
and
Set orderNum = Str(myF![ORDERNO])

What's the obvious error that my inexperience cannot see?

Thx

Private Sub ORDERNO_Click()
    Dim myF As Form, orderNum As String, whereCnd As String
    Set myF = Forms("frmSalesOrderList")
    'MsgBox myF![ORDERNO]
    Set orderNum = myF![ORDERNO]
    Set whereCnd = "[ORDERNO] = " & orderNum
    MsgBox whereCnd
    'docmd.OpenForm(frmSalesOrderInfo,acNormal,,whereCnd,,,)
End Sub

[Bob Fitz]

Why bother with the variable. You can reference [ORDERNO] in Docmd.OpenForm() method.

[pbaldy]

I'm with Bob but the error is because you don't want the "Set" keyword. Should be:

orderNum = myF![ORDERNO].Value

[ranman256]

variables can be set with simple equal:
dim sMyVar as string
sMyVar = me.txtBox


OBJECTS are set using SET:
dim obj as object
set obj = txtBox

now obj is now a text box obj.
not needed just to grab the value.

[bcournoyer]

Thanks guys, I now understand the Set better. I also saw as Bob said my error was in the openForm method. Replaced all my code with this:

Private Sub ORDERNO_Click()
    DoCmd.OpenForm "frmSalesOrderInfo", acNormal, , "[ORDERNO] = '" & orderNum & "'"
End Sub

[bcournoyer]

Oops,

Correct code:

Private Sub ORDERNO_Click()
    Dim myF As Form
    Set myF = Forms("frmSalesOrderList")
    DoCmd.OpenForm "frmSalesOrderInfo", acNormal, , "[ORDERNO] = '" & myF![ORDERNO] & "'"
End Sub

[Micron]

Declaring then setting the form variable there does not make sense - you don't use it.
Also perhaps worth mentioning that when you Set anything, it's generally considered good practice to reclaim that memory space by setting it to Nothing.