19/10/2011, 20:56
|
| | Fecha de Ingreso: noviembre-2008
Mensajes: 29
Antigüedad: 16 años, 1 mes Puntos: 0 | |
fechas dt picker y consulta hola compañeros, estoy con un proyectito en visual, base en access, y dao...
tengo un form con dos dtpicker, y quiero hacer una consulta y q me devuelva resultados entre esas dos fechas... pero devuelve cualq cosa... no se en q le erro...
les dejo parte del codigo para ver si me pueden dar una manito con esto, q me esta volviendo loco! Private Sub Command1_Click()
Filtrar Fecha1.Value, Fecha2.Value
End Sub
Sub Filtrar(F1 As Date, F2 As Date)
Dim i As Long
Dim aux As Recordset
'Lista.Clear
Set aux = db.OpenRecordset("select * from RX where FING >=#" & Format(F1, "YYYY/MM/DD") & "# and FING <= #" & Format(F2, "YYYY/MM/DD") & "#")
'aux.MoveLast
'aux.MoveFirst
ListView1.ListItems.Clear
If aux.BOF And aux.EOF Then
MsgBox "NO HAY DATOS DISPONIBLES", vbOKOnly + vbExclamation, "Atención"
Else
ListView1.Visible = True
Dim m As ListItem
While Not aux.EOF
Set m = ListView1.ListItems.Add(, , aux!NAUT)
m.SubItems(1) = aux!DNI
m.SubItems(2) = aux!ape
aux.MoveNext
Wend
End If
End Sub
En si lo q me devuelve este resultado es cualq fecha de manera incorrecta, osea, una q no fue establecida en los dtpicker...
desde ya gracias por sus ayudas! |