Bonjour,
Je travaille sur petite application en utilisant Delphi (RAD Studio 10.4).
Dans un de mes codes je lis la valeur d’un DBlookupComboBox et voudrais appliquer un filtre sur un AdoTable « ADOTableCmdeNlivree ».
A chaque exécution, j’obtiens un message d’érreur « Acces violation » lors de la tentative de modification des propriétés de ADOTableCmdeNlivree .
Je souhaiterais savoir si cette erreur est liée à une propriété de « ADOTableCmdeNlivree »
var
lsCodeBque : string;
begin
lsCodeBque:= DBLookupComboBox2.Text;
if lsCodeBque <>'' then
with ADOTableCmdeNlivree do
begin
Active:= False;
Filter:='(BonLivraison='')AND(Code_Banque=' + lsCodeBque + ')' ;
Filtered:=true;
Active:=true ;
end;
end;
var
lsCodeBque : string;
begin
lsCodeBque := DBLookupComboBox2.Text;
if lsCodeBque <> '' then
with ADOTableCmdeNlivree do
begin
Close;
Filtered := False;
Filter := '(BonLivraison=' + QuotedStr('') + ')AND(Code_Banque=' + QuotedStr(lsCodeBque) + ')';
//Par contre le BonLivraison='' je sais plus si le filtre interprète comme valeur vide ou null ou...
Open;
Filtered := True;
end;
end;
Sinon passer par un ADOQuery et une requête SQL à la place des filtres...
@+
30 avril 2021 à 10:41