DpCmd.OpenForm

[shylock]

I have two forms, say frm1 and frm2. In a control on frm1, in the on click event, I have the following:



DoCmd.OpenForm "frmAddServicestoDT", , , , , , Me.cboServerNm

In frm2, in the Form_Load sub, I have the following:

Dim strServerName As String

strServerName = Me.OpenArgs

If Len(strServerName) > 0 Then
Me.txtSName.Value = strServerName
Else
myMsg = MsgBox("You must supply a server name!", vbInformation, "Invalid Server Name")
Cancel = True
DoCmd.GoToControl "txtSName"
End If

In debugging, I confirm that me.cboServerNm has a legitimate string. However, the strServerName = me.OpenArgs expression give a Run-time error '94': Invalid use of Null. I have tried using the On Open event instead of On Load for frm2, but get the same error. Does anyone know what I am doing wrong?

[pbaldy]

When you confirm, are you using a breakpoint or message box in code or visually looking at the combo? It's possible the combo's bound column is Null even if you see a value. Try one of the above to see what value it contains in the OpenForm line.

[pbaldy]

Oh, and I deleted your duplicate thread. There's no need to post the same question twice.

[shylock]

Oh, and I deleted your duplicate thread. There's no need to post the same question twice.

Thank myou for deleting the duplicate post. I set break points in debugging and was able to confirm the combo had a server name in it.

[pbaldy]

Can you attach the db here? I've used OpenArgs many times, and never had this problem of it dropping the value.

[shylock]

Can you attach the db here? I've used OpenArgs many times, and never had this problem of it dropping the value.

Sorry, I am not pemitted to attach the DB. I would be canned fom the job.

I my code correct on the receiving end? Specifically, the me.OpenArgs portion of strServerName = me.OpenAgrgs?

[pbaldy]

It doesn't account for a Null value being passed, but otherwise okay. I think the real question is why the value is Null. You can get around the error several ways, here's one:

strServerName = Nz(Me.OpenArgs, "")

[pbaldy]

And by the way I'd handle the selection of a server in the first form, not the second.

If Len(Me.cboServerNm & vbNullString) > 0 Then
  DoCmd.OpenForm...
Else
  MsgBox "Must select server"
End If

[shylock]

Thanks, Paul. I do select the server name in frm1. It is the server name that I am passing to the second form which use it to look up the services contained on that server.

[pbaldy]

You test in frm2 whether a selection has been made (or at least that one was received). I'm saying I would do that test in the first form, not the second.

[shylock]

Paul:

I solved the problem. I was so tired that I wasn't thinking straight. I finally remembered that a combo box can have more than one column. I simply had to pass the correct column into the second form as below:

If Len(Me.cboServerNm & vbNullString) > 0 Then
DoCmd.OpenForm "frmAddServicestoDT", , , , , , OpenArgs:=Me.cboServerNm.Column(1, Me.cboServerNm)
Else
MsgBox ("Please re-enter the server name.")
End If

Thanks for your efforts.

[pbaldy]

No problem.