Discussion :

[zidane2]

Bonjour à tous,
Dans cmd_recherche, j'aimerais bien savoir le code qui permet à ajouter la fonctionnalité de correspondance à un textbox lié à une base de donnée access.
c-à-d, si je chercher un nom, je veux quand je commence à saisir les premiers caractères , on me propose les noms qui commencent par ces caractères . (c'est la fonctionnalité qu'on trouve dans excel)
Voici le code dont je me sert dans cmd_recherche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
On Error Resume Next
     If Text1.Text = "" Then
       MsgBox "Veuiller saisir un nom à rechercher", vbInformation + _
                     vbMsgBoxRtlReading + vbOKOnly, "Attention"
End If
 
If Text1.Text <> "" Then
If IsNumeric(Text1) = False Then
    Set RS = New ADODB.Recordset
RS.Open "select * from patient where nom like '%" & Text1.Text & "%' And prenom like '%" & Text2.Text & "%'", DB, adOpenStatic, adLockOptimistic
       If RS.RecordCount > 0 Then
 
 Text1.Text = RS!Nom
 Text2.Text = RS!Prenom
 Text3.Text = RS!age
 Text4.Text = RS!date
 Text5.Text = RS!diagnostic
 Text6.Text = RS!plan
 Text7.Text = RS!obs
 Else
   MsgBox "Aucun patient avec ce nom", vbInformation + _
                     vbMsgBoxRtlReading + vbOKOnly, "Attention"
    End If
    Text1.SetFocus
End If
End If

merci à tous

[BERRACHED SAID]

Salut zidane2

le textbox dispose de plusieurs événements tache de place le code dans l'événement adéquate pour le résultat de la recherche tache aussi de remplacé les textbox par un listbox par exemple comme ça il pourra te proposé plusieurs items qui commence par la lettre recherché sache aussi que le textbox est statique sauf si tu lui ajoute un ScrollBar il ne pourra t'afficher qu'un seul item.

Bonne journée

[zidane2]

Merci M.BERRACHED de ta réponse
Donc si je comprends bien ce que je cherche n'est pas possible avec le textbox.

[faroukvazaha]

Bonjour,

La réponse à ta question est : oui, cela est possible.
Je ne sais si tu as trouvé ce que tu recherches pour ton textbox, mais ce soir je posterais un code qui devrait répondre à ta question.

A+
FaroukVazaha

[hpfx]

Salut, il y a plusieurs elements a prendre en compte,
premierement la proposition d'utiliser une liste (combo) est pertinante.
et ensuite, savoir où on place le code de recherche, comme indiqué il y a plusieurs types d'evenements dans un controle (qu'il soit textbox, combo ou autre) et en particulier il en existe qui sont appellés lors de la pression de touche ou lors de modification.
par exemple KeyPress est appellé au moment ou tu appuye sur une touche (que ca soit un caractere comme la lettre "a" ou bien la touche "Entrée").
Le mieux est de faire un test, avec une appli vide et de regarder dans quelle cas sont appellé chacuns des evenements, c'est pas bien dur, il y a les evenements _Change(), _KeyDown(), _KeyPress(), _KeyUp() c'est important que tu comprennes comment ils réagissent. (et a quel moment : avant ou apres modification de la proprieté Text/Value)

Ensuite, quand tu a trouvé la bonne fonction a utiliser (le bon evenement) il suffit de remplir la liste a ce moment là...

astuce : au fait, dans certain cas tu peux modifier dans la fonction la valeur de la touche (utile pour annuler l'effet d'une touche) au fait la touche ENTREE=13
exemple :

Code :

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

If KeyCode = 13 Then Call ma_fonction_magique : KeyCode = 0 ' ici 0 annule l'effet

sinon, pendant que j'y suis (mais ca ne devrait pas te service) touche TAB c'est 9, et ESC c'est 27.

Au fait, les fonction chr() et asc() permettent de convertir de l'ascii vers du texte, et vis-versa. En fonction de ce que tu va choisir, il se peut que tu soit amené a convertir un KeyCode ou un KeyAscii en un caractere. (c'est pas obligé, mais il est possible que tu passe par une telle solution)

Pense bien a tout gerer (par exemple le _Change() qui va arriver quand tu aura cliqué dans la liste ne doit pas relancer une recherche...)
C'est tres interessant (pas si difficile) et tres instructif.