Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour a tous et a toutes
SVP gentelmans
Se sera un tres grand plaisir et bienfait si vous pouvez m'aider a continuer mon projet
Si c'est possible svp de remplacer Text6 par une ListBox ou ComboBox afin de faire une recherche par premiere lettre dans la base de donnee (tb1)
Des que j'ecris la prmiere lettre dans Text6 s'affichera dans List1 ou dans Combo1 les noms commencant par cette lettre .. et si je fais double click sur un nom affiche alors ses cordonnees seront bien affiches dans les autres Text
Merci beaucoup d'avance pour l'aide
Tres cordialement
MADA BLACK
Recherche par premiere lettre.zip

[unparia]

Bonjour
Ce qui signifierait donc : résultat d'une requête utilisant l'opérateur Like à chaque saisie du premier caractère. Alourdissant et ralentissant. Assurément.

[MADA BLACK]

Bonjour unparia
Merci 1000 fois pour votre opinion ..tres ravi de vous voir ici dans mon sujet
"Alourdissant et ralentissant"
Mais pour moi un grand nul en VB6 se sera mieux que rien
Tres cordialement
MADA BLACK

[iclic]

Bonjour Mada,

Peut-être mettre tous les noms dans une ListBox avec
la méthode Sorted à la valeur True pour déjà obtenir une liste des noms triées
par ordre alphabétique.

[MADA BLACK]

Bonjour iclic
Tres tres ravi de vous rencontrer dans ce sujet
Merci beaucoup pour votre opinion et votre aide
Tres gentil de votre part
Je vais essayer de faire ce que vous m'avez dites
tres cordialement
MADA BLACK

[l_autodidacte]

Une autre approche avec ListBox et recherche sans toucher au bouton intitulé "Recherche" qu'on peut masquer sans problème.

un Label indique si la recherche est fructueuse ou non. Dans l'affirmative, les champs(TextBox 1 à 5) sont remplis par les données correspondantes.
A toi d'en juger.

[MADA BLACK]

Bonjour L'AUTODIDACTE
Merci 1000 fois pour ce super fichier et impeccable travail
Vraiment un joli et tres tres satisfaisant projet de votre part
C'est parfaitement resolu
Du fond du coeur "MERCI - BRAVO"
Cordialement
MADA

[iclic]

Bonjour Mada,

En modifiant légèrement le code de l'autodidacte, on peut en introduisant la première lettre
du nom, mettre dans List1 tous les noms commençant par cette lettre puis cliquer
sur le nom que l'on veut sélectionner pour afficher les coordonnées dans les textbox.



Recherche sur première lettre.zip

[MADA BLACK]

Bonjour ICLIC
Merci 1000 fois pour vos impeccables codes
Merci 1000 fois pour votre magnifique fichier et superbe travail surtout avec la merveilleuse option de recherche ajoutee par votre part lorsque j'ai plusieurs noms identiques ..vraiment c'est super de voir tous ces noms dans la List1.
Simplement une petite remarque cher maitre :
Lorsque j'ecris la lettre par exemple "m" alors s'affichent tous les noms qui commencent par cette lettre "m" dans la List1 .. jusqu'a ici ca fonctionne tres tres bien ..mais si on change cette lettre "m" par une autre lettre par exemple "x" dont AUCUN nom qui commence par cette lettre ..j'ai remarque que les anciens nom qui comment par "m" déja affiches dans la List1 .. restent toujours affiches dans List1 .. j'aimerai bien si vous pouvez m'aider que dans ce ce cas la List1 sera vide
Merci beaucoup d'avance
Tres gentil de votre part
Tres amicalement
MADA

[DAUDET78]

j'aimerai bien si vous pouvez m'aider que dans ce ce cas la List1 sera vide
Merci beaucoup d'avance
Tres gentil de votre part
Tres amicalement

Tu es tellement gentil, qu'on te donnerai le Bon Dieu sans confession ! Et tu arrives ainsi à faire faire ton projet par les autres .....
Je me suis fait avoir une fois .... Pas deux !

[iclic]

Bien vu cher Daudet en plus que la dernière demande de Mada est dune simplicité rare.
C'est vrai qu'il devrait proposer un code et éventuellement on pourrait le corriger.
Mais son projet n'est quand-même pas très évolué.

Salut

[MADA BLACK]

Tu es tellement gentil, qu'on te donnerai le Bon Dieu sans confession ! Et tu arrives ainsi à faire faire ton projet par les autres .....
Je me suis fait avoir une fois .... Pas deux !

Lorsque je ferai presque 10 annees comme vous je ne demande plus a personne de m'aider et peut etre je serai un expert mieu que vous .. qui sait

[iclic]

Bonjour,

Voilà en gras et souligné ce qu'il faut ajouter

Code :

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

1
2
3
4
5
6
Private Sub txtSearchData_Change()

   Static tb$()
   Dim Ind%, Found As Boolean, Pos&
   List1.Clear  ...

[MADA BLACK]

Bonsoir ICLIC
Je n'ai rien qu'a vous dire "BRAVO"
Parfaitement résolu
Tres cordialement
MADA