Need help in Parameters problem in Execute methos.

[leonald007]

Hi, i have problem with the Execute statement at db.Execute (LDelete). The debugger told mi itz too few parameters Expected 1. Can any1 help mi.. thx in advance...



Private Sub Command4_Click()

Dim Month1 As String

Me.List2 = Me.List2.ItemData(List2.ListIndex)

Dim db As Database
Dim LDelete As String

Set db = CurrentDb()
LDelete = "DELETE FROM Table2 Where TEEST = Me.List2"
db.Execute (LDelete)
Set Lrs = Nothing
Set db = Nothing

MsgBox "Deleted !"


End Sub

[MMcCarthy]

Your statement in LDelete is wrong. Have a look at the following ...

Private Sub Command4_Click()
Dim Month1 As String
     Dim db As Database
    Dim LDelete As String
 
    Me.List2 = Me.List2.ItemData(List2.ListIndex)
 
    Set db = CurrentDb()
    ' if TEEST is a string (Text) then change below to ...TEEST ='" & Me.List2 & "'"
    LDelete = "DELETE FROM Table2 Where TEEST =" & Me.List2
    db.Execute (LDelete)
    Set Lrs = Nothing
    Set db = Nothing
 
    MsgBox "Deleted !"
 
End Sub