Passare tramite codice un valore ad una Query Parametrica

(che quindi richiederebbe l'immissione del valore stesso tramite tastiera)

Dim Dbs As Database
Dim Qdf As QueryDef
Dim Rst As Recordset
Set Dbs = CurrentDb 'OpenDatabase("c:\PERCORSO\MIODATABASE .mdb")
Set Qdf = Dbs.QueryDefs("CorFinan") 'nome della stored procedura
Qdf.Parameters("inizio") = Me![IDDataCassa] '   il parametro "inizio" viene valorizzato
Set Rst = Qdf.OpenRecordset 'viene creato il recordset

Rst.MoveFirst ' si porta sul primo record

Do Until Rst.EOF    ' ESEGUE IL LOOP PER L'INTERO RECORDSET

' FAI QUELLO CHE TI PARE

Rst.MoveNext    ' SI SPOSTA AL PROSSIMO RECORD
Loop

Rst.Close
Dbs.Close
Set Dbs = Nothing

Passare tramite codice un valore ad una Query Parametrica

Menu