Ciao, sto cercando far funzionare queste istruzioni ma finora niente:
Dim DBCorrente As DAO.Database
Dim RS As DAO.Recordset
Dim qryDef As DAO.QueryDef
Dim strSql As String
   Set DBCorrente = CurrentDb
   Set qryDef = DBCorrente.QueryDefs("qrySpeseCommessa")
   qryDef.Parameters![ID_preventivo] = 1
  
  ' Esegui la query
   Set RS = qryDef.OpenRecordset()
   'Me.txtTotVitto = RS.Fields("TotVitto").Value
   MsgBox RS![totvitto]
mi da errore nel passaggio del parametro : "Elemento non trovato in questa raccolta"
Qualcuno mi può aiutare?
Grazie
Yuri