IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Comportement bizarre Treeview suivant différents formulaires


Sujet :

VBA Access

  1. #1
    Membre actif
    Homme Profil pro
    Inscrit en
    janvier 2011
    Messages
    884
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : janvier 2011
    Messages : 884
    Points : 219
    Points
    219
    Par défaut Comportement bizarre Treeview suivant différents formulaires
    Bonjour à tous

    J'ai créé un treeview incrusté dans un formulaire indépendant qui lui-même peut être incrusté en tant que container dans n'importe quel formulaire.

    Dans le module associé je déclare l'objet treeview de cette façon :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
        Public Function RemplirTreeviewDetailsPersonne()
     
    Dim tv As MSComctlLib.TreeView
     
        Dim db As DAO.Database
        Set db = CurrentDb
     
        Set curForm = Form_TreeviewPersonnes
     
            Set tv = curForm.TreeViewDetailsPersonne.Object
            curForm.Visible = True
            tv.ImageList = curForm.ImageList.Object
    Tout marche bien lorsque je déclenche la fonction "remplirtreeviewdetailspersonnes" au clic sur un champ du formulaire ou état actif cependant, si je veux que cette fonction se déclenche à l'événement onload() ou current() d'un formulaire en mode listing là, le formulaire incrusté contenant le treeview s'ouvre sans qu'on lui ait demandé en arrière plan en plus de celui déjà incrusté dans le formulaire actif...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    Private Sub Form_Current()
    'On Error Resume Next
     
    If Me.IdPersonne <> vbNullString Then
     
    CodePersonne = Me.IdPersonne.Value
    Call RemplirTreeviewDetailsPersonne
     
        End If
    Tant que le formulaire en arrière plan reste ouvert, impossible de voir l'info du treeview incrusté, dès que je ferme ce formulaire et que je reviens sur le formulaire actif tout marche !!! je peux donc cycler sur les différentes lignes du formulaire continu (avec sélecteur) et le treeview marche à merveille !!!

    Quelqu'un aurait il une idée de pourquoi le formulaire de treeview s'ouvre tout seul uniquement quand j'utilise les méthodes onload() ou current() sur un formulaire continu avec sélecteur ?

    Merci d'avance pour vos réponses

  2. #2
    Modérateur

    Homme Profil pro
    Inscrit en
    octobre 2005
    Messages
    14 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2005
    Messages : 14 964
    Points : 22 758
    Points
    22 758
    Par défaut
    Bonjour, ceci n'est pas une certitude mais une idée.

    En Access le formulaire en mode continu ne semble avoir qu'une seule instance des champs indépendants qu'il répète autant de fois qu'il y a d'enregistrement.
    Si tu as 10 enregistrements, tu te retrouves avec 10 fois la même valeur affichée, celle correspondant à l'enregistrement sélectionné :-(.

    Donc si ton TreeView est dans un contrôle indépendant c'est peut-être l'explication.

    Une idée de contournement, mettre le treeview dans son propre formulaire et avoir un bouton "Voir Tree View" dans ton formulaire continu (un truc du genre) qui permet d'ouvrir seulement un Tree View.

    Autre option, selon ce que présente le treeview : utiliser des formulaires imbriqués en mode feuille de données.

    Depuis la versions 2007, il me semble, Access te permet d'imbrique des sous-formulaires (7 selon mes essais) en mode feuille de données.

    Ça donne un truc du genre :

    Enr 1

    Enr 1.1

    Enr 1.1.1
    Enr 1.1.2
    Enr 1.2
    Enr 2

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  3. #3
    Membre actif
    Homme Profil pro
    Inscrit en
    janvier 2011
    Messages
    884
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : janvier 2011
    Messages : 884
    Points : 219
    Points
    219
    Par défaut
    Bonjour marot_r

    Merci d'avoir répondu à mon message

    En fait le treeview en question est bien dans un formulaire à part qui est incrusté dans un autre formulaire ...

    J'ai un sous-formulaire continu qui envoie la valeur de la variable CodePersonne au click sur le sélecteur de la ligne active au module du treeview sur l'événement current().
    La variable est bien envoyée au module, aucun problème de ce coté là...

    Le problème est en fait que lors du click sur la ligne choisie le treeview ne s'initailise pas ou bien une fois sur deux, je pense donc que la référence à la fonction "remplirtreeviewdetailspersonne" dans le module n'est pas bonne :

    - J'ai essayé avec la méthode CallByName : c'est pas bon...
    - J'ai essayé en mettant le form du treeview en variable form/object: rien ne change

    A noter que l'initialisation/affichage du treeview fonctionne parfaitement dans d'autres formulaires et toujours en envoyant la variable au module au click sur le sélecteur, donc c'est uniquement dans ce formulaire précis que la fonction ne s'éxécute pas correctement...

    J'ai dû oublier un détail...

  4. #4
    Membre actif
    Homme Profil pro
    Inscrit en
    janvier 2011
    Messages
    884
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : janvier 2011
    Messages : 884
    Points : 219
    Points
    219
    Par défaut
    Dernières infos :

    Si je rajoute curform.visible=true le treeview s'ouvre en arrière plan (sans que je lui ai demandé)

    Si je ferme ladite fenêtre et que je reviens à l'autre formlulaire le treeview est affiché correctement avec les bonnes infos et je peux changer de ligne tout s'actualise !!!

    Je comprends plus rien !

    D'autre part je ne peux pas vider la variable CodePersonne (long en public au début du module et qui renvoie bien la bonne valeur...) en fin de fonction car ça arrête le code, bizarre non ?

    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
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
     
    Public Function RemplirTreeviewDetailsPersonne()
     
    Set curForm = Form_TreeviewPersonnes
     
    Debug.Print CodePersonne
        Dim tv As MSComctlLib.TreeView
     
        Dim db As DAO.Database
        Set db = CurrentDb
     
            Set tv = curForm.TreeViewDetailsPersonne.Object
            tv.ImageList = curForm.ImageList.Object
           curForm.Visible = True
     
        'Supprimer les infos-bulles qui font buguer le Treeview
        SetWindowLong tv.hwnd, GWL_STYLE, GetWindowLong(tv.hwnd, GWL_STYLE) Or TVS_NOTOOLTIPS '
     
        Dim nodParcelle As MSComctlLib.node
        Dim nodTitreParcelles As MSComctlLib.node
        Dim nodx As MSComctlLib.node
        Dim nodAdresse As MSComctlLib.node
        Dim nodTitreAdresse As MSComctlLib.node
        Dim nodTitreTelephones As MSComctlLib.node
        Dim nodTelephone1 As MSComctlLib.node
        Dim nodTelephone2 As MSComctlLib.node
        Dim nodPersonne As MSComctlLib.node
        Dim nodRelations As MSComctlLib.node
        Dim nodTitreRelations As MSComctlLib.node
        Dim nodRDV As MSComctlLib.node
        Dim nodListeRdv As MSComctlLib.node
        Dim nodTypepropriété As MSComctlLib.node
        Dim nodDateRDV As MSComctlLib.node
        Dim nodExploite As MSComctlLib.node
     
        Dim CompteurParcellesProprietaire As Integer
        Dim CompteurParcellesExploitant As Integer
        Dim compteurParcelles As Integer
        Dim TitreCompteurParcelles As String
     
        Dim rstParcelles As DAO.Recordset
        Dim rstPersonnes As DAO.Recordset
        Dim rstRelations As DAO.Recordset
        Dim rstListeRDV As DAO.Recordset
        Dim rstTaches As DAO.Recordset
        Dim rstExploite As DAO.Recordset
     
        If DCount("idpersonne", "personnes") = 0 Then
            Exit Function
     
                Else
     
        'Comptage des parcelles
        CompteurParcellesProprietaire = Nz(DCount("idparcelle", "possede", "idpersonne=" & CodePersonne), 0)
        CompteurParcellesExploitant = Nz(DCount("codeexploitant", "rqparcellesparexploitants", "codeexploitant=" & CodePersonne), 0)
        compteurParcelles = CompteurParcellesProprietaire + CompteurParcellesExploitant
     
        Select Case compteurParcelles
            Case Is = 0
            TitreCompteurParcelles = "Parcelles : Aucune"
            Case Is = 1
            TitreCompteurParcelles = "1 parcelle : "
            Case Is > 1
            TitreCompteurParcelles = compteurParcelles & " parcelles : "
     
        End Select
     
        'formattage du treeview
        tv.Nodes.Clear
        tv.Font.Name = "arial"
        tv.Font.Size = 9
        tv.Appearance = cc3D
        tv.Indentation = 200
        'TV.Nodes.Clear
     
        Set rstParcelles = db.OpenRecordset("select * from RqParcellesParExploitantsEtProprietaires where idpersonne=" & CodePersonne, dbReadOnly)
        Set rstPersonnes = db.OpenRecordset("select * from rqpersonnes where idPersonne =" & CodePersonne, dbReadOnly)
     
        Set nodx = tv.Nodes.Add(, , , rstPersonnes!Personne, 8)
     
        nodx.Bold = True
        nodx.ForeColor = vbBlue
     
        Set nodTitreAdresse = tv.Nodes.Add(nodx, tvwChild, , "Adresse : ", 5)
        nodTitreAdresse.ForeColor = vbBlue
     
        Set nodAdresse = tv.Nodes.Add(nodTitreAdresse, tvwChild, , Nz(rstPersonnes![AdressePersonne], "Non précisée"))
        Set nodTitreTelephones = tv.Nodes.Add(nodx, tvwChild, , "Télephones :", 6)
        nodTitreTelephones.ForeColor = vbBlue
     
        Set nodTelephone1 = tv.Nodes.Add(nodTitreTelephones, tvwChild, , "Fixe    : " & Nz(Format(rstPersonnes!Telephone1, "00\.00\.00\.00\.00"), "Non renseigné"), 6)
        Set nodTelephone2 = tv.Nodes.Add(nodTitreTelephones, tvwChild, , "Mobile : " & Nz(Format(rstPersonnes!Mobile, "00\.00\.00\.00\.00"), "Non renseigné"), 7)
        'Set nodRDV = TV.Nodes.Add(nodx, tvwChild, , "Rendez-vous, événements et tâches : ", 4)
        'nodRDV.ForeColor = vbBlue
     
        'Set rstListeRDV = CurrentDb.OpenRecordset("select * from tâches where personne=" & rstPersonnes!IdPersonne)
     
    '    Do While Not rstListeRDV.EOF
    '
    '    Set nodDateRDV = TV.Nodes.Add(nodRDV, tvwChild, , Format(rstListeRDV!Datedébut, "dddd d mmmm yyyy") & " de " & Format(rstListeRDV!HeureDebut, "h\hmm") & " à " & Format(rstListeRDV!HeureFin, "h\hmm"))
    '    Set nodListeRdv = TV.Nodes.Add(nodDateRDV, tvwChild, , Nz(rstListeRDV!ObjetTache))
    '    rstListeRDV.MoveNext
    '    Loop
    '    rstListeRDV.Close
     
     
        Set rstRelations = db.OpenRecordset("select * from rqunionrelationspersonnes where idpersonne1=" & CodePersonne, dbReadOnly)
     
        Set nodTitreRelations = tv.Nodes.Add(nodx, tvwChild, , "Relations / Parentée :", 2)
        nodTitreRelations.ForeColor = vbBlue
     
        Do While Not rstRelations.EOF
        Set nodRelations = tv.Nodes.Add(nodTitreRelations, tvwChild, , rstRelations!typerelation & " de " & rstRelations!personne2, 2)
        nodRelations.ForeColor = RGB(100, 125, 210)
     
        rstRelations.MoveNext
        Loop
     
        Set nodTitreParcelles = tv.Nodes.Add(nodx, tvwChild, , TitreCompteurParcelles, 3)
            nodTitreParcelles.ForeColor = vbBlue
     
        Set rstExploite = db.OpenRecordset("select * from rqparcellesparexploitants where codeexploitant=" & CodePersonne, dbReadOnly)
     
            Do While Not rstExploite.EOF
            Set nodExploite = tv.Nodes.Add(nodTitreParcelles, tvwChild, , "Exploite { " & rstExploite!Parcelle & " } à " & rstExploite!Commune & IIf(rstExploite!MSAExploitant = True, "(MSA)", ""), 10)
            nodExploite.ForeColor = RGB(153, 0, 0)
            rstExploite.MoveNext
            Loop
     
            Do While Not rstParcelles.EOF
            Set nodParcelle = tv.Nodes.Add(nodTitreParcelles, tvwChild, , "{ " & rstParcelles!Parcelle & " } à " & rstParcelles!Commune & " => " & rstParcelles!TypePropriete & " " & IIf(rstParcelles!MSAParcelle = True, "(MSA)", ""), 3)
            nodParcelle.ForeColor = RGB(0, 153, 0)
            rstParcelles.MoveNext
     
            Loop
     
         Call OuvrirBranchesTvDetailsPersonne
     
        rstParcelles.Close: Set rstParcelles = Nothing
        rstPersonnes.Close: Set rstPersonnes = Nothing
        rstExploite.Close: Set rstExploite = Nothing
        db.Close: Set db = Nothing
        Set tv = Nothing
        'CodePersonne = Empty
     
            End If
     
    End Function

Discussions similaires

  1. Réponses: 1
    Dernier message: 05/03/2014, 18h47
  2. Formulaire PHP comportement bizarre
    Par mat.d dans le forum Langage
    Réponses: 1
    Dernier message: 29/08/2007, 10h18
  3. [ACESS][MEMO][ISNULL]Comportement bizarre
    Par seb.49 dans le forum ASP
    Réponses: 2
    Dernier message: 09/06/2004, 11h44
  4. [HttpClient] comportement bizarre, saute des catch()...
    Par iubito dans le forum Développement Web en Java
    Réponses: 4
    Dernier message: 04/02/2004, 16h25
  5. [Sybase] Comportement bizarre d'une table
    Par sdozias dans le forum Sybase
    Réponses: 4
    Dernier message: 03/02/2004, 11h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo