recordsource - inquiry

[myboii1984]

dear all,
below script of my access project.
im having a problem in my record source how will this run..
pls help.. badly need the searching... thanks in advance. pls pls pls..

error from the Form_frmCustomer_sub.RecordSource = LSQL

Dim LSQL As String



'Display all customers
LSQL = "select * from Customers"

Form_frmCustomer_sub.RecordSource = LSQL

lblTitle.Caption = "Scanner Details: All records"

msgbox "All Scanner are now displayed."

End Sub


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 Scanner serial."

Else

LSearchString = txtsearchstring

'Filter results based on search string
LSQL = "select * from Customers"
LSQL = LSQL & " where ScannerNo LIKE '*" & LSearchString & "*'"

Form_frmCustomer_sub.RecordSource = LSQL


lblTitle.Caption = "Scanner Details: Filtered by '" & LSearchString & "'"

'Clear search string
txtsearchstring = ""

msgbox "Results have been filtered. All Scanner Names containing " & LSearchString & "."

End If

End Sub

[Robeen]

Here's a tip:
Put a MsgBox right after this:

LSQL = "select * from Customers"
LSQL = LSQL & " where ScannerNo LIKE '*" & LSearchString & "*'"

. . . and see if it comes out looking exactly like this:

select * from Customers where ScannerNo LIKE "*LSearchString*"

The query will work if it is passed to the Form with that syntax.
Check this site out for a couple of good examples of how to get your SQL string working correctly.
http://www.baldyweb.com/wherecondition.htm

Hope this helps!

[myboii1984]

hi sir robeen,

what msg box do i need to put on this?

pls advise.

thanks,

[myboii1984]

sir robben,

during access run time when i try to search my scanner serial it shows error like this.


Run time error '424':
object required.

then when i hit debug it highlighted the code below.

Form_frmCustomer_sub.RecordSource = LSQL

what should i do to work on this code? actually
i just copy it somewhere on this site but i cant fine to work on my code.

thanks in advance.

regards,

[Robeen]

1. I was suggesting that you put in a message box statement like this:

Msgbox "LSQL = " & LSQL

2. Now that I look a little closer, I wonder if there is a problem with this part of your code:

Form_frmCustomer_sub.RecordSource = LSQL 

You might Google 'Forms Object'.

Try this:

Forms!Form_frmCustomer_sub.RecordSource = LSQL

OR - if that line of code is running FROM the form:

Me.Form_frmCustomer_sub.RecordSource = LSQL

Let me know how it goes.