Deleting Records from ListBox

[DS]

I'm running this code to delete a record from a listbox, is there a
better way?

Private Sub Command4_Click()
Dim myID As Long, mySQL As String

myID = Me![List0]
mySQL = "DELETE * FROM AddModsQ " _
& "WHERE [ItemId] = " & Me![List0].Column(0) & ""
DoCmd.RunSQL mySQL
Me.List0.Requery

End Sub

Also I'm getting a prompt asking me if I want to delete this record,
anyway to replace or do away with this message?
Thanks
DS

 

[Guest]

Alter your code to this:

Private Sub Command4_Click()
Dim myID As Long
Dim mySQL As String

myID = Me.List0
mySQL = "DELETE * FROM AddModsQ " & _
"WHERE [ItemId] = " & Me![List0].Column(0)

CurrentDb.Execute mySQL, dbFailOnError
Me.List0.Requery

End Sub

R. Hicks

 

[DS]

Alter your code to this:

Private Sub Command4_Click()
Dim myID As Long
Dim mySQL As String

myID = Me.List0
mySQL = "DELETE * FROM AddModsQ " & _
"WHERE [ItemId] = " & Me![List0].Column(0)

CurrentDb.Execute mySQL, dbFailOnError
Me.List0.Requery

End Sub

R. Hicks

:

I'm running this code to delete a record from a listbox, is there a
better way?

Private Sub Command4_Click()
Dim myID As Long, mySQL As String

myID = Me![List0]
mySQL = "DELETE * FROM AddModsQ " _
& "WHERE [ItemId] = " & Me![List0].Column(0) & ""
DoCmd.RunSQL mySQL
Me.List0.Requery

End Sub

Also I'm getting a prompt asking me if I want to delete this record,
anyway to replace or do away with this message?
Thanks
DS

I tried it and got this error message on the Currentdb.execute line

too few parameters 1

Thanks
DS