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

**celiaaa** · 03/04/2007, 13h33

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

**Lou Pitchoun** · 03/04/2007, 14h47

Salut

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

Oui.

**celiaaa** · 03/04/2007, 16h30

Je reformule ma question

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

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

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

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

**Lou Pitchoun** · 03/04/2007, 16h34

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.

**celiaaa** · 03/04/2007, 16h38

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

**Lou Pitchoun** · 03/04/2007, 16h46

Code :

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

ctlBut.OnClick = "=enregistrerDatas(13)"

Voilà ce qui manquait dans ton code ci-dessus

Explications :
Avec la ligne

Code :

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

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 :

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

Tu effectues ceci

Code :

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

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

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

Code :

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

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

ou

Code :

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

ctlBut.OnClick = "=enregistrerDatas(15)"

**celiaaa** · 03/04/2007, 17h07

Merci

En fait c'est ce que j'ai fait

Code :

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

1
2
3
Option Compare Database
 
Public nb As Integer

et dans un sub j'ai

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
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)"[/...

**Lou Pitchoun** · 03/04/2007, 17h32

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 :

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

           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.

**celiaaa** · 03/04/2007, 17h52

Merci bcp kikoff.

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

Code :

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

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...

**celiaaa** · 03/04/2007, 19h19

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 :

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

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

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

**Arkham46** · 03/04/2007, 19h41

bjr,

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

Code :

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

ctlBut.OnClick = "=enregistrerDatas(" & i & ")"

**Lou Pitchoun** · 03/04/2007, 20h12

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.

**celiaaa** · 04/04/2007, 10h41

Merci à tous les 2

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

VBA Access

Discussions similaires

Partager

Partager