Buongiorno,
dopo aver inserito in una form un codice numerico nel campo
CodiceTessera_EAN
vorrei che access aprisse la tabella "Movimenti"
e inserisse il dati così come da codice:
Continuo ad attenere il solito errore...
Sempra che ID_Tessera non sia inserito e quindi mi da errore su rst.Update
Errore un-time '3201'
la Tabella TesseraFedeltà" è lagata con relazione 1 a molti con "Movimenti"
....
codice:Dim valore As String valore = ID_Tessera DoCmd.Close acForm, "TesseraFedeltà" Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Movimenti", dbOpenDynaset) rst.AddNew rst.Fields("ID_Tessera") = valore rst.Fields("Valore") = 10 rst.Fields("Data") = Now() rst.Fields("Causale") = "ENTR" rst.Fields("Note") = "Operazione di entrata al Programma Tessera Fedeltà" rst.Update