There are probably people who have already seen similar questions from me before, but I am beginning to get frustrated with this. I am still trying to append information from one table to another then delete the appended information from the original table. I am using a delete query and an append query to do this. The trouble I am having is I have a form with a combo box. The combo box has a query data source that accesses 2 tables(which are part of a many to many relationship). When I click on the combo box and select the printer and the system it is located on, I hit a button which is supposed to delete the selected printer and the system it is located on. For example:


PrinterID SystemID Bldg# Model Type
JD234D H010 234 RJS Label


When I select this in the combo box, how do I get the append query to move only that record to my deleted table and the delete query to delete only that record from the source table. Every time I do it it will delete that printer ID and all of the systems it is located on which is not what I want it to do. There is some VBA code that I am using for the delete button and I know that is the key. I am really frustrated.

Try adding this code to your on-click event on the form
Private Sub cmdDelete_Click()
On Error GoTo Err_cmdDelete_Click

    DoCmd.RunSQL ("Delete * from <printer table> where PrinterID = " & printerID & ";")
    Me.<printer table>.Requery
    Me.Requery
    Me.Refresh

Exit_cmdDelete_Click:
    Exit Sub

Err_cmdDelete_Click:
    MsgBox Err.Description
    Resume Exit_cmdDelete_Click

End Sub


I hope this helps

Jaime E. Maccou
Applications Analyst

Please see correction

Try adding this code to your on-click event on the form
Private Sub cmdDelete_Click()
On Error GoTo Err_cmdDelete_Click

    DoCmd.RunSQL ("Delete * from <printer table> where PrinterID = " & printerID & ";")
    Me.<printer table>.Requery
    Me.Requery
    Me.Refresh

Exit_cmdDelete_Click:
    Exit Sub

Err_cmdDelete_Click:
    MsgBox Err.Description
    Resume Exit_cmdDelete_Click

End Sub


I hope this helps

Jaime E. Maccou
Applications Analyst


--------------------------------------------------------------------------------
Edited by - jemacc on 10/07/2004 04:32:33 AM


Jaime E. Maccou
Applications Analyst