Super Colle pour les incollables!Résolu

Question

Bonjour &#224; tous ,

 

Voici une super colle, pour moi, il n'existe pas de solution, mais j'ai
espoir que quelque part sur cette terre quelqu'un ait LA solution...



Attention c'est sous ACCESS 2000



 J'ai un tas de fonctions &#233;v&#232;nementielles du genre Private sub N1_DblClick(cancel as integer)

de N1.&#224; .N32_DblClick

 

 J'aimerais pouvoir faire une boucle du genre

 Private Sub Commencer_Click()
     Dim i As Integer
     For i = 1 To 32
          lancer 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, mais la propri&#233;t&#233; OnClick, ne se
lance pas, elle ne peut &#234;tre que modifi&#233;. Si je mets = la fonction, &#231;a
ne se lance toujours pas.

J'ai essay&#233; avec la fonction Run

Mais cette fonction ne permet que de lancer des fonctions dans un module.

En fait, &#231;a serait pas mal si on pouvait &#233;crire un truc du genre



    For each Functions in Me

        Lancer function

    Next

 Ou mieux, pouvoir lancer une fonction en l'&#233;crivant sous la forme d'une string comme avec Run. 



Si quelqu'un se sent capable de r&#233;pondre &#224; cette colle, qu'il le fasse 

Ou sinon, dites moi franchement si cela est possible.

 Merci &#224; vous 

TBBUIM

ShareVB · Accepted Answer

salut,



Tu remplaces le Private des &#233;v&#232;nements DblClick des tes commandbuttons N

Et tu mets &#231;a l&#224; o&#249; tu veux lancer :



Dim i As Integer

For i = 1 To 2 'nombre de commandbutton N

    CallByName Me, "N" & i & "_DblClick", VbMethod, False

Next


ShareVB

cs_drahcir · Answer

Salut tbbuim,

ton titre pr&#233;c&#233;dent &#233;tait plus dr&#244;le, mais celui-ci devrait attirer les 'cracks' en qu&#234;te de challenge &#224; relever.... bien jou&#233;!! 

@+

BasicInstinct · Answer

j'ai pas trouvé mais je desespere pas  :)

++

ShareVB · Answer

salut,



j'ai oubli&#233; un mot, tu remplaces Private par Public...sorry

ShareVB

tbbuim1 · Answer

Je me suis pench&#233; sur la fonction call hier et j'ai d&#233;couvert sa copine

CallByName, mais je n'ai pas r&#233;ussi &#224; &#233;crire la commande correctement &#224; aucun moment.



j'ai bien remplacer Private par public

Mais j'ai le message d'erreur:



Erreur d'ex&#233;cution '450'

Nombre d'arguments incorrect ou affectation de propri&#233;t&#233; incorrecte.



En fait, &#231;a marche si tu enl&#232;ve ,False &#224; la fin!



Merci &#224; toi, ShareVB 
TBBUIM

francois210 · Answer

Bravo ShareVB, ca fonctionne !

Je cherchais depuis un moment merci.

BasicInstinct · Answer

lol pareil, je me suis battu au moins 20min avec callByName sans arriver a le faire fonctionner pour les controles....

je me  coucherai moins bete ce soir :)

Super Colle pour les incollables!

7 réponses

Discussions similaires