Hola foro.
Miproblema es el siguiente: Quiero realizar un listado comprendido entre dos fechas pasadas por dos dtpicker. Tengo realizado el código pero el problema es que no me lo ejecuta os adjunto el código haber si he cometido algún error
Set db = OpenDatabase(App.Path & "\facturacion.mdb")
Tira = "select * from factura WHERE [fec] >= """ & DTPicker1 & """ and [fec] <= """ & DTPicker2 & """ "
Set campo = db.OpenRecordset(Tira)
If campo.RecordCount > 0 Then
With campo
.MoveFirst
While Not .EOF
List1.AddItem campo(0) & Space(10) & campo(1) _
& Space(18) & Format(campo(13), "###,##0.00") & Space(29) & campo(3)
.MoveNext
Wend
End With
End If
no me ejecuta nada en cambio si cambio la variable Tira por la siguiente
Tira = "select * from factura WHERE [fec] >= """ & DTPicker1 & """ "
entonces si ejecuta el list1.
Es urgente bueno hacer lo que podais.
Gracias a todos
