Discussion :

[michaellynx]

ok donc je met sm,on code sur le onExit de l` Edit1 et ce n'est qu'en ce moment que le DBedit exécutera le code que je t'ai montre précédemment?

[Aka Guymelef]

Euh j'ai pas tout compris à ton français approximatif mais le code que tu as fait précédemment dans le OnClick du bouton tu dois le déporter dans le OnExit de ton TEdit.

Dès lors dès que tu sortiras du champ de saisie, la recherche s'effectuera.

[michaellynx]

Je l'a fait mais ca ne marche pas. l'appli se ferme sans me retourner le codepuk correspondant.
pour mon francais SORRY je suis ce soir sur un clavier allemand alors j'ai quelque mal à manipuler

[Aka Guymelef]

Y'a un truc qui m'intrigue quand tu dis que l'appli se ferme sans retourner Codepuk. Serait-il possible d'avoir un peu plus le contexte dans lequel se situe le morceau de code où ça ne va pas (comment est chargé la fiche, les données, les actions, etc...) et aussi si tu pouvais nous montrer des bouts de code histoire que l'on puisse voir ça serait bien je penses

[michaellynx]

ok. le code sous mon edit1 qui reçoit en saisie le NUMEROTELEPHONE est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm3.Edit1Exit(Sender: TObject);
begin
   table1.Filter := 'CODEPUK='+QuotedStr(edit1.Text+'*');
   table1.Filtered := true;
 
end;

[michaellynx]

je me reconnecte dans quelques minutes mais tu peux me laisser ton avis . ou je supprime tous les codes sur la page et je recommence?

[michaellynx]

Vu que je n'arrive pas a faire marcher le code, je souhaite une autre méthode. Quelqu'un peut il me dire comment faire pour afficher mon CODEPUK après avoir saisi au clavier mon NUMEROTELEPHONE?
je précise que la base de données relative est constituée de @ champs NUMEROTELEPHONE et CODEPUK et que chaque codepuk doit correspondre a un et un seul NUMEROTELEPHONE.
Comment dois je m'y prendre en reprenant de zéro?

[michaellynx]

Quelqu'un a t il une idée pour moi????

[Aka Guymelef]

Bieeen reprenons depuis le début.

Tu as une table avec deux champs NUMEROTELEPHONE et CODEPUK. Pour chaque NUMEROTELEPHONE tu as un CODEPUK.

Dans une fiche tu met un TTable relié à la table de ta BDD, un TDataSource qui prend comme DataSet le TTable, un TDBEdit qui est relié au DataSource déposé et qui prend comme DataField CODEPUK. C'est dans ce composant que l'on va afficher le CODEPUK recherché. Notez qu'à l'initialisation, la valeur affichée par ce champ correspond à une des valeurs du TTable sans distinction.

A côté l'on va rajouter un TEdit qui va servir à récupérer le NUMEROTELEPHONE que l'utilisateur a saisit. Sur le OnExit de ce TEdit (ou sur le OnClick d'un TButton éventuellement, comme on veut) mettre le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Table1.Filter := 'NUMEROTELEPHONE=' + QuotedStr( Edit1.Text );
Table1.Filtered := True;

Avec Table1 le TTable déposé et Edit1 le TEdit contenant le numéro de téléphone saisit.

[liazidf]

Bonjour Michaellynx,
j'ai réalisé ce petit programme pour toi, ça peut t'inspirer.

[michaellynx]

J ai essaye la source de liazidf mais a lexecution je vois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EDatabaseError et puis le message  Table1: Pas d Index pour les champs CODEPUK

Qu'estce que que je dois faire alors?