Discussion :

[chrtophe]

Bonjour,

J'ai crée une procédure de recherche d'enregistrement.
Je cherche à afficher tous les enregistrements commençant par b par exemple. Actuellement j'arrive à aficher 1 seul enregistrement qq1 peut il m'aider ?

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
 
variable = InputBox(Prompt:="Quel nom rechercher ?")
req_nbre = "SELECT Count(*) AS test FROM T_acteurs WHERE (((T_acteurs.Nom) Like "
req_nbre = req_nbre & "'" & variable & "*'));"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(req_nbre)
test = rst!test
If test = 0 Then MsgBox "Aucun élement trouvé" Else trouve (variable)
 
Sub trouve(variable)
req = "SELECT * FROM T_acteurs WHERE (((T_acteurs.Nom)LIKE "
req = req & "'" & variable & "*'));"
MsgBox req
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(req, dbOpenDynaset)
MsgBox "nbre enregistrements " & rst.RecordCount
Forms(0).RecordSource = req
nom_formulaire = Forms(0).Name
critere = "[Num]=" & Me![Num]
DoCmd.Close
DoCmd.OpenForm nom_formulaire, , , critere

Ma requete SQL est bonne, si je la copie dans une requete vierge, elle m'affiche bien tous les enregistrements commençant par b

Merci de votre aide

[Igloobel]

Bonjour,

Il me semble qu'il n'y a pas de ";" à la fin de la req sous VBA alors que sous l'assitant oui

Cordialement

Igloobel

[chrtophe]

Aucune différence avec ou sans point-virgule, la requête s’exécute et j'ai toujours un seul enregistrement.