Filter

[thegameoflife]

I'm trying to pass the value of x to the filter, with no luck at all.

Private Sub Form_Load()

    Dim X As String
    
    X = Me.OpenArgs
    
    Me.Filter = "[Cust Number]= X"
    Me.FilterOn = True

End Sub

 

[Steve101]

Try the following:

Private Sub Form_Load()

Dim X As String

X = Me.OpenArgs

Me.Filter = "[Cust Number]= '" & X & "'"
Me.FilterOn = True

End Sub

You seem to be missing the quotes around the string.


Cheers,

Steve Lewy
Solutions Developer
steve@lewycomputing.com.au