Passare parametri a query in vba

di il
22 risposte

Passare parametri a query in vba

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

22 Risposte

Devi accedere o registrarti per scrivere nel forum
22 risposte