Allora, ci sono quasi.
Data la seguente query:
PARAMETERS [Sequence] Text ( 255 );
SELECT s.ID_SEQUENCE, u.User, l.LAYER, p.PROGETTO, s.PERCORSO_DS, s.SEQUENCE, pe.PERIODICITA, s.ORA
FROM SEQUENCES AS s, PROGETTI AS p, PERIODICITA AS pe, USERS AS u, LAYERS AS l
WHERE (((s.SEQUENCE) Like "*" & [Sequence] & "*") And ((p.ID_PROGETTO)=s.ID_PROGETTO) And ((s.ID_PERIODICITA)=pe.ID_PERIODICITA) And ((s.ID_USER)=u.ID_USER) And ((s.ID_LAYER)=l.ID_LAYER))
ORDER BY UCase(p.PROGETTO), UCase(s.SEQUENCE);
Se la lancio da doppio click, mi chiede il parametro, lo inserisco e funziona aprendomi la griglia coi risultati.
Se provo da VBA, non so come aprire la griglia.
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rs As DAO.Recordset
Dim SQLText As String
Set db = CurrentDb
Set qdf = db.QueryDefs("Ricerca Master Sequence")
qdf.ReturnsRecords = True
qdf.Parameters("Sequence") = Form_Avvio.TestoRicercaMasterSequence.Value
Set rs = qdf.OpenRecordset(dbOpenSnapshot)