Printable View
I want to delete records that are returned By a variable- prompt
I have this code under a procedure -CancelReservations:
Dim rec As New ADODB.Recordset
Dim Mysql As String
Mysql = "DELETE Accounts.*,Reservations.* "
Mysql = Mysql & "FROM accounts,reservations "
Mysql = Mysql & "WHERE reservations.Name
IN (" & prompt & ")"
Set rec = Cnca.Execute(Mysql)
I am getting the following error:
"Record is deleted"
how can I Avoid this error? any ideas?
hos
One idea :
I take it this is from a button on a form.
Enter the name into a text field.
.
It would be something like the following
'--------------------
dim adocmd as new adodb.command
on error resume next
adocmd.sql="delete Accounts.* from Accounts where accounts.name='" & txtFieldName & "';"
adoCmd.execute
adocmd.sql="delete reservation.* from reservations where reservations.name='" & txtFieldName & "';"
adoCmd.execute
set adocmd=nothing
'--------------------
I haven't done much with ado - so I can't remember the exact properties you need to fill in, but this should be close...
Experiment ?
Vince