Oui Mr. Teebo, j'ai pas voulu afficher en double. La première fois je me suis trompé de Forum, et je me suis rangé alors.

En fait pour la question. J'ai programmé un Menu Tree ( Style Windows Explorer ). Et cela doit se comporter comme suit:

Set nodX = treeviewGeVo.Nodes.Add(, , "Group1", "Sportif", "FolderOpen") 'Group Sportif
Set nodX = treeviewGeVo.Nodes.Add(1, tvwChild, , "Footballeur", "FolderClose") 'Group Footballeur
Set nodX = treeviewGeVo.Nodes.Add(2, tvwChild, , "France", "FolderClose") ' Group Francais
Set nodX = treeviewGeVo.Nodes.Add(3, tvwChild, , "Eric Cantona", "LeafRead") ' Liste des joueurs. Et liens. Onclick = Action

Lorsque le Menu Tree est complètement déballé, on peut selectionner le joueur.
Le nom du joueur selectionné est transmis sera recherché dans la base de donnée puis transmis à une variable pour affichage.

Voici par exemple comment les infos sont alignés dans Access
--------------------------------------------------------------------------
Eric Cantona | 34 ans | Marié | Retraité | ...
---------------------------------------------------------------------------
Didier Deschamps | 32 ans |Célibataire | Retraité | ...
----------------------------------------------------------------------
..
..
etc

Si le joueur est trouvé, dans la base de donnée, alors il affiche toute la ligne d'infos sur ce joueurs.
Dans le cas de Cantona, il affichera donc: 34 ans , marié , retraité.

C'est un peu compliquer d'expliquer comme cela je sais mais, je fais des efforts.

Pas de probleme
Je connais l'Allemand. Je comprend et je parle Allemand. J'ai étudié en Allemagne. Donc fais gaffe !

Je vais essayer de me débrouiller . J'espère que ton HP trouver la réponse à mon prbleme

Moi, limite...je commence a me debrouiller, mais comme a part office, j'ai reussi a negocier un envirronement anglais, le technique en allemand passe pas...

HP?

ö,ö
\_/

Salut Mouse et merci pour ton code. Malheureusement,j'ai l'imprion qu'il ya qqchose qui ne marche toujours pas.


La première erreur lors de la compilation pointe sur
set Db = CurrentDb
Description: Runtime Error, Object Required

Si je met setDb = currentDb en commentaire, l'erreur pointe maintenant sur
Set Re = Db.OpenRecordset("test", dbOpenSnapshot)
Description: Object variable or with block variable not set

Voici le code complet

Dim Db As Database
Dim Re As Recordset

Data1.DatabaseName = App.Path & "\test.mdb"
Set Db = CurrentDb
Set Re = Db.OpenRecordset("test", dbOpenSnapshot)

bsName.Caption = treeviewGeVo.SelectedItem.Text
Do Until Re.EOF

Re.Index = "recherche_nom"
Re.Seek "=", bsName.Caption

If Re.NoMatch Then
Re.MoveNext
'cas ou la valeur n'est pas trouvée
Else
MsgBox "C'est bon"
' si la valeur est trouvé, alors re contient toutes tes données
' si age est le nom du champs qui contient les ages, alors "re!age" est egale a son age...
Re.Close
End If

Loop
Db.Close

Salut Mouse

'OPeration is not supported for this type of Object'

C'est le message d'erreur que je recois maintenant.
Il y aurait un problème avec
Re.Index resp.
Re.Seek (Voir code ci-dessus)

Est ce que tu epux essayer de compiler toi même et constater la même chose que moi. Tu sais VB c'est pas mon affaire à proprement parler