Error en filtro con ComboBox
hola soy ariel... les cuento tengo un problema con un cierto pedazo de código y quería ver si me podían guiar en donde podria estar el error. A continuación les pongo el código:
procedure TF_consultaSocio.E_consulta_socioChange(Sender: TObject);
var
Filtro : String;
begin
If (E_consulta_socio.text <> '') then
begin
Modulo.T_socio.Filtered := False;
If C_buscarSocio.Text = 'NºSocio' then
Filtro := 'NºSocio like '''+E_consulta_socio.Text+'*'''
else
If C_buscarSocio.Text = 'DNI' then
Filtro := 'DNI like '''+E_consulta_socio.Text+ '*'''
else
If C_buscarSocio.Text = 'Apellido' then
Filtro := 'Apellido Like '''+E_consulta_socio.Text+ '*''';
Modulo.T_socio.Filter := Filtro;
Modulo.T_socio.Filtered := True;
end
else
Modulo.T_socio.Filtered := False;
end;
bueno lo que hace esto es filtrar una tabla en access con los campos de una persona (NºSocio, DNI, Apellido y demas), lo que hago es seleccionar en el combobox el campo que quiero filtrar y en un edit escribo los datos..
Bueno el problema que tengo es que al filtro por el apellido me lo realiza lo mas bien... pero cuando lo quiero hacer por el NºSocio o el DNI me salta una execepcion diciendo que no se puede abrir el filtro...no se si tendra algo que ver que los campos estén declarados como numericos y el apellido como texto.... pero no creo que sea eso.
bueno si me pueden dar una mano se los agradezco.
Ariel.
|