Sql ou vba recherche

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:

---

1 2 3

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

---

Une idée, merci

salut
Essai ça:

Code:

---

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

---

@+

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:

---

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

---

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

Code:

---

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é.

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:

---

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:

---

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:

---

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

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

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



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




Merci