Convert Snippet to Image

Preview:

Private Sub txtCustomerName_Change()
    Dim strFilter As String

    strFilter = Me.txtCustomerName.Text

    Me.frmCustomers_sheet.Form.Filter = "CustomerName LIKE '*" & strFilter & "*'"
    Me.frmCustomers_sheet.Form.FilterOn = True
End Sub

Download PNG Download JPEG Download SVG

Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!

Click to optimize width for Twitter