cs_nassim25
Messages postés3Date d'inscriptionsamedi 28 mai 2005StatutMembreDernière intervention20 février 2009
-
31 oct. 2005 à 11:39
cs_tigrou19
Messages postés65Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention 5 décembre 2005
-
31 oct. 2005 à 17:34
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).