Non funziona perche hai dentro la sottomaschera
E meglio ricominciare daccapo magari apri un nuovo file
e mettici dentro queste due cosette
Immaginiamo che hai:
Tabella "T_Articoli" con i campi:
__ ID_Art Key Contatore
__ Articolo Testo
__ Carico Numerico
Tabella "T_Carico" con i campi
__ ID_Car Key Contatore
__ Rif_ID_Art Numerico ( Il riferimento alla ID_Art )
__ Quantita Numerico ( scritto senza accento sulla a )
Maschera "M_Articoli" associata a "T_Articoli"
Contenente i 3 controlli
__ ID_Art
__ Articolo
__ Carico
( Il "Nome elemento" fallo corrispondere sempre alla "Origine controllo" )
NON INSERIRE NESSUNA FORMULA NEI CONTROLLI
Maschera "M_Carico" associata a "T_Carico"
Contenente i 3 controlli
__ ID_Car
__ Rif_ID_Art
__ Quantita
( Il "Nome elemento" fallo corrispondere sempre alla "Origine controllo" )
IL CAMPO "SubTotaleCarico" CHE CITI NON TI SERVE
__________________________________________________ _______________
La maschera "M_Carico" è inserita come sottomaschera
in "M_Articoli"
Il nome della sottomaschera è ancora "M_Carico"
Le due sono legate dai campi:
_____ M_Articoli!ID_Art
_____ M_Carico!Rif_ID_Art
__________________________________________________ ______________
Nel codice VBA della sottomaschera "M_Carico" scrivi quanto segue
e otterrai che ad ogni modifica del campo Quantita VBA
si occupera di scriverti in maschera al campo Carico
la somma del singolo articolo e verra poi registrato in tabella
__________________________________________________ _____________codice:Private Sub Quantita_AfterUpdate() ' dopo la modifica del campo quantita ' innanzitutto registra quanto in maschera nella tabella sottostante DoCmd.RunCommand acCmdSaveRecord ' Dopo imposta il campo Carico ( Forms!M_Articoli!Carico ) ' al valore di DSum("[Quantita]", "T_Carico", "Rif_ID_Art=Forms!M_Articoli!ID_Art") ' Somma Quantita ' nella tabella T_Carico ' WHERE "Rif_ID_Art=Forms!M_Articoli!ID_Art" Forms!M_Articoli!Carico = DSum("[Quantita]", "T_Carico", "Rif_ID_Art=Forms!M_Articoli!ID_Art") End Sub
Dovrebbe funzionare al primo colpo
Saluti

Rispondi quotando