The code below is pretty straight forward. But I am having a problem
adding with the Set rs1 statement. I keep getting a "Too Few
Parameters - Expected 1" error. What I've added --and whatI suspect is
causing problems-- is the parameter "intPONumbe r". I'm sure it's the
formatting of the SQL string.
Any help would be greatly appreciated. TIA!
CODE
----------------------------------------------
Private Sub cmdDelete_Click ()
Dim db1 As DAO.Database
Dim rs1 As DAO.Recordset
Dim VbMsgBoxResult As Integer
Dim varPOBaseNumber As String
Dim intPONumber As Integer
VbMsgBoxResult = MsgBox("Are you sure you want to delete this Purchase
Order?", vbYesNo, "Caution")
If VbMsgBoxResult = vbYes Then
Set db1 = CurrentDb()
varPOBaseNumber = POBaseNumber
intPONumber = PONumber
Set rs1 = db1.OpenRecords et("SELECT tblPrecisionPur chaseOrders.* FROM
tblPrecisionPur chaseOrders WHERE
tblPrecisionPur chaseOrders.PON umber=intPONumb er
AND(((tblPrecis ionPurchaseOrde rs.POBaseNumber )=" & Qu &
varPOBaseNumber & Qu & "))", dbOpenSnapshot)
Do Until rs1.EOF
'rs1.Delete
rs1.Move 1
Loop
db1.Close
Set db1 = Nothing
rs1.Close
Set rs1 = Nothing
DoCmd.Requery
End If
End Sub
