buen dia
estoy asiendo la busca con fecha
ya me funciona la busqueda perfecto
pero me aparecio un error que no busca algunas fechas por ejemplo los dias 2,3,4,5,6,7,8,9,10,11
hay tengo la base de datos todo se guarda con el mismo formato y no logro identificar a que se deva el problema si es de la base de dato o de la forma que se ingresan los valores
me gustaria que si me pudieran ayudar
adjunto codigo fuente de la busqueda
Private Sub CommBuscarf()
dimencion 'dimenciona el flexgrid para carga desde la base de datos
'abre base datos y busca en las tablas
Set DBcla = OpenDatabase(App.Path + "\Bases\MdbVales.mdb") 'base datos
Set TablaCla = DBcla.OpenRecordset("SELECT * FROM VALES WHERE FECVALE >= #" & Format(Fechadesde.Text, "dd/mm/yyyy") & "# and FECVALE <= #" & Format(fechahasta.Text, "dd/mm/yyyy") & "# " + "order by vendedor")
If TablaCla.EOF Then
MsgBox "No Existen Registros"
Else
End If
If Not TablaCla.EOF Then
Do While Not TablaCla.EOF
FlexdatosR.Rows = FlexdatosR.Rows + 1
If FlexdatosR.Rows > 1 Then
FlexdatosR.Row = FlexdatosR.Row + 1
End If
aa = FlexdatosR.Row
FlexdatosR.TextMatrix(aa, 0) = aa + 0 'Nº DE ITEMS
FlexdatosR.TextMatrix(aa, 1) = TablaCla.Fields!vendedor
FlexdatosR.TextMatrix(aa, 2) = TablaCla.Fields!valenro
'FlexdatosR.TextMatrix(aa, 2) = TablaCla.Fields!Nombre
' FlexdatosR.TextMatrix(aa, 3) = TablaCla.Fields!vendedor
' FlexdatosR.TextMatrix(aa, 4) = TablaCla.Fields!Sucursal
'FlexdatosR.TextMatrix(aa, 5) = TablaCla.Fields!Venta
FlexdatosR.TextMatrix(aa, 6) = TablaCla.Fields!TOTPAGA
FlexdatosR.TextMatrix(aa, 7) = TablaCla.Fields!Costo
TablaCla.MoveNext
CalcuTotales 'calcula totales
Loop
End If
End Sub
imagen diciendo el programa que no existen registros que mostrar y estando en la base de datos los registros de esa fecha
al cambiar fecha si muestra registros
si alguien fuese tan amable que pueda ayudar se lo agradeszo
saludos a todos