Pour les brutes d'ACCESSRésolu

Question

Bonjour &#224; tous ,

 

 J'ai un tas d'&#233;v&#232;nements du genre Private sub N1_DblClick(cancel as integer)

de N1.&#224; ..N32_DblClick SOUS ACCESS

Je rappelle que sous ACCESS on ne peut pas faire de groupe avec un
control du m&#234;me nom donc on ne peut pas faire Me.N1(i).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

Donc simuler un double click sur chaque boutons

 Mais &#231;a ne marche pas  avec la propri&#233;t&#233; DblClick

 Si je mets .visible = false &#231;a marche

 

 Merci 

TBBUIM

tbbuim1 · Accepted Answer

Voil&#224; le truc tout bidon qu'il fallait &#233;crire...

CallByName Me,"N" & i & "_DblClick",vbMethod
TBBUIM

macgyver49 · Answer

salut TBBUIM

Si j'ai bien comprise, ce que tu veux faire c'est d&#233;clencher toi m&#234;me les &#233;v&#233;nememnts pour faire une simulation ??
Si c'est bien cela, tu peux essayer ceci:
   Essaie de d&#233;clarer tous les &#233;v&#233;nements sur ta feuille avec la propri&#233;t&#233; PUBLIC
(public sub N1_DBlClick). Alors tu pourras les appeler &#224; partir de tes propres fonctions.

J'esp&#232;re que cela t'aidera ...

Titi & Panpan

tbbuim1 · Answer

Non cela ne m'aide pas du tout 

Si j'&#233;cris 

public sub Lancer()

    N1_DblClick(0)

    N2_DblClick(0)

    ....

End sub



Ca marche, pas besoin de les d&#233;clarer en public puisque je veux les
lancer du m&#234;me formulaire. Ce que je veux, c'est pouvoir lancer les
actions qui sont dans chaque click, pour cela, il me faut, soit
recopier 32 lignes de Nx_DblClick et l&#224; &#231;a marche.

Ma question (Pour les brutes d'acess je le rappelle )

C'est comment faire la m&#234;me chose mais en &#233;crivant cela dans une boucle For?!

Parce qu'imaginons qu'au lien de 32 j'en ai 32000, &#231;a le ferais pas...
TBBUIM

BasicInstinct · Answer

'lut

j'ai pas access, mais je ferai comme ca:

Private Sub Commencer_Click()
    Dim i As Integer
    For i = 1 To 32
         Me.controls("N" & Cstr(i)).OnDlbClick
    Next i
End Sub

++

tbbuim1 · Answer

Bien essay&#233;, mais j'ai d&#233;j&#224; essay&#233; aussi!

Et lorsque je fais &#231;a, il me dit:

Propri&#233;t&#233; ou m&#233;thode non g&#233;r&#233;e par cet objet.



En fait, sous ACCESS, on peut remplacer cela par

Me("N1").Onclick

Mais en VB, on est oblig&#233; de mettre controls

Mais c'est la m&#234;me chose, l'inconv&#233;nient, c'est qu'en faisant &#231;a

On peut uniquement changer la propri&#233;t&#233; OnClick par exemple mettre

= true mais on ne peut pas lancer l'&#233;v&#232;nement!



Encore, une de mes nombreuses questions, auxquelles personnes ne peut r&#233;pondre!

J'ai le don pour trouver des colles 



PS: J'ai trouv&#233; la fonction Run, qui semblait &#234;tre la solution &#224; mon
probl&#232;me, l'inconv&#233;nient c'est que cette derni&#232;re ne lance que les
fonctions d&#233;finie dans un module et pas ailleurs, m&#234;me si elles sont
d&#233;clar&#233;es en Public...
TBBUIM

BasicInstinct · Answer

essaie un truc comme ca (la syntaxe est ptre pas exacte)

Public Function GROUPER(MaForm As Form, NomGroupe As String, NomFonction As String) As Boolean
    On Error GoTo Err    Dim Ctl As Control
    For Each Ctl In MaForm.Controls
        If Ctl.Tag = NomGroupe Then
            Ctl.OnClick = "=" & NomFonction & "(""" & Ctl.Name & """)"
        End If
    Next Ctl
    GROUPER=true
Err
End Function

Public Function Click_Etiq(NomEtiq As String) As Boolean
    MsgBox "vous avez cliqué sur l'étiquette " & NomEtiq
End Function

Private Sub Form_Load()
    GROUPER Me, "Groupe", "Click_Etiq"
End Sub

tu n'a plus qu'a mettre "Groupe" dans le tag des controles que tu veux grouper.

n'ayant pas access à disposition, la syntaxe n'est peut etre pas parfaite.

++

tbbuim1 · Answer

Pas mal, j'y ai pens&#233; &#233;galement, mettre directement le nom de la
fonction dans l'affectation du OnClick. Le soucis, c'est que &#231;a ne fait
que mettre le nom de la fonction mais &#231;a ne l'ex&#233;cute pas!



Il faudrait un truc du style

For each fonction in Form

    Execute fonction

Next



Ca serait vraiment le top, mais je commence &#224; perdre espoir. 
TBBUIM

BasicInstinct · Answer

et comme ca apres ?

for each ctl in me
if ctl.tag="Groupe" then
call click_Etiq(ctl.name)
end if
next

tbbuim1 · Answer

Ouais mais non, c pas bon, &#231;a ne marchera pas comme &#231;a.

En plus, c'est chaque fonction click de chaque bouton que je veux
lancer pas une fonction &#224; part qui prend les noms en param. Peu importe
d'ailleurs, si je dois r&#233;&#233;crire toutes les fonctions, autant faire
comme je l'ai dit toute &#224; l'heure, je les mets toutes dans un module et
je les appelle avec la fonction Run "N" & Cstr(i)

L&#224; jsuis sur que &#231;a marche, mais le but, c'est justement de ne pas en mettre des tartines.

Le truc serait peut &#234;tre possible, si la fonction Run marchait pour les
fonctions qui ne sont pas dans un module, mais ce n'est pas le cas
apparemment.
TBBUIM

BasicInstinct · Answer

je jeterai un coup d'oeil ce soir..

tbbuim1 · Answer

Merci 

Mais je doute que tu trouves quelque chose...

&#192; mon avis, ya un truc bidon, ou alors ya pas de truc!

TBBUIM

BasicInstinct · Answer

faut passer la sub en public aussi, non ?

tbbuim1 · Answer

Oui aussi  Sinon, &#231;a plante lamentablement  
TBBUIM

Pour les brutes d'ACCESS

13 réponses

Discussions similaires