[VBA/OFFICE]: Query con parametri di tipo data inseriti in controlli TextBox

[arti86]

Ciao a tutti, avrei il seguente problema: devo lanciare una query da vba che abbia come criterio un intervallo tra due date in un determinato campo, il problema è che le date dell'intervallo devo passargliele attraverso variabili da inputbox. Non so assolutamente come fare. Per ora ho usato un openquery per lanciare le query ma non so come passargli le variabili.
Potete aiutarmi?

Grazie

[gfantuzzi]

invece di usare le inputbox io creerei una maschera apposita con due caselle di testo formattate come date (nel formato gg/mm/aaaa) che chiamerei "dal" e "al"
poi un pulsante con il seguente codice

Dim d1, d2 As Date
Dim filtro As String

If Not IsNull(Dal) And Not IsNull(Al) Then
if al <= dal then
d1 = Dal
d2 = Al
d1 = DatePart("m", d1) & "/" & DatePart("d", d1) & "/" & DatePart("yyyy", d1)
d2 = DatePart("m", d2) & "/" & DatePart("d", d2) & "/" & DatePart("yyyy", d2)
filtro = " WHERE ((CampoData)>=#" & d1 & "#) AND ((CampoData)<=#" & d2 & "#)"
end if
end if

poi, prima di chiudere la maschera, costruisci la query SQL mettendo alla fine il contenuto della variabile "filtro" e la imposti come origine della Maschera o del Controllo che hai "sotto" con:

ad esempio: Forms!MiaMaschera.RecordSource = "SELECT * FROM MiaTabella " & filtro

Saluti