[VBA][débutant]passage de paramètre à une fonction d'un module

Version imprimable

03/04/2007, 12h33
celiaaa

[VBA][débutant]passage de paramètre à une fonction d'un module

Bonjour,

est-il possible de mettre en paramètre une variable à une fonction se trouvant dans un module.
j'ai essayé et à l'événement clique
de mon bouton ça m'affiche une erreur.

J'ai essayé de mettre la variable en global mais rien ne marche.
Avez-vous une astuce?

Merci d'avance
03/04/2007, 13h47
Lou Pitchoun

Salut

Citation:

est-il possible de mettre en paramètre une variable à une fonction se trouvant dans un module

Oui.

Je reformule ma question

j'ai créé un bouton qppelant une fonction à chaque clique
ce qui donne:
Code:

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 Sub createBut(entDonnéeX, entDonnéeY, name, typebut) Dim o As Integer Set ctlBut = CreateControl("frm_tableau", acCommandButton) ctlBut.name = name ctlBut.Width = 1500 ctlBut.Height = 300 ctlBut.Top = entDonnéeX 'ctlBut.Left = 5000 ctlBut.Left = entDonnéeY ctlBut.Caption = typebut ctlBut.FontBold = True If typebut = "VALIDER" Then 'boutton d'enregistrement sur click ctlBut.OnClick = "=enregistrerDatas(nb)" Else 'bouton de retour sur click ctlBut.OnClick = "=BackForm()" End If End Sub
et la fonction
enregistrerDatas()
Code:

1 2 3 4 5 6 7 8 Public Function enregistrerDatas(nb As Integer) 'parcourir les textbox et les enregistrer MsgBox nb End Function
lorsque j'entre en dur une valeur, la fonction se passe correctement.
Par contre lorsque je mets comme paramètre la variable integer "nb" (qui a été déclarée au préalable en global) ça me met en erreur:

l'expression sur clic d'entrée comme paramètre d ela propriété type événement est à l'origine de l'erreur.L'objet ne contient pas dobjet d'automatisation de l'objet nb

Je n'arriv pa à résoudre ce pb

Merci d'avance

03/04/2007, 15h34
Lou Pitchoun

Et quel est le lien entre les 2 fonctions ??
Ni l'une ni l'autre ne fait appel à l'autre...
Donc forcément : rien ne se passe sauf une erreur.
03/04/2007, 15h38
celiaaa

merci pour ta réponse et ta rapidité kikof!

Je n'arrive pas à voir ce que je devrais fair pr solutionner le problème.
Par ailleurs, comment se fait-il qu'en mettant en dur une valeur
ctlBut.OnClick = "=enregistrerDatas(13)" par exemple
cela m'affiche correctement le chiffre 13 alrs qu'en passant par une variable nb=2 ça m'affiche une erreur?

Merci
03/04/2007, 15h46
Lou Pitchoun
Code:

ctlBut.OnClick = "=enregistrerDatas(13)"

Voilà ce qui manquait dans ton code ci-dessus :mouarf:

Explications :
Avec la ligne

Code:

ctlBut.OnClick = "=enregistrerDatas(13)"

Tu passes en paramètre 13. Ce qui est juste.
13 sera affecté à la variable nb de la fonction enregistrerDatas et sera utilisée à l'intérieur de celle-ci (dans ton exemple avec la msgbox)

D'après ce que je comprends :

Citation:

alrs qu'en passant par une variable nb=2 ça m'affiche une erreur

Tu effectues ceci

Code:

ctlBut.OnClick = "=enregistrerDatas(nb=2)"

Tu ne peux pas faire une affectation ici.
Voici les exemples de ce que tu peux faire :
Code:

1 2 3 Dim maVariable As Integer maVariable = 15 ctlBut.OnClick = "=enregistrerDatas(maVariable)"
ou

Code:

ctlBut.OnClick = "=enregistrerDatas(15)"

Merci

En fait c'est ce que j'ai fait

Code:

1
2
3
Option Compare Database
 
Public nb As Integer

et dans un sub j'ai

Code:

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
Sub createBut(entDonnéeX, entDonnéeY, name, typebut)

    Set ctlBut = CreateControl("frm_tableau", acCommandButton)
    ctlBut.name = name
          
    ctlBut.Width = 1500
    ctlBut.Height = 300
    ctlBut.Top = entDonnéeX
    'ctlBut.Left = 5000
    ctlBut.Left = entDonnéeY
    ctlBut.Caption = typebut
    ctlBut.FontBold = True
   
    
    
    
    If typebut = "VALIDER" Then
         'boutton d'enregistrement sur click
           ctlBut.OnClick = "=enregistrerDatas(nb)"
   Else
        
        'bouton de retour sur click
            ctlBut.OnClick = "=BackForm()"
   End If


End Sub

je n'ai pas du tou mis en paramètre ctlBut.OnClick = "=enregistrerDatas(nb=2)"[/...

03/04/2007, 16h32
Lou Pitchoun

Citation:

Envoyé par celiaaa

je n'ai pas du tou mis en paramètre ctlBut.OnClick = "=enregistrerDatas(nb=2)"[/...

Voilà ce qui arrive quand on donne les infos au compte goutte...

Tu déclares ta variable en public : Ok. Si tu veux.
Il y a quand même un risque : dès que tu as fini de t'en servir n'oublie pas de vider cette variable sinon tu risques d'avoir des surprises.

Code:

ctlBut.OnClick = "=enregistrerDatas(nb)"

nb doit valoir quelque chose avant de la passer en paramètre cf mon 1er exemple.

Par contre, si tu utilises le terme nb pour définir cette variable, évites d'utiliser aussi nb dans ta fonction.

Merci bcp kikoff.

j'avais essayé de crer une variable dans le sub même tel que
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim i As Integer i = 13 If typebut = "VALIDER" Then 'boutton d'enregistrement sur click ctlBut.OnClick = "=enregistrerDatas(i)" Else 'bouton de retour sur click ctlBut.OnClick = "=BackForm()" End If
tout en gardant la fonction enregistrerDatas(nb) dans le module
mais ça me faisait la même erreur...
C'est étrange! alors quen dur ça marche...:?

J'ai testé la fonction sur un nouveau projet acccess.
Et ça me fait la même erreur:

"lexpression sur clic entree comme paramètre de la propriété de type événement est à l'origine d'une erreur .L'objet ne contient pas d'objet d'automatisation i"

voici le code

Code:

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
 
Option Compare Database
 
Private Sub Détail_Click()
 
Dim o As Integer
o = nb
 
DoCmd.OpenForm "formulaire2", acDesign, , , , acHidden
 
    Set ctlBut = CreateControl("formulaire2", acCommandButton)
    ctlBut.Name = Name
 
    ctlBut.Width = 1500
    ctlBut.Height = 300
    ctlBut.Top = entDonnéeX
    'ctlBut.Left = 5000
    ctlBut.Left = entDonnéeY
    ctlBut.Caption = typebut
    ctlBut.FontBold = True
 
 
    Dim i As Integer
    i = 13
 
    If typebut = "VALIDER" Then
         'boutton d'enregistrement sur click
             ctlBut.OnClick = "=BackForm()"
   Else
 
        'bouton de retour sur click
 
            ctlBut.OnClick = "=enregistrerDatas(i)"
   End If
 
End Sub

et la fonction se trouvant dans un module:

Code:

1
2
3
4
5
6
7
Option Compare Database
 
Public Function enregistrerDatas(nb As Integer)
MsgBox (nb)
 
 
End Function

Quelqu'un a une idée? ou une autre façon de passer un paramètre à une fonction ou jene sais quoi?

Merci ^d'avance

03/04/2007, 18h41
Arkham46

bjr,

ben si il faut sortir la variable de la chaîne de caractères pour l'évaluer non?

Code:

ctlBut.OnClick = "=enregistrerDatas(" & i & ")"
03/04/2007, 19h12
Lou Pitchoun

Citation:

Envoyé par Arkham46

bjr,

ben si il faut sortir la variable de la chaîne de caractères pour l'évaluer non?

Oh que oui. Je vais aller prendre des vacances tiens. Ca fait longtemps.
04/04/2007, 09h41
celiaaa

Merci à tous les 2