Object Required Error

JeffGirard · July 31st, 2006, 08:49 AM

I have a form that opens another form when a command button is clicked. This newly opened form has this code on load:

Private Sub Form_Load()
If [Forms]![frmCDs]![luwSoftware].Value Is Not Null Then
    List1.RowSource = "qrySW6"
    ElseIf [Forms]![frmCDs]![luwSoftware].Value Is Null Then
    List1.RowSource = "qrySW"
End If
End Sub

It keeps returning the "Object Required" error message. frmCDs!luwSoftware exists... so I'm confused as to why this won't work.

echovue · July 31st, 2006, 08:54 AM

Hi Jeff,

I was struggling with something like this yesterday. I think what ended up working was something in the format...

Forms!frmCDs.luwSoftware.Value Is Not Null Then

If that doesn't work, try just...

Forms!frmCDs.luwSoftware Is Not Null Then

And if that doesn't work we could try some other things.

Mike

Mike
EchoVue.com

JeffGirard · July 31st, 2006, 08:58 AM

Neither of those worked. But it will work if I use, say:

Forms!frmCDs!luwSoftware.Value = 7 Then

So I'm thinking maybe it doesn't like the null thing. Any ideas?

JeffGirard · July 31st, 2006, 09:04 AM

Silly me. Is Not Null is a SQL thing, and is not recognized by VBA. Instead, I had to use IsNull().

Private Sub Form_Load()
If IsNull(Forms!frmCDs!luwSoftware.Value) = False Then
    List1.RowSource = "qrySW6"
    ElseIf IsNull([Forms]![frmCDs].[luwSoftware]) = True Then
    List1.RowSource = "qrySW"
End If
End Sub

There we go. Thanks anyway Mike.

Lala · October 1st, 2009, 06:08 AM

I too just wanted to say thank you. Looking at my code, adding better handling etc did not help. I too had used the SQL code instead of th VBA.

I'm soooo pleased to move on...
Ta very much!

SerranoG · October 2nd, 2009, 08:09 AM

Simplified, it would be

Code:

Private Sub Form_Load()
 
    If IsNull(Forms.frmCDs.Form.luwSoftware) Then
        Me.List1.RowSource = "qrySW"
    Else
        Me.List1.RowSource = "qrySW6"
    End If
 
End Sub