Comment lancer une série de fonctions en string sous ACCESSRésolu

Question

Bonjour &#224; tous ,



J'ai un tas de fonctions du genre Private sub N1_DblClick(cancel as integer)

N1...N32_DblClick



J'aimerais pouvoir faire une boucle du genre

Private Sub Commencer_Click()

    Dim i As Integer

    For i = 1 To 32

         Me("N" & Cstr(i)).OnDlbClick

    Next i

End Sub

Pour pouvoir toutes les lancer &#224; la suite

Mais &#231;a ne marche pas 

Si je mets .visible = false &#231;a marche



Merci 
TBBUIM

tbbuim1 · Accepted Answer

CallByName Me,"N" & i & "_DblClick",VbMethod
TBBUIM

cs_frop01 · Answer

N1 c'est quoi une procédure ou un contrôle avec événement ??

si c'est un controle , tu peux mettre des index dessous avec un même nom

ex : N1(1), N1(2) .....

 Private sub N1_DblClick(index as integer, cancel as integer)

ensuite dans ton code

Private Sub Commencer_Click()
    Dim i As Integer
    For i = 1 To 32
         me.N(i).OnDlbClick
    Next i
End Sub

tbbuim1 · Answer

H&#233; h&#233;, les VBistes pur et dur sont de sortie...

J'ai bien pr&#233;cis&#233; dans le titre que c'est sous ACCESS

On ne peut pas faire de groupe comme en VB.

Donc on ne peut pas nommer plusieurs controles de la m&#234;me fa&#231;on

Donc on ne peut pas faire Me.N1(i).Click (&#231;a serait trop beau)

Donc c'est pour &#231;a que je pose cette question...

TBBUIM

tbbuim1 · Answer

PS: Ne pas oublier de mettre les fonctions private en public

TBBUIM

Comment lancer une série de fonctions en string sous ACCESS

4 réponses

Discussions similaires