Ho provato ad utilizzare il comando set rsQ = ........... Clng(nomevar) ... va da bomba.
Grazie Alex, fallo sapere a Microsoft così questa soluzione potrebbe andare ad arricchire i troppo pochi esempi di filtro data con where su Query che si propongono su internet.
Ero andato letteralmente in fault.
Ad Osvaldo dico:
1 la query è delle più semplici e contiene un campo id, un campo nomepaziente ed una data (in cui è stato visitato.
Il problema di errore all'apertura si poneva indipendentemente dalla query.
2 sotto il codice attuale (rivisto)
3 l'uso che voglio fare della query è quello di partire dal primo record e visitare, mediante rsQ.MoveNext, i primi tre record al massimo, in funzione della logica del codice scritto.
Grazie a tutti
Dim db As DAO.Database
Dim rsQ As DAO.Recordset
Set db = CurrentDb
' Ult_Eve è la mia variabile di tipo data che contiene la data sulla quale filtrare la query Q_Importabili
Set rsQ = CurrentDb.OpenRecordset("Select * from Q_Importabili where D_Evento = " & CLng(Ult_Eve), dbOpenSnapshot)