Discussion :

[Neilos]

Bonjour à tous,

encore un petit problème de VBA ce matin.

Afin d'aléger certaines syntaxes j'ai crée une routine d'initialisation à laquelle je passe en paramètre certains composants ( 2 Control et 1 TextBox) ceci afin de les stocker dans des variables globale de mon module et les utiliser dans les fonctions de ce module.

Le problème c'est que ça ne marche pas, mes variables globales contiennent toujours Null ou Nothing même après leur initialisation par ma fonction (appelée lors de l'évènement OnLoad du formulaire contenant les objets) :

Code :

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

1
2
3
4
5
6
Public Function InitProcessusForm(txtNbPassages As TextBox, cltToFocus As Control, btnSave As Control)
    Set glblOldActive = Nothing
    Set gcltToFocus = cltToFocus
    Set gtxtNbPassages = gtxtNbPassages
    Set gbtnSave = btnSave
End Function

Dans l'évènement OnLoad de mon formulaire j'ai ceci :

Code :

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

=InitProcessusForm([E_NbPassages];[C_Produit];[Btn_Enregistrer])

Donc voila cela ne marche pas car mes variables gcltToFocus, gtxtNbPassages et gbtnSave ne contienent rien

Quelqu'un voit-il d'où vient le problème ?

P.S. J'avais testé en mettant des ByRef devant chaque paramètre de la fonction InitProcessusForm mais cela n'a rien changé

[Neilos]

A priori c'est le Set qui ne convient pas, car j'ai bien accès à mes composants via les paramètres (j'ai fait quelques tests).

[Neilos]

Je n'ai rien dit...en fait ce n'était qu'une faute de frappe à priori.

Mes fonctions exploitant en priorité gtxtNbPassages et étant donné que la faute de frappe se situe ici :

Code :

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

Set gtxtNbPassages = gtxtNbPassages

Evidement je n'allais pas aller bien loin.

Désolé pour le dérangement