Treeview

**captainamerica75** · 20/01/2006, 12h19

Bonjour a tous,

Voila mon petit problème,

J'ai un treeview et je voudrais quand je double-clique sur ma branche que le formulaire correspondant s'ouvre :

voici le code :

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
Private Sub Xtree_DblClick()
 
Dim oTree, NodeClic As Node
Dim strFormname As String
Dim x As Object
Dim RS As DAO.Recordset
Dim db As Database
Dim Dossiers As DAO.Recordset
 
'----------------------------
'Ouverture des connexions
'----------------------------
Set oTree = Me.Xtree.Object
Set db = CurrentDb()
Set RS = db.OpenRecordset("Dossiers")
 
If RS.RecordCount = 0 Then
        RS.Close
        Set RS = Nothing
        MsgBox "Aucun dossier n'est sélectionné.", vbInformation, "Treeview"
        Exit Sub
    End If
 
    RS.MoveLast
    RS.MoveFirst
 
With RS
While Not RS.EOF
 
strFormname = DLookup("DETAIL_DOSSIER", "Dossiers", "ID_DOSSIER =" & Mid(oTree.SelectedItem.Key, 2))
 
 With x = strFormname
    DoCmd.OpenForm "x", , , "Dossiers", "ID_DOSSIER =" & Mid(oTree.SelectedItem.Key, 2)
 
End With
    RS.MoveNext
 
 
Wend
End With
 
End Sub

merci pour votre aide et bonne journée

**STEF_1** · 20/01/2006, 13h56

Bonjours ,

Plusieurs choses sur ton code :

le :

Code :

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

1
2
 
If RS.RecordCount = 0 Then

ne renvoit pas toujours le bon nombre d'info sans un :

Code :

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

1
2
3
 
    RS.MoveLast 
    RS.MoveFirst

avant

Il est mieu d'utiliser :

Code :

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

1
2
 
If not(rs.Bof) then

Pour ouvrir ton formulaire, je suppose que c'est le nom que tu récupère avec ton DlookUp, il faut :

Code :

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

1
2
 
Docmd.OpenForm strFormname

A+

**captainamerica75** · 20/01/2006, 15h30

salut merci pour tes explications. Est ce que je ne risque pas d'avoir un message d'erreur? car il va attendre un objet dans la commande

Code :

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

 DoCmd.OpenForm "strFormname"

merci.

autre question : Faut il que je supprime :

Code :

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

If RS.RecordCount = 0 Then

merci.

@ +

**STEF_1** · 23/01/2006, 08h55

Salut,

Il ne faut pas mettre de guillemet autour de ta variable, sinon cela revient à demander d'ouvrir le formulaire StrFormName

Et oui il faut remplacer ton

Code :

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

1
2
 
If RS.RecordCount = 0 Then

par un

Code :

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

1
2
 
If not(rs.BOF) then

A+

**captainamerica75** · 23/01/2006, 16h41

salut !!!!!!

juste pour te dire que ca fonctionne nickel !!!!

Une autre petite question... je souhaiterais que l'utilisateur est toujours accès au menu ("treeview") et ce quelque soit le formulaire où il se trouve. Est ce possible?

merci.

@+