1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub elimina_comanda_bar_Click()
On Error GoTo Err_elimina_comanda_bar_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
'CurrentDb.Execute "delete Uscite_SS(ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) where ID_Art=" & Me.ID_Art And DataConsumazione = " & Me.DataConsumazione and OraConsumazione=" & Me.OraConsumazione And Quantità = " & Me.Quantità and & " And IDContatto = " & Me.IDContatto) "'
'CurrentDb.Execute "delete uscite (ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) where ID_Art=" & Me.ID_Art And DataConsumazione = " & Me.DataConsumazione and OraConsumazione=" & Me.OraConsumazione And Quantità = " & Me.Quantità and & " And IDContatto = " & Me.IDContatto) "'
CurrentDb.Execute "delete from Uscita_bar(ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) values('" & Me.ID_Art & "','" & Me.DataConsumazione & "', '" & Me.OraConsumazione & "', " & Me.Quantità & ", '" & Me.IDContatto & "') "
CurrentDb.Execute "delete from uscite select * from uscita_bar"
Exit_elimina_comanda_bar_Click:
Exit Sub
Err_elimina_comanda_bar_Click:
MsgBox Err.Description
Resume Exit_elimina_comanda_bar_Click
End Sub |
Partager