Buongiorno a tutti gli utenti del forum,
anticipo che ho un problema a confrontare i campi data da Access.Ecco cosa ho in mente.sto progettando una routine che
esporti un reordset da acces, generato da una query nel codice vba, in un foglio excel. Alcuni campi della query sono date e la
selezione dei record ha come parametro una data immessa in una casella testo di una macshera. Apro la maschera, immetto
la data parametro su cui effettuare la query e poi voglio che mi esporti i dati in exel.
ecco il codice

Private Sub Comando4_Click()
Dim MyExcApp As Excel.Application
Dim MyExcWkb As Excel.Workbook
Dim MyExcWst As Excel.Worksheet
Dim MyQy As String
Dim Rcs1 As DAO.Recordset
Dim i As Integer
i = 0


'definisco la query che restituisce i record con una determinata data parametro nella mascera nella casella1
MyQy = "SELECT Tabella4.datai,Tabella4.dataf,Tabella4.attività FROM Tabella4 WHERE Tabella4.datai=" & Me.Casella1

'definisco questa query come reecordset
Set Rcs1 = CurrentDb.OpenRecordset(MyQy, dbOpenDynaset)

Set MyExcApp = New Excel.Application
Set MyExcWkb = MyExcApp.Workbooks.Add
Set MyExcWst = MyExcWkb.Worksheets(1) ' apriamo la nuova applicazione excel al foglio 1
' Iniziamo il loop di scrittura dei records
Do Until Rcs1.EOF
i = i + 1
With MyExcWst.Rows(i)
.Cells(, 1).Value = Format$(Rcs1.Fields("datai"), "mm/dd/yyyy")
.Cells(, 2).Value = Format$(Rcs1.Fields("dataf"), "mm/dd/yyyy")
.Cells(, 3).Value = Rcs1.Fields("attività")
End With
Rcs1.MoveNext
Loop

Rcs1.Close
MyExcApp.Visible = True

End Sub

Il problema è che questa procedura mi restituisce un foglio vuoto.
Ho provato a togliere il parametr di ricerca, in modo che esportasse tutto il recprdset così com'è,e i campi data vengono trascritti come seriali, come posso fare per inserire il parametro e farlo confrontare con
i campi data del recodset?
Ciao