Search box

[josros60]

I found a form in the web downloaded,

but when I search for a company get an error and highlight one line:

Here it's the code:

Private Sub cmdSearch_Click()

    Dim LSQL  As String
    Dim LSearchString As String
    
    If Len(txtSearchString) = 0 Or IsNull(txtSearchString) = True Then
        MsgBox "You must enter a search string."
        
    Else
    
        LSearchString = txtSearchString
        
        'Filter results based on search string
        LSQL = "select * from tblVendor"
        LSQL = LSQL & " where Vendor Name LIKE '*" & LSearchString & "*'"
        
     Form_frmVendor_sub.RecordSource = LSQL
        
        lblTitle.Caption = "Vendor Details:  Filtered by '" & LSearchString & "'"
        
        'Clear search string
        txtSearchString = ""
        
        MsgBox "Results have been filtered.  All Vendor Names containing " & LSearchString & "."
        
    End If
    
End Sub

But the line it highlight is:

Form_frmVendor_sub.RecordSource = LSQL

Thanks.

 

[Ranman256]

1. you usually put a letter at the start of the variable to identify what type of variable type it is.
Dim sSQL As String
dim iNum as integer

2. don't redo the sql to find things, just use a filter on a continuous list form,
and the only code needed is

 Private Sub cmdSearch_Click()
    me.filter = "[Vendor] like *" & txtSearchString & "*"
    me.filterOn=true
 end sub

then just turn the filter off from the toolbar

 

[josros60]

thanks.

How do I turn the filter off from the toolbar?

Access 2013.

thanks.

 

[pbaldy]

Your error is likely due to the inadvisable space in the field name. It needs to be bracketed.

 

[josros60]

I am new at VBA,

how do i bracketed it?

thanks

 

[pbaldy]

LSQL = LSQL & " where [Vendor Name] LIKE '*" & LSearchString & "*'"