Filtrado por fecha en access

[[eduarcol]]

si el combo box va de Enero a Diciembre podrias hacer

nMes := combobox.itemindex + 1;


y el año tambien debes darlo a elegir

[gdlrinfo]

Gracias amigo ahora ya te entendi solo tengo un error es en DaysinaMonth me lo tira como no declarado lo declaro como variable y me dice que DaysinaMonth(nMes) no es un operador existente ?? que puede ser ?? gracias por todo y espero tu respuesta saludos!!!

[[Delphius]]

Empezado por gdlrinfo

Gracias amigo ahora ya te entendi solo tengo un error es en DaysinaMonth me lo tira como no declarado lo declaro como variable y me dice que DaysinaMonth(nMes) no es un operador existente ?? que puede ser ?? gracias por todo y espero tu respuesta saludos!!!

Hola gdlrinfo,
Como recomendación:
1. Cuando hables de errores, transcribe el mensaje textual. Por ello te invito a leer la guia de estilo. No somos adivinos, y conocer el error exacto que te produce es de importancia para saber como darle solución y/o investigación.
2. No copies código sin estudiar. Creería, que la función se llama DaysInMonth, y el código expuesto es DaysInAMonth. Una pequeña letra puede ser motivo de error... y esto me lleva a que cuando uno recibe el código lo mínimo que debe hacer es estudiarlo. ¿Buscaste en la ayuda sobre dicha función?
Yo diría que es posible que no tienes declarada en la sección uses la unit DateUtils.

Saludos,

[[eduarcol]]

Mi querido Delphius esa funcion no es un error si existe, de hecho no la conocia, la descubri en este interesante hilo, leelo para que aprendas de que va la cosa, y tambien me inclino a pesar que para solucionar el error se debe incluir la uses dateutils

[gdlrinfo]

Como estas te cuento el problema es otro ahora agrege el dateutils te pongo el codigo mas abajo el tema es asi cuando uso el combo box no me muestra nada en el dbgrid nose que estoy haciendo mal pero se queda en blanco.

Código Delphi [-]
procedure TLegajo.ComboBox1Change(Sender: TObject);
var
   FechaIni, FechaFin: TDate;
   nmes, nayo : Word;
begin
   nMes := combobox1.itemindex + 1;
   nayo:=2008;
   FechaIni := EncodeDate(nAyo, nMes, 1);
   FechaIni := EncodeDate(nAyo, nMes, DaysInMonth(nMes));
   Table1.Filtered := False;
   Table1.Filter := '(Fecha >= ' + DatetoStr(FechaIni) + ') and (Fecha <= ' + DatetoStr(FechaIni) + ')';
   Table1.Filtered := True;
end;
end.

POr otro lado una duda que no tiene nada que ver yo cuando hacia que el programa corriera paso a paso antiguamente ponia el cursor del mouse sobre la variable y me mostraba el valor que contenia ahora no lo miuestra alguna idea de esto tambien cabe destacar que uso el delphi 10 lite gracias y espero su respuesta!! saludos!!

[[eduarcol]]

y seguro que hay items que cumplan con la condicion??, otra cosa, porq no das a elegir el año??

[[Delphius]]

Empezado por eduarcol

Mi querido Delphius esa funcion no es un error si existe, de hecho no la conocia, la descubri en este interesante hilo, leelo para que aprendas de que va la cosa, y tambien me inclino a pesar que para solucionar el error se debe incluir la uses dateutils

La verdad es que la desconocía.

Gracias Eduardo... gracias por presentarmela. A ver si en algún momento se me hace la dificil

Por otro lado, veo que el código expuesto por gdlrinfo habla de DaysInMonth, y como tu dices es DaysInAMonth. ¿Se trata de un error de tipeo por parte de gdlrinfo?

Saludos,