Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
si tu n'en as pas beaucoup, tu peux faire ceci:
Dim Ctl As Control Dim Nb_Act As Integer Dim Nb_Crm As Integer For Each Ctl In Me.Controls Select Case Left(Ctl.Name, 3) Case "ACT": Nb_Act = Nb_Act + 1 Case "CRM": Nb_Crm = Nb_Crm + 1 End Select Next Ctl MsgBox "Act: " & Nb_Act & " ; " & "Crm: " & Nb_Crm
si beaucoup de noms il faudrait passer par un tableau. j'espère avoir bien compris la question. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcello" a écrit dans le message de news:0a7401c486bf$f8e74c80$
Dans un formulaire j'ai des controles de type ACT1,ACT2,ACT3........CRM1,CRM2,CRM3 J'aimerai compter ces controles ACT: nombre CRM :nombre
Bonjour.
si tu n'en as pas beaucoup, tu peux faire ceci:
Dim Ctl As Control
Dim Nb_Act As Integer
Dim Nb_Crm As Integer
For Each Ctl In Me.Controls
Select Case Left(Ctl.Name, 3)
Case "ACT": Nb_Act = Nb_Act + 1
Case "CRM": Nb_Crm = Nb_Crm + 1
End Select
Next Ctl
MsgBox "Act: " & Nb_Act & " ; " & "Crm: " & Nb_Crm
si beaucoup de noms il faudrait passer par un tableau.
j'espère avoir bien compris la question.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcello" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0a7401c486bf$f8e74c80$3501280a@phx.gbl...
Dans un formulaire j'ai des controles de type
ACT1,ACT2,ACT3........CRM1,CRM2,CRM3
J'aimerai compter ces controles ACT: nombre CRM :nombre
Dim Ctl As Control Dim Nb_Act As Integer Dim Nb_Crm As Integer For Each Ctl In Me.Controls Select Case Left(Ctl.Name, 3) Case "ACT": Nb_Act = Nb_Act + 1 Case "CRM": Nb_Crm = Nb_Crm + 1 End Select Next Ctl MsgBox "Act: " & Nb_Act & " ; " & "Crm: " & Nb_Crm
si beaucoup de noms il faudrait passer par un tableau. j'espère avoir bien compris la question. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcello" a écrit dans le message de news:0a7401c486bf$f8e74c80$
Dans un formulaire j'ai des controles de type ACT1,ACT2,ACT3........CRM1,CRM2,CRM3 J'aimerai compter ces controles ACT: nombre CRM :nombre
Marcello
Merci
Cela me plait bien
A +
-----Message d'origine----- Bonjour.
si tu n'en as pas beaucoup, tu peux faire ceci:
Dim Ctl As Control Dim Nb_Act As Integer Dim Nb_Crm As Integer For Each Ctl In Me.Controls Select Case Left(Ctl.Name, 3) Case "ACT": Nb_Act = Nb_Act + 1 Case "CRM": Nb_Crm = Nb_Crm + 1 End Select Next Ctl MsgBox "Act: " & Nb_Act & " ; " & "Crm: " & Nb_Crm
si beaucoup de noms il faudrait passer par un tableau. j'espère avoir bien compris la question. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcello" a écrit dans le message de
news:0a7401c486bf$f8e74c80$
Dans un formulaire j'ai des controles de type ACT1,ACT2,ACT3........CRM1,CRM2,CRM3 J'aimerai compter ces controles ACT: nombre CRM :nombre
Merci
Cela me plait bien
A +
-----Message d'origine-----
Bonjour.
si tu n'en as pas beaucoup, tu peux faire ceci:
Dim Ctl As Control
Dim Nb_Act As Integer
Dim Nb_Crm As Integer
For Each Ctl In Me.Controls
Select Case Left(Ctl.Name, 3)
Case "ACT": Nb_Act = Nb_Act + 1
Case "CRM": Nb_Crm = Nb_Crm + 1
End Select
Next Ctl
MsgBox "Act: " & Nb_Act & " ; " & "Crm: " & Nb_Crm
si beaucoup de noms il faudrait passer par un tableau.
j'espère avoir bien compris la question.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcello" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:0a7401c486bf$f8e74c80$3501280a@phx.gbl...
Dans un formulaire j'ai des controles de type
ACT1,ACT2,ACT3........CRM1,CRM2,CRM3
J'aimerai compter ces controles ACT: nombre CRM :nombre
Dim Ctl As Control Dim Nb_Act As Integer Dim Nb_Crm As Integer For Each Ctl In Me.Controls Select Case Left(Ctl.Name, 3) Case "ACT": Nb_Act = Nb_Act + 1 Case "CRM": Nb_Crm = Nb_Crm + 1 End Select Next Ctl MsgBox "Act: " & Nb_Act & " ; " & "Crm: " & Nb_Crm
si beaucoup de noms il faudrait passer par un tableau. j'espère avoir bien compris la question. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcello" a écrit dans le message de
news:0a7401c486bf$f8e74c80$
Dans un formulaire j'ai des controles de type ACT1,ACT2,ACT3........CRM1,CRM2,CRM3 J'aimerai compter ces controles ACT: nombre CRM :nombre
