Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
ciao Sara,
provo a pubblicarti una soluzione.
la query in cui effetui i calcoli deve essere messa punto ci sono degli errori...
una volta aperta la form ptfrm, se clicci sul command button C vedrai il valore qta modificarsi in funzione dei calcoli nella qry.
fai qualche prova con records 790-791 ad esempio.
mi sono limitato a sovrascrivere il campo qta con questo codice, rispondendo a quanto richiedi.
Dim rst As DAO.Recordset
Dim qdf As DAO.QueryDef
Set qdf = DBEngine(0)(0).QueryDefs("scortefarmacigiornalieri2")
qdf.Parameters(0) = Me.IDpianoterapia
Set rst = qdf.OpenRecordset(dbOpenDynaset)
Me.qtà = rst.Fields("qtanow")
Me.dataCalcoloS = Date
Set rst = Nothing
ciao un saluto.
link: http://1drv.ms/1zNx1Tt