boucle pour executer une macro

Question

bonjour a tous ,
voila mon probleme ,je d&#233;bute en vba pour access


Je voudrais faire une boucle qui a l'ouverture d'un formulaire execute une macro(nettoyage) ,sur chaque enregistrement un apres l'autre jusqu'au dernier
voila ce que j'ai essaye mais ca ne marche pasFunction cmdnett2()<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


Dim monform As Form


Dim ctrl As Control


Set monform = Forms![Toutes les locations archiv&#233;es]


For Each ctrl In monform


DoCmd.RunMacro ("nettoyage")


Next ctrl


End Function


je ne sais pas si c'est une bonne solution ,j'ai voulu que pour chaque control(champ je crois) la macro s'execute mais ca ne fait rien pas de message et pas de resultat attendu pour la macro nettoyage
Merci de votre aide

NHenry · Answer

Bonjour

Question pourquoi tu fais :
For Each ctrl In monform

 DoCmd.RunMacro ("nettoyage")

 Next ctrl

Alors que dans 
DoCmd.RunMacro ("nettoyage")


 Tu n'utilise pas ctrl

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

alain105d · Answer

merci de repondre 
comment faire pour faire intervenir ctrl dans la commande

DoCmd.RunMacro ("nettoyage")
c'est peut etre pour ca que ca ne donne rien<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />Je ne sais pas si ma question etait compr&#233;hensible
La macro nettoyage doit s'executer sur chaque ligne du formulaire
je ne sais pas si c'est faisable

Alboure · Answer

Salut, en gros tu veux faire quoi ? Vider des textbox?

Si c'est le cas, tu peux faire:

dim ctl as control

    For Each ctl In Me.Controls
        If Left(ctl.Name, 3) = "zs_" Then
             ctl = ""
        End If
    Next

"zs_" est ce que je met &#224; chaque debut de nom de textbox

Alboure

NHenry · Answer

Bonjour

Sinon, tu peux &#233;viter l'appel de DoCmd.RunMacro, il s'agit d'une fonction, tu peux l'appeller comme tu veux, et lui adjoindre des param&#232;tres.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

alain105d · Answer

non pas textbox


j'ai un formulaire avec les champs [date d'entr&#233;e] [date d&#233;part] et [nett] ,
j'ai une macro qui s'appelle nettoyage ,cette macro compare la date d&#233;part d'un enregistrement avec la date d'entr&#233;e de l'enregistrement suivant et si la date est la m&#234;me ,&#233;crit dans le champ nett "urgent"
je voudrais que tout s'execute a l'ouverture du formulaire

alain105d · Answer

quelqu'un a ecrit 
"Sinon, tu peux &#233;viter l'appel de DoCmd.RunMacro, il s'agit d'une fonction, tu peux l'appeller comme tu veux, et lui adjoindre des param&#232;tres"
mais j'ai pas compris la signification de la phrase

NHenry · Answer

Bonjour

Ta fonction nettoyage est bien une sub, 

Donc tu peux utiliser Call nettoyage()

Tu peux aussi ajouter des param&#232;tres : 
public Sub Nettoyage(byrefpCtrl as control)
et utiliser pCtrl dans ta m&#233;thode.

Pour l'appell&#233; dans ta m&#233;thode : 
call Nettoyage(ctrl)

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

alain105d · Answer

nettoyage est une macro 
voila les d&#233;tails
condition:CpteDom("[Date de d&#233;part]";"Archive dates";"[date de d&#233;part]=formulaires![toutes les locations archiv&#233;es]![date d'entr&#233;e] and [nomchalet]=Formulaires![toutes les locations archiv&#233;es]![nomchalet]")>0
action: D&#233;finirValeur [nett] urgent


je ne sais pas si c'est une sub


dans ma boucle je doit enlever ou laisser quoi?

NHenry · Answer

Bonjour

nettoyage, tu l'a cr&#233;&#233; comment ?
Sous access, je ne suis pas au top.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

alain105d · Answer

je suis sous access 2002
j'ai cr&#233;e la macro ,sans vba ,cette macro fonctionne bien ,si je la met sur un des champs d'un enregistrement ,par exemple sur date d'entree ,evenement sur clic ,si je clic sur chaque date d'entr&#233;e de chaque enregistrement ,j'ai le r&#233;sultat attendu mais si 50 enregistrements ,je doit clicker 50 fois 
c'est pourquoi j'ESSAYE de l'automatiser mais c'est pas &#233;vident quand on connait rien en vba

NHenry · Answer

Bonjour

Et pas mieux quand on n'a jamais utiliser VBA access.
Si c'est r&#233;ellement ton code, l&#224; je ne sais pas comment l'utiliser.
Si tu peux voir ta macro par l'&#233;diteur de macro Access (VBA), il faut qu'il y ait une instruction Sub de la forme :
Public Sub Nettoyage()
    ...
End Sub
Si ce n'est pas le cas, je s&#232;che.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

alain105d · Answer

voila ,elle n'apparait dans les modules code que si elle est convertie(automatiquement) en vba
peut etre est ce que je peux l'utiliser en vba tel quel?
Function nettoyage()
On Error GoTo Nettoyage_Err


    With CodeContextObject
        If (DCount("[Date de d&#233;part]", "Archive dates", "[date de d&#233;part]=formulaires![toutes les locations archiv&#233;es]![date d'entr&#233;e] and [nomchalet]=Formulaires![toutes les locations archiv&#233;es]![nomchalet]") > 0) Then
            .nettoyage = "URGENT"
        End If
    End With


Nettoyage_Exit:
    Exit Function


Nettoyage_Err:
    MsgBox Error$
    Resume Nettoyage_Exit


End Function

NHenry · Answer

Bonjour

Heu l&#224; g capte plus rien, cela d&#233;passe mes connaissances.
Si cette macro n'est pas VBA, je ne peux pas t'aider.
d&#233;sol&#233;.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

rvblog · Answer

Salut 771386 alain105d, salut =177355 Alboure, salut 68514 NHenry, =771386 alain105d, je soupçonne, dans ta macro Access, au moins un problème possible de syntaxe : urgent devrait être écrit "urgent" me semble-t-il. Pour le vérifier, assures-toi que la macro est fermée, et choisis, dans le menu Outils>>Macros, l'élément de menu Convertir les macros en Visual Basic. Access va ainsi créer un module VBA, qui contiendra l'équivalent, en code, de ta macro Access (ce qui est plus lisible pour nous). Trouves le module créé, et postes ici le contenu de la macro VBA, s'il te plait, que l'on vérifie ensemble. à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Boucle pour executer une macro

14 réponses

Discussions similaires