Discussion :

[Herman]

Bonjour,

Voilà, j'ai un petit soucis sur un treeview. J'utilise ce petit bout de code tout simple :

Code :

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

1
2
3
4
5
6
7
8
9
Dim nodClient As Node
   If Node.Parent Is Nothing Then
       Set nodClient = Node.Parent
   Else
       Set nodClient = Node
   End If
   DoCmd.OpenForm "frm_adresse", acNormal, , "[Num] = " & Right(nodClient.Key, 3)
 
End Sub

qui en gros en fonction de ce que l'on selectionne dans le treeview ouvre le formulaire frm_adresse, et affiche tout simplement les infos liées à ce que l'on a sélectionné.
Le problème vient du Right(nodClient.Key, 3) . En effet, je sais pas trop pourquoi d'ailleurs, mais le nodClient.Key semble concaténer "Emp" + "[Num]", exemple :

Pour un Num de 1, nodClient.Key renvoit Emp1
Pour un num de 15, nodClient.Key renvoit Emp15
etc etc ...

D'où mon problème, si je fait un Right(nodClient.Key, 3) sur un Num = 15, ça me renvoie : "p15", et donc ça me bug sur l'ouverture de mon formulaire associé :/
De même, Right(nodClient.Key, 3) sur un Num = 1renvoit "mp1". :/
Right(nodClient.Key, 3)
Par contre, Right(nodClient.Key, 3) sur un Num = 120 ouvre bien le formulaire en conséquence.

Qqun pour maider à résoudre ça ?

Merci

PS : même dans la table en changeant le format du champs Num, et en mettant "000" par exemple, ça ne semble pas prendre en compte les "0" qui sont ajoutés devant, et ça les vire automatiquement :o

[micniv]

Eh bien,
A la place de

Right(nodClient.Key, 3)

Crée une fonction
qui détecte le nombre de chiffres, depuis la droite, dans ton nodClient.Key
et qui te renvoie un Long

[Herman]

Yep je me doute que c'est un truc comme ça xD
Mais je bloque sur la fonction pour récupérer que des "chiffres" xD

Deuxième question au passage, quand je met :

Code :

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

Forms![Accueil]![frm_adresse_bis].Form![Num] = Right(nodClient.Key, 2)

ça m'ouvre bien le formulaire, ça me met bien le bon [Num], MAIS ça me met rien du tout à jour concernant les autres champs, comme si les champs n'était pas lié entre eux :/

J'ai essayé un :

Code :

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

DoCmd.Requery (Forms![Accueil]![frm_adresse_bis])

mais ça bug et ça ne fait rien.

[micniv]

Mais je bloque sur la fonction pour récupérer que des "chiffres" xD ...

fonction IsNumeric + F1

[Herman]

J'ai tenté un :

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
 
Dim nodClient As Node
Dim a As String
Dim nombreChiffre As Integer
   If Node.Parent Is Nothing Then
       Set nodClient = Node.Parent
   Else
       Set nodClient = Node
   End If
 
   For i = 0 To Len(nodClient.Key)
   a = Mid(nodClient.Key, i, 1)
        If IsNumeric(a) Then
         nombreChiffre = nombreChiffre + 1
        End If
   Next
 
Forms![Accueil]![frm_adresse_bis].Form![Num] = Right(nodClient.Key, nombreChiffre)

et .... (roulement de tambours) .. ça ne marche pas xD

[Herman]

En fait en faisant partir i à 1 au lieu de 0 ça marche beaucoup mieux, mais j'ai toujours ce problème quand je fait :

Code :

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

Forms![Accueil]![frm_adresse_bis].Form![Num] = Right(nodClient.Key, nombreChiffre)

ça ne me met que Num à jour dans mon sous formulaire, et pas tout les autres champs en conséquence :/

[Herman]

un :

Code :

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

1
2
 
DoCmd.OpenForm "frm_adresse_bis", acNormal, , "[Num] = " & Right(nodClient.Key, nombreChiffre)

ouvrira le bon formulaire avec le bon paramétres et tout à jour, mais moi j'aimerais que ça reste dans un sous formulaire, d'où mon problème :/

Y'a t-il l'équivalent mais pour faire une sorte de rafraichissement en fonction de la clé primaire (dans mon cas [Num]) pour un sous formulaire ?

[micniv]

dqns un module, place la fonction suivante

Code :

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

1
2
3
4
5
6
7
8
Public Function ExtraireNombreADroite(ByVal sChaine As String) As Long
 
    While Not IsNumeric(sChaine)
        sChaine = Right(sChaine, Len(sChaine) - 1)
    Wend
    ExtraireNombreADroite = CLng(sChaine)
 
End Function

et dans ta requete :

Code :

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

DoCmd.OpenForm "frm_adresse", acNormal, , "[Num] = " & ExtraireNombreADroite (nodClient.Key)

Cà devrait le faire !

[Herman]

Nan mais ça marche ça hein, la fonction que j'ai faite fonctionne bien xD

Le seul problème maintenant, c'est que je n'arrive qu'à appliquer le paramètres "[Num] = " blablabla à un DoCmd.OpenForm (donc pour ouvrir un autre formulaire).

OR j'aimerais que ça me l'applique à un sous formulaire. J'ai fait un :

Code :

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

Forms![Accueil]![frm_adresse_bis].Form![Num] = Right(nodClient.Key, nombreChiffre)

mais ceci ne met que Num dans le sous formulaire à la bonne valeur, et ça ne me met pas les autres champs du sous formulaire en fonction du Num.

Y'aurais pas une histoire de Requery ou un truc du style, pour qu'après m'avoir mis Num à la bonne valeur, il me trouve les valeurs des autres champs correspondant à ce Num là ?