Look up based on ONE or MORE

[tbonehwd]

I am curious how other people would do the example below. I currently give the user the ability to either leave the Me.cmbADVACCT blank and get all, enter an Account Number "without leading zeros" or enter multiple account numbers "with leading zeros" like '000000777777','000000601248'

        If IsNull(Me.cmbADVACCT.Value) Then
        strADVITM = " Like '*' "
    Else
        If (Me.chkACCT = True) Then
        strADVACCT = "IN (" & Me.cmbADVACCT.Value & ") "
    Else
        strADVACCT = "='" & Format(Me.cmbADVACCT, "000000000000") & "'"
End If
End If

Would there be a better way to do the above?

Thanks,

Tbonehwd

 

[mp9]

The only thing I'd try is using Is Not Null instead of Like - maybe a little faster if you're crunching loads of data. Have also tweaked your second If statement for immeasurably small speed hike, i.e.

If IsNull(Me.cmbADVACCT.Value) Then
    strADVITM = " Is Not Null "
Else
    If Me.chkACCT Then
        strADVACCT = "IN (" & Me.cmbADVACCT.Value & ") "
    Else
        strADVACCT = "='" & Format(Me.cmbADVACCT, "000000000000") & "'"
    End If
End If

http://www22.brinkster.com/accessory/