Discussion :

[typzea]

Bonjour à tous !!

j'ai un petit problème etant debutant dans access j'ai besoin de votres expériences.

Voila j'ai créé une base de données sous access 2007 et plusieurs formulaire.

Je voudrais savoir s'il est possible que mon formulaire va rechercher plusieur element qui se trouve dans ma table et qui les inscrits dans mon formulaire.
Est-ce possible ?

J 'ai essayé avec ado (adodb) mais cela ne fonctionne pas pouvez vous m'aider?

merci d'avance pour vos suggestions?

[Pierre Fauconnier]

Bonjour, et bienvenue sur les forums de DVP.

La création d'un formulaire à l'aide de l'assistant va te permettre de bien comprendre le fonctionnement d'Access... Mais tu ne feras l'économie d'une bonne (auto)-formation, notamment via http://access.developpez.com...

[typzea]

merci pour t'a reponse mais en faite voila mon probleme

j'ai créé un formulaire avec une apparition des données comme une arborescence type exploirateur windows. mais probleme je n'arrive pas a dire a ce formulaire d'aller chercher des information dans une table
pouvez vous m'aider merci .

Par ailleur je suis entrain quand de regarder le liens que tu m'a donner merci ^^

[typzea]

bonjour

après des jour de reflexion j'ai enfin trouver seul pour créer une arborescence avec un treeview et alimenter par une bdd voici le code pour ceux qui rechercher

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Dim cnn As ADODB.Connection
Dim rstPro As ADODB.Recordset
Dim rstPerson As ADODB.Recordset
Dim strSQL As String
Dim strClefPro As String
Dim strclefPerson As String
Dim strTexte As String
 
' Préparation des objets ADO pour la table Person
Set cnn = CurrentProject.Connection
Set rstPro = New ADODB.Recordset
Set rstMenuAffaire = New ADODB.Recordset
strSQL = "SELECT * FROM [MenuAffaire] " & _
   "ORDER BY [Nom Dessinateur]"
rstPro.Open "MenuAffaire", cnn, adOpenForwardOnly, adLockReadOnly
 
' Préparation des objets ADO pour la table MenuAffaire
 
With Me.tvw
 
   ' Vider l'ensemble des noeuds, si nécessaire
   .Nodes.Clear
 
   ' Créer un noeud par propriétaire
   While Not rstPro.EOF
       strClefPro = "PRO" & rstPro("Nom Dessinateur")
       strTexte = rstPro("Nom Dessinateur") & " " & _
          rstPro("Vide")
 
   .Nodes.Add Key:=strClefPro, Text:=strTexte, _
      Image:="simple", SelectedImage:="simple"
 
   ' Créer une sous branche par Dossier
   strSQL = "SELECT * FROM [MenuAffaire]" & _
    " WHERE [Couleur]=" _
      & rstPro("Couleur") & _
    " ORDER BY [MenuAffaire];"
    rstMenuAffaire.Open "Couleurs", cnn, adOpenForwandOnly, adLockReadOnly
    While Not rstMenuAffaire.EOF
        strclefMenuAffaire = rstMenuAffaire("Couleur")
        strTexte = rstMenuAffaire("Couleur")
 
        '.Nodes.Add strClePro, tvwChild, _
            strclefMenuAffaire, strTexte, _
            "simple", "simple"
 
        'Dossier Suivant
        rstMenuAffaire.MoveNext
    Wend
        rstMenuAffaire.Close
 
        'Dossier suivant
        rstPro.MoveNext
    Wend
 
End With
 
End Sub

voila merci encore pour votre aide