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