Delete a row from a listbox (1 Viewer)

I have several listboxs on my form , How do i delete the row i select?

faz88 said:

I have several listboxs on my form , How do i delete the row i select?

Click to expand...

Hey Faz,

I did a little bit of a search and found this question and answer that seems to be what your looking for, so give this a try and see if it does.

John Nurick (Microsoft MVP) is the individual who gave the answer:

Dim strSQL As String

strSQL = "DELETE * FROM MyTable WHERE KeyField=""" _
& Me.lbXXX.Value & """;"
CurrentDB.Execute strSQL
Me.lbXXX.Requery

You'll need to replace
MyTable with the name of the table
KeyField with the name of the field in the table corresponding
to the bound column in the listbox
lbXXX with the name of the listbox (*not* the name of the field
the listbox is bound to).

HTH,
Shane

Hi, thanks alot, it worked!

ShaneMan said:

Hey Faz,

I did a little bit of a search and found this question and answer that seems to be what your looking for, so give this a try and see if it does.

John Nurick (Microsoft MVP) is the individual who gave the answer:

Dim strSQL As String

strSQL = "DELETE * FROM MyTable WHERE KeyField=""" _
& Me.lbXXX.Value & """;"
CurrentDB.Execute strSQL
Me.lbXXX.Requery

You'll need to replace
MyTable with the name of the table
KeyField with the name of the field in the table corresponding
to the bound column in the listbox
lbXXX with the name of the listbox (*not* the name of the field
the listbox is bound to).

HTH,
Shane

Click to expand...

I have same problem posted here:

http://www.access-programmers.co.uk/forums/showthread.php?t=163572

Have tried your solution and got this error:

Syntax error (missing operator) in query expression 'Autput Type="4"'.

I have tried this code and it seems to work:


But works for listbox only

Replace List0 with your listbox name
Replace tblEmployees with your table name
Replace EmployeesID with your ID fieldname.

Full tread http://www.tek-tips.com/viewthread.cfm?qid=1084498&page=7

faz88 said:

Hi, thanks alot, it worked!

Click to expand...

Your welcome and I'm glad you got it going.

Shane