[VBA]Treeview : Ouverture de formulaire/sous-formulaire lié

Version imprimable

Bonjour,

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

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

03/04/2007, 09h41
micniv

Eh bien,
A la place de

Citation:

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

:D
03/04/2007, 09h52
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:

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:

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

mais ça bug et ça ne fait rien.
03/04/2007, 09h58
micniv

Citation:

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

fonction IsNumeric + F1

J'ai tenté un :

Code:

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

03/04/2007, 14h09
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:

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 :/
03/04/2007, 14h41
Herman
un :
Code:

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 ?

dqns un module, place la fonction suivante
Code:

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:

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

Cà devrait le faire !

03/04/2007, 15h52
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:

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à ?