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