Programmation/Rechercher
Résolu
rarinjaka
Messages postés
9
Statut
Membre
-
fiddy Messages postés 441 Date d'inscription Statut Contributeur Dernière intervention -
fiddy Messages postés 441 Date d'inscription Statut Contributeur Dernière intervention -
Slt, j'aimerai mettre en évidence un programme qui, à chaque fois que je saisie une lettre (input), le programme affiche à chaque changement tous les mots ou phrases commançant par la lettre saisie (output), il recherche dans la base de données toutes les informations les conçernants. Merci d'avance
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
Salut
Tu fais un parcours de dictionnaire. Tu parcours la base séquentiellement et tu affiches le premier mot que tu rencontres dont le mot tapé par l'utilisateur est le début du mot du dictionnaire. (InStr) -
Merci de m'avoir aidé, mais le probleme persiste encore:
L'interface contient un textbox nommé TxtRecherche et un ListBox nommé LstRecherche
Private Sub TxtRecherche_Change()
' Declaration base de donnée et jeu d'enregistrement ainsi que une variable
Dim BD As DAO.Database
Dim RS As Recordset
Dim AFSTR As String
' Annuler les espaces et transformer en majuscule
TxtRecherche = Trim$(TxtRecherche.Text)
TxtRecherche = UCase(TxtRecherche)
Set BD = OpenDatabase("Chemin de la base")
Set RS = BD.OpenRecordset("SELECT NOM FROM FICHE")
RS.MoveFirst
Do
AFSTR = RS![NOM]
RS.MoveNext
If InStr(TxtRecherche, AFSTR) Then
LstRecherche.AddItem AFSTR
End If
Loop Until (RS.EOF = True)
End Sub
Cette programme tourne si on introduit le nom complet, or ce que je profere avoir que si
je saisie R, le programme affiche tous le nom commançant par R
et si on saisie RA, il n'affiche que les noms RAN ou RAV ainsi de suite
Cordialement,
Merci d 'avance -
Tu as écrit : If InStr(TxtRecherche, AFSTR) Then
Fais plutôt : If InStr(AFSTR,TxtRecherche) Then
