Hola
Segun veo los dos primeros campos son integer y el tercero es texto.
Cuando se hace un filtro en access a un campo texto se necesita colocar ciertas condiciones.
Yo colocaria unas variables, si es que el dato no se saca por ejemplo de un edit, algo asi:
Código Delphi
[-]
var
Filtro, a, b : String;
begin
a:= '1/23-456 A';
b:= '0001/23-456 A';
ADOQuery1.Filtered := False;
Filtro := 'idBanc = 34 and idempresa = 6 and Referencia Like '''+a+'*'' OR Referencia Like '''+b+'*''';
ADOQuery1.Filter := Filtro;
ADOQuery1.Filtered := True
end
else
ADOQuery1.Filtered := False;
end;
Otra opcion:
Código Delphi
[-]var
Filtro, a, b : String;
begin
a:= '1/23-456 A';
b:= '000'+a;
ADOQuery1.Filtered := False;
Filtro := 'idBanc = 34 and idempresa = 6 and Referencia Like '''+a+'*'' OR Referencia Like '''+b+'*''';
ADOQuery1.Filter := Filtro;
ADOQuery1.Filtered := True
end
else
ADOQuery1.Filtered := False;
end;
Hice algunas pruebas y funciona a la perfección.
Saludos