Discussion :

[zeloutre]

Bonjour à tous !

je vous soumet ma colle du matin, décidemment, j'avance pas vite ...
Alors, j'ai un formulaire, dans lequel il y a des champs style nom prenom tel, et plein d'autres, etc.
dans ce formulaire, il y a un sous-formulaire qui m'affiche la liste des noms prenoms des contacts, depuis la table contact.
je souhaiterais que lorsque l'on clique sur un nom dans le sous-formulaire, les données de cette entrée s'affichent dans tous les champs de mon formulaire...
et comme d'hab, je ne sais pas comment faire...

si quelqu'un peut me filer un pe'tit coup de main, je le vénère ! lol

[elgringo2007]

Je n'ai pas tout compris mais je vais essayer de t'aider.

Dejà il faudrait savoir où l'on clique (un label, une combobox, etc...)
Après il faut que tu utilises les propriétés OnClick au autre pour afficher les autres valeurs liées au nom (de préférence, il faut mieux que ce soit une clé pour ainsi faire un requête "propre" à ta base)

En espérant te débloquer

[zeloutre]

alors il faut cliquer dans le champs nom du sous formulaire, et ainsi toutes les données de l'entrée apparaitraient dans les textbox du formulaire ... comme je maitrise pas VBA, je sais pas du tout comment faire ça

[elgringo2007]

Ben tu n'as pas trop le choix,
il va falloir coder quelques lignes en VBA.

Une fonction du style

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
Private Sub TonControleNom_Click()
 
Dim cnx As New ADODB.Connection
Dim rst As New ADODB.Recordset
 
        'Ouverture de la connexion
        cnx.Provider = "Microsoft.Jet.Oledb.4.0"
        cnx.ConnectionString = "Chemin\TaBase.mdb"
        cnx.Open
 
        'Sélection des données en fonction du nom
        rst.Open "SELECT * FROM TaTable WHERE nom = " & Me.TonControle & ";"cnx
 
        Me.AutreControleTelephone = rst("Telephone")
        Me.AutreControlePrenom = rst("Prenom")
        ...
 
        rst.close
        cnx.Close
 
End Sub

Après à toi d'adapter en fonction de tes besoins

[FreeAccess]

Bonjour,
Juste une question

A quoi sert ici ton formulaire......à part contenir ton sous-formulaire

Tu aurais plus vite fait de faire un formulaire en mode continu, représentant l'ensemble de tes contacts, et en cliquant sur un nom, tu récupére celui ci en paramètre pour ouvrir un second formulaire qui sera basé sur ce critère

En espérant avoir compris le sens de ta question....bonne continuation.

[zeloutre]

Alors là, je vais surement passer pour une baltringue, mais : "Toncontrole", "autrecontrole"... je met quoi comme controle ?

[zeloutre]

Freeaccess : j'essaye de faire en sorte d'ouvrir le moins de formulaires possibles, car il y en a dejà beaucoup trop, c'est pour de la gestion commerciale, c'est le bazar

[FreeAccess]

Private Sub TonControleNom_Click()

Ici, TonControleNom est le nom du contrôle sur lequel tu vas cliquer (dans ton cas le non du contrôle texte NOM qui se trouve dans ton sous-formulaire)

Me.AutreControleTelephone = rst("Telephone")

Ici, AutreControleTelephone est le nom du champ sur ton formulaire qui recevra la donnée .

[zeloutre]

Bon, rien à faire, ça marche pas ..
j'trouverai autre chose, pour contourner, comme d'hab...
merci beaucoup d'avoir tenté d'aider un boulet du formulaire, lol !