Openargs problem

[bjreb]

Why do I get and error with this code? It says the openargs is null when I run it

Private Sub TXT_SALESMAN_NUMBER_DblClick(Cancel As Integer)
Dim StCustNumber As String

StCustNumber = Me.TXT_SALESMAN_NUMBER.Text
DoCmd.OpenForm "Frm_Slm_Name", acNormal, , , , , StCustNumber
End Sub


Private Sub Form_Open(Cancel As Integer)
Dim StCustNumberSub As String


StCustNumberSub = Forms![frm_slm_name].OpenArgs
DoCmd.GoToControl "Salesnumber"
DoCmd.FindRecord StCustNumberSub, , True, , True, , True

End Sub



Thanks
Andy

 

[wazz]

i haven't tested this...

Private Sub TXT_SALESMAN_NUMBER_DblClick(Cancel As Integer)

DoCmd.OpenForm "Frm_Slm_Name", acNormal, , , , , Me.TXT_SALESMAN_NUMBER
End Sub


Private Sub Form_Open(Cancel As Integer)

DoCmd.GoToControl "Salesnumber"
DoCmd.FindRecord Me.OpenArgs, , True, , True

End Sub

 

[bjreb]

Still null

The openargs is still null. In the openform it shows correctly. When the new form opens it turns to null

 

[cuttsy]

I also have this problem.

I will reply if I figure it out.

 

[cuttsy]

I don't know why but on my form in Form_Open me.openargs = null and the Form_Load does not seem to be running. (there is a msgbox in there that is not running)

Made a new form and put the code in Form_Load instead of Form_Open and it worked.

Don't know what was going on with the old form but there you have it.