How to fix the code with Run Time Error: '424': Object required?

Question

Hi experts!

I have a listbox name lstRprt that displays all my Query in a Form.

On a click from my cmdAddRprt it would correlate or transfer Query Names to my next listbox name lstToEprtafter  a select from my lstRprt.

After a click on my cmd button I have an Error: '424': Object required ask me to debug the code below;

---

Dim RowSource As String

     Set db = CurrentDb()

    Set rs = db.OpenRecordset("SELECT Asset.* FROM Asset")

    RowSource = ""

    Do Until rs.EOF

        RowSource = "SELECT * FROM Asset"

        rs.MoveNext

    Loop

    lbox1.RowSource = RowSource     <<<<<<< it highlights here

    RowSource = ""

    Set rs = db.OpenRecordset("SELECT Asset.* FROM Asset ORDER BY [Name]")

    Do Until rs.EOF

        RowSource = RowSource & rs!empid & ";" & rs!Name & ";"

        rs.MoveNext

    Loop

   lbox2.RowSource = RowSource

Please anyone is kind to help me what was wrong and correct it??

thanks in advance, Rev12

Answer 1

The message indicates Access does not know what lbox1 is. Maybe the previous name of a listbox?

On the highlighted line, replace lbox1 with:

Me.lstRprt 

or

Me.lstToEprt

Review the line with lbox2 as well. It is about to fail the same way.

Did you not have "Option Explicit" at the top of every module in your code? Add it right now.

There are other things wrong with this code, such as the nonsensical first Do loop.