Affichage résultat d'une requête dans un champs sur le formulaire

**royalphilosophy** · 27/10/2006, 10h40

bonjour @ tous,
Voilà... tout est dans le titre....
Je veux un formulaire où figure un champs ( qui correspond à ma clé primaire donc un seul résultat possible.... ) à rechercher dans ma table. Et en dessous tous les champs en rapport un fois que j'ai cliquer sur le bouton de recherche.
Je sais j'en demande beaucoup.....
Pour l'heure j'ai un fichier de test voici comment il se présente, un champs nom et un champs prénom, d'après le nom que je rentre il viendra m'écrire le prénom de la personne dans l'autre champs.....

( C'était une illustration si j'avais pas été clair avant.... )

Merci @ tous de votre aide !

**Herman** · 27/10/2006, 10h54

Code :

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

1
2
3
4
    Dim sql As String
    sql = "SELECT ta_table.prenom FROM ta_table WHERE ta_table.ton_champs_nom_dans_ta_table = '" & Me.champs_nom_dans_ton_formulaire& "'; "
    Me.ton_champs_prenom.RowSource = sql
    Me.ton_champs_prenom.Requery

Et met plutôt une liste déroulante pour tes prénoms au lieu d'une simple zone de texte, car pour un même nom il risque d'y avoir plusieurs prénoms, donc tu pourra le sélectionner grâce à ta liste déroulante

**royalphilosophy** · 27/10/2006, 11h03

Merci mais mm les listes déroulantes je sais pas les faire.....
Je teste ton code et te tient au courant
merci beaucoup pour la rapidité

**Herman** · 27/10/2006, 11h06

Met ce code après mise à jour de ton champs nom

Et pour creer ta liste déroulante, tu click sur l'assistant zone de liste déroulante, quand il te demande les 3 options au début, tu annule. Après tu vas dans les propriétés de ta zone de liste pour changer le nom, et le tour est joué

**royalphilosophy** · 27/10/2006, 11h20

"Met ce code après mise à jour de ton champs nom"

ça ne me parle pas.....

**Herman** · 27/10/2006, 11h30

1/ bouton droit sur ton champs nom dans ton formulaire
2/ Propriétes
3/ Evènements
4/ Après Mise à jour
5/ Tu C/C le code

**royalphilosophy** · 27/10/2006, 11h41

Code :

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

1
2
3
4
5
6
7
8
Option Compare Database
 
Private Sub Prénom_AfterUpdate()
 Dim sql As String
 sql = "SELECT * FROM Table1 WHERE Table1.Prénom = '" & Me.Prénom & "'; "
 Me.Prénom.RowSource = sql
 Me.Prénom.Requery
End Sub

Moi j'obtiens ça en suivant tes explications
et à l'exécution il me dit que ça génère un erreur avec le serveur ActiveX....

**Herman** · 27/10/2006, 11h57

Envoyé par Herman

1/ bouton droit sur ton champs nom dans ton formulaire

Envoyé par royalphilosophy

Private Sub Prénom_AfterUpdate()

Tu as mis sur après mise à jour du champs prénom

Et :

Envoyé par royalphilosophy

un champs nom et un champs prénom, d'après le nom que je rentre il viendra m'écrire le prénom de la personne dans l'autre champs

Mais maintenant que tu as modifié la requête que je t'ai mise, tu fait un SELECT *, c'est normal que ça ne marche pas ...

**royalphilosophy** · 27/10/2006, 12h08

oui en fait je t'ai énoncé le problème à l'envers....
Je cherchais le nom associé au prénom recherché....
Je refais toute ma base depuis le départ avec les infos que tu m'as apporté puisque je faisais la recherche à l'envers comparé à ce que tu croyais....

**royalphilosophy** · 27/10/2006, 12h40

Bon voilà tout a été MàJ.
Il me reconnait pas l'instruction 'RowSource' à priori vu qu'il me la surligne à l'exécution du code ( je suis en access 2000 je ne sais pas si ça joue.... ).
De plus, qq chose m'échappe..... pourquoi je n'ai pas renseigné dans le bouton l'exécution du code? c'est bien quand je cliques dessus que le champs prénom se met à jour avec la valeur retournée par ma table non?

**Herman** · 27/10/2006, 13h56

hum, tu veux chercher le prénom à partir du nom ? ou le ocntraire alors ??

Et si tu as un bouton, alors le code est à insérer sur l'évènement "sur click" du bouton et non après mise à jour du champs.

**royalphilosophy** · 27/10/2006, 14h16

alors en définitive je cherche le prénom en renseignant le nom
mais l'instruction rowsource semble ne pas etre acceptée par access....

**Herman** · 27/10/2006, 14h55

Quand tu es dans le code, dans ta procédure événementielle, tu vas dans : outils ==> référence, et assure toi que Microsoft Access xx.x Object library et Microsoft DAO x.x Object library soit bien coché.

Je pense que ça doit venir d'une de ces deux références.

Et comme tu cherche le prénom en renseignant le nom, il faut bien faire :

Code :

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

1
2
3
4
    Dim sql As String
    sql = "SELECT ta_table.prenom FROM ta_table WHERE ta_table.ton_champs_nom_dans_ta_table = '" & Me.champs_nom_dans_ton_formulaire& "'; "
    Me.ton_champs_prenom.RowSource = sql
    Me.ton_champs_prenom.Requery