procedure TfrmFamille.codeKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var
Erreur : Integer;
begin
Erreur:=0;
TableFamille.Filtered:=False;
if( Code.Text='')then
if (Famille.Text='')then
Erreur:=1
else
TableFamille.Filter:='NomFamille='''+ Famille.Text+'*'''
else
if (Famille.Text='')then
TableFamille.Filter:='CodeFamille='''+ Code.Text+'*'' '
else
TableFamille.Filter:='CodeFamille='''+ Code.Text+'*'' and NomFamille='''+ Famille.Text+'*''';
if(Erreur=0)then
TableFamille.Filtered:=true;
end;
Filtrage d'une base accesse
ce code de filtrage marche trés bien avec une base paradox7(Des object BDE) maisil ne marche pas avec une base Access (Des object ADO) donc je me dommende pourqui merci l'avance 8o).