Quick one

[peterbowles]

How do you delete the current record out of a list box

thanks

 

[Mile-O]

When you say "current record out of a listbox" does the listbox on the form have an AfterUpdate() event that realigns the form's recordsource to the listbox selection?

 

[peterbowles]

no, it is just placed on a form to show some records
it is not related to the form

 

[Mile-O]

Personally, in the case you've given, I'd use DAO.

Assuming that the listbox (called lstExample) has two or more columns from the table (tblExample) with the first column (the primay key) being hidden then:

Private Sub lstExample_AfterUpdate()

    Dim db As DAO.Database, rs As DAO.Recordset
    Dim strSQL As String

    If MsgBox("Are you sure you wish to delete this record?", vbQuestion + vbYesNo, "Example") = vbYes Then
        strSQL = "SELECT * FROM tblExample WHERE ExampleID = " & Me.lstExample.Column(0) & ";"
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)
        With rs
            .Delete
            .Close
        End With

        db.Close

    End If

End Sub

Also, as an aside, can I suggest that you title your posts with something more descriptive than "easy one", "quick one", etc?
As others come to the forum they are advised to search for posts first to find solutions to their problems and having the results turn up meaningful titles is much more helpful to them. And, for people looking to answer questions it is so much easier to know what a question is about without having to open it - that way, if it said "Access Security Model" I'd know to avoid it like the plague.

 

[peterbowles]

I understand an agree completely

Thanks for the help (again)