Visual Basic - busqueda por fecha

dbcla.OpenRecordset "SELECT * FROM vales WHERE FECVALE >= #" & Format(Fechahoy, "dd/mm/yyyy") & "# and Fecha <= #" & Format(Fechahoy, "dd/mm/yyyy") & "'"






hola buen dia quiero saludar a todo el grupo mucho gusto...

tengo el siguiente problema .
quiero hacer una consulta por fechas pero me arroja el siguiente problema gracias,
espero me puedan orientar
muchas gracias ...

Buen día para todos,

Cristian, Por lo que puede observar al final de la consulta SQL tienes una comilla simple ( ' ) y antes del cierre te falta ( # ) para cerrar el campo de fecha, te quedaría así:




Espero haber sido de ayuda.

Que tengan buen día,

El conocimiento siempre debe ser compartido, para que entre todos aprendamos un poco mas...

Mas ejemplos acá...

https://aprendamosdeprogramacion.wordpress.com/

La fecha te tiene que quedar entre comillas simples, osea así '15/02/2017'
y saca el cardinal.

me dice el siguiente mensaje adjunto en la foto
gracias por su ayuda

Hola es por el nombre de campo

en el primero es FECVALE en el segundo fecha

entonces considero que es por que espera saber que es ese campo

Saludos

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

agrega este codigo en tu busqueda

otra cosa el formato fecha es TextBox6 = Format(Now, "[$-80A]dddd, dd"" de ""mmmm"" de ""yyyy hh:mm")
TextBox5.Text = Date