Error en filtro con ComboBox

[Ariel03]

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.

[[BlueSteel]]

Hola

Te sugiero que utilices las etiquetas.. así tu codigo será más legible y presentable y quedaria así

Código Delphi [-]
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;

[[BlueSteel]]

Respondiendo a tu consulta... revisa este hilo.. ahí puedes encontrar una solución que te sirva

salu2