Hello all
I created a query to the finished material effect put the delete button in this article form
It also put this code deletion button
The question is
I want to finished material effect does not delete the real but go to another table or query
Does not appear in the main table
Private Sub Command15_Click()
Dim intSeat As Integer
If MsgBox("Click ""Yes"" to Confirm you want to delete this record.", vbYesNo, "Delete?") = vbYes Then
intSeat = Me.Seat
CurrentDb.Execute "Insert into QurNearExp1 (Exp, DataInpuot, InputTo,namdrag,mom,item,iddrag) SELECT Exp, DataInpuot, InputTo,namdrag,mom,item,iddrag FROM QurNearExp WHERE Seat = " & intSeat
CurrentDb.Execute "Delete * FROM QurNearExp WHERE Seat = " & intSeat
Me.Requery
End If
End Sub
Is it possible to get an example of what I want