1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Private Sub salva_comanda_Click()
On Error GoTo Err_salva_comanda_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
CurrentDb.Execute "insert into Uscite_SS(ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) values('" & Me.ID_Art & "','" & Me.DataConsumazione & "', '" & Me.OraConsumazione & "', " & Me.Quantità & ", '" & Me.IDContatto & "') "
CurrentDb.Execute "insert into uscite select * from uscite_ss"
Me.Uscite_SS1.Requery
Exit_salva_comanda_Click:
Exit Sub
Err_salva_comanda_Click:
MsgBox Err.Description
Resume Exit_salva_comanda_Click
End Sub |
Partager