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 :/