Discussion :

[stargates]

Bonjour,


Je suis débutant sous access, et je voudrais effectuer une recherche sur un champ par ordre alphabétique.

Donc j'ai une zone de texte(recherche) dans lequel l'utilisateur rentre une lettre S par exemple, je voudrais que cela m'affiche le premier enregistrement du champ Nom commencant par la lettre s(par exemple saturnin)si l'utilisateur rentre une deuxième lettre i par exemple il m'affiche Sirène et ainsi de suite

J'ai essayé ceci mais sans résultat

Code :

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

1
2
3
 
'Dim qry As QueryDef
'Set qry = CurrentDb.CreateQueryDef("Select * from Clients WHERE Nom > 0 ORDER BY Nom")

Une idée, merci

[keita]

salut
Essai ça:

Code :

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

...........WHERE Nom Like '" &  Me!recherche & "*' ORDER BY Nom")

@+

[stargates]

salut,
J'ai essayé ton code ,mais rien ne change
Il me donne une erreur:erreur d'éxécution '3012'

L'objet Select * from Clients WHERE Nom Like 's*' ORDER BY Nom existe déjà

Code :

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

1
2
3
4
5
6
7
 
 
Private Sub txtRecherche_Change()
Dim qry As QueryDef
Set qry = CurrentDb.CreateQueryDef("Select * from Clients WHERE Nom Like '" & Me!txtRecherche & "*' ORDER BY Nom")
 
End Sub

[fdraven]

Tu ne donnes pas de nom à ta requête :

Code :

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

1
2
3
4
5
Private Sub txtRecherche_Change()
Dim qry As QueryDef
Set qry = CurrentDb.CreateQueryDef("NOMREQUETE","Select * from Clients WHERE Nom Like '" & Me!txtRecherche & "*' ORDER BY Nom")
 
End Sub

Attention il faut tester si le nom de ta requête n'existe pas déjà, sinon il te retournera une erreur.

En espérant t'avoir aidé.

[stargates]

Salut,

J'ai essayé ton code fdraven,merci

1) Avant chaque recherche il faut supprimer la requête "RechercheNom"
sinon, il me dit qu'elle existe déjà.
2) il ne m'affiche toujours que le premier enregistrement de la table => rien ne change

ton code

Code :

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

1
2
3
4
5
6
 
Private Sub txtRecherche_Change() 
Dim qry As QueryDef 
Set qry = CurrentDb.CreateQueryDef("NOMREQUETE","Select * from Clients WHERE Nom Like '" & Me!txtRecherche & "*' ORDER BY Nom") 
 
End Sub

le mien avec la suppression de la requête "RechercheNom"comme ca plus d'erreur

Code :

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

1
2
3
4
5
6
7
 
Private Sub txtRecherche_Change() 
Dim qry As QueryDef 
CurrentDb.QueryDefs.Delete "RechercheNom"
Set qry = CurrentDb.CreateQueryDef("RechercheNom","Select * from Clients WHERE Nom Like '" & Me!txtRecherche & "*' ORDER BY Nom") 
 
End Sub

Si cela peut vous aider mon idée venait d'un projet vb réalisé au cours

Code :

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

1
2
3
4
5
6
 
 
Private Sub txtRecherche_change()
'Place le recordset en fonction du caractère entré
adoClients.RecordSource = "Select * From Clients Where Nom >="' & txtRecherche.Text & '"" & "ORDER BY Nom"
adoClients.Refresh

Merci

[Arkham46]

slt,

dans ton code tu lui demandes de créer une requête, donc ça crée une requête
---> donc ça marche....

il n'y a pas de rapport entre ton code et celui dont tu es inspiré.

- Le code initial filtre l'objet adoClients
- Ton code crée une requête

si tu veux mon avis tu devrais jeter un oeil au tutoriel DAO :
http://warin.developpez.com/access/dao/

qui t'explique notamment comment se positionner dans un formulaire :
http://warin.developpez.com/access/d...=partie_5#L5.3

[stargates]

salut ,c'était pour montrer ce que je voulais faire



Mais comment faire la meme chose avec Access sans passer par DAO




Merci