Aide en VBA

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J’aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu’un pourrait-il m’aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro

Bonjour,

Mes champs sont déjà nommés, il m'est impossible de les renommer. Est-il
possible de sélectionner tous les champs du formulaire d'une autre façon ?

Merci à l'avance.

Caro

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J’aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu’un pourrait-il m’aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro

Il faut seulement changer les noms ds l'onglet autre de ses propriétés. Pas
le nom du champ ds la table

Bonjour,

Mes champs sont déjà nommés, il m'est impossible de les renommer. Est-il
possible de sélectionner tous les champs du formulaire d'une autre façon ?

Merci à l'avance.

Caro

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J’aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu’un pourrait-il m’aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro

J’ai des procédures événementielles « après mise à jour » sur plusieurs de
ces champs, donc je ne veux pas les renommer. Je me demandais plutôt s’il
était possible de sélectionner tous les champs oui/non à l’aide des
collections…

Il faut seulement changer les noms ds l'onglet autre de ses propriétés. Pas
le nom du champ ds la table

Bonjour,

Mes champs sont déjà nommés, il m'est impossible de les renommer. Est-il
possible de sélectionner tous les champs du formulaire d'une autre façon ?

Merci à l'avance.

Caro

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J’aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu’un pourrait-il m’aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro

Bonjour,

Tu peux peut-être regarder ce lien :

http://mypage.bluewin.ch/w.stucki/Formulaires.htm#Tag

En adaptant avec un compteur, cela devrait pouvoir répondre à ce que tu
cherches.

Bonne journée.

Domi

J’ai des procédures événementielles « après mise à jour » sur plusieurs de
ces champs, donc je ne veux pas les renommer. Je me demandais plutôt s’il
était possible de sélectionner tous les champs oui/non à l’aide des
collections…

Il faut seulement changer les noms ds l'onglet autre de ses propriétés. Pas
le nom du champ ds la table

Bonjour,

Mes champs sont déjà nommés, il m'est impossible de les renommer. Est-il
possible de sélectionner tous les champs du formulaire d'une autre façon ?

Merci à l'avance.

Caro

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J’aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu’un pourrait-il m’aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro

On Error GoTo st
r = Me.Controls.Count
For x = 1 To r

a = Me.Controls(x).Name
if Me(a)=true Then z = z + 1
Next
st:
If Err.Number = 438 Then Resume Next

J’ai des procédures événementielles « après mise à jour » sur plusieurs de
ces champs, donc je ne veux pas les renommer. Je me demandais plutôt s’il
était possible de sélectionner tous les champs oui/non à l’aide des
collections…

Il faut seulement changer les noms ds l'onglet autre de ses propriétés. Pas
le nom du champ ds la table

Bonjour,

Mes champs sont déjà nommés, il m'est impossible de les renommer. Est-il
possible de sélectionner tous les champs du formulaire d'une autre façon ?

Merci à l'avance.

Caro

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J’aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu’un pourrait-il m’aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro

Bonjour,

Voici mon code, il semble que je travaille avec le nom du controle... et pas
avec sa valeur. Ma valeur de r = 55... elle indique tous mes noms de
contrôle et ils semble tous vrai. Je suis débutante... et un peu perdue...

Merci de bien vouloir m'aider et aussi à Domi pour le lien, il y a beaucoup
de choses intéressantes.

Dim x As Byte, z As Byte
On Error GoTo st
r = Me.Controls.Count

For x = 1 To r

A = Me.Controls(x).Name
If Me(A) = True Then z = z + 1
Next

If z = 15 Then
MsgBox "Message action 1"
Else
MsgBox "Message action 2"
End If

On Error GoTo st
r = Me.Controls.Count
For x = 1 To r

a = Me.Controls(x).Name
if Me(a)=true Then z = z + 1
Next
st:
If Err.Number = 438 Then Resume Next

J’ai des procédures événementielles « après mise à jour » sur plusieurs de
ces champs, donc je ne veux pas les renommer. Je me demandais plutôt s’il
était possible de sélectionner tous les champs oui/non à l’aide des
collections…

Il faut seulement changer les noms ds l'onglet autre de ses propriétés. Pas
le nom du champ ds la table

Bonjour,

Mes champs sont déjà nommés, il m'est impossible de les renommer. Est-il
possible de sélectionner tous les champs du formulaire d'une autre façon ?

Merci à l'avance.

Caro

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J’aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu’un pourrait-il m’aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro

bonjour
essaie
Dim x As Control, z as integer
For Each x In Me.Controls
If TypeOf x Is CheckBox Then
If x=-1 then z=z+1
end if
Next


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Caro" <Caro@discussions.microsoft.com> a écrit dans le message de news: CA2E732A-F27C-4852-BB93-EC6FCD9B0607@microsoft.com...

Bonjour,

Voici mon code, il semble que je travaille avec le nom du controle... et pas
avec sa valeur. Ma valeur de r = 55... elle indique tous mes noms de
contrôle et ils semble tous vrai. Je suis débutante... et un peu perdue...

Merci de bien vouloir m'aider et aussi à Domi pour le lien, il y a beaucoup
de choses intéressantes.

Dim x As Byte, z As Byte
On Error GoTo st
r = Me.Controls.Count

For x = 1 To r

A = Me.Controls(x).Name
If Me(A) = True Then z = z + 1
Next

If z = 15 Then
MsgBox "Message action 1"
Else
MsgBox "Message action 2"
End If

On Error GoTo st
r = Me.Controls.Count
For x = 1 To r

a = Me.Controls(x).Name
if Me(a)=true Then z = z + 1
Next
st:
If Err.Number = 438 Then Resume Next

J'ai des procédures événementielles « après mise à jour » sur plusieurs de
ces champs, donc je ne veux pas les renommer. Je me demandais plutôt s'il
était possible de sélectionner tous les champs oui/non à l'aide des
collections.

Il faut seulement changer les noms ds l'onglet autre de ses propriétés. Pas
le nom du champ ds la table

Bonjour,

Mes champs sont déjà nommés, il m'est impossible de les renommer. Est-il
possible de sélectionner tous les champs du formulaire d'une autre façon ?

Merci à l'avance.

Caro

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J'aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu'un pourrait-il m'aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro

Ça marche, super! C'est exactement ce que je recherchais.

Merci :-)
Caro

"Pierre CFI [mvp]" wrote:

bonjour
essaie
Dim x As Control, z as integer
For Each x In Me.Controls
If TypeOf x Is CheckBox Then
If x=-1 then z=z+1
end if
Next


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Caro" <Caro@discussions.microsoft.com> a écrit dans le message de news: CA2E732A-F27C-4852-BB93-EC6FCD9B0607@microsoft.com...

Bonjour,

Voici mon code, il semble que je travaille avec le nom du controle... et pas
avec sa valeur. Ma valeur de r = 55... elle indique tous mes noms de
contrôle et ils semble tous vrai. Je suis débutante... et un peu perdue...

Merci de bien vouloir m'aider et aussi à Domi pour le lien, il y a beaucoup
de choses intéressantes.

Dim x As Byte, z As Byte
On Error GoTo st
r = Me.Controls.Count

For x = 1 To r

A = Me.Controls(x).Name
If Me(A) = True Then z = z + 1
Next

If z = 15 Then
MsgBox "Message action 1"
Else
MsgBox "Message action 2"
End If

On Error GoTo st
r = Me.Controls.Count
For x = 1 To r

a = Me.Controls(x).Name
if Me(a)=true Then z = z + 1
Next
st:
If Err.Number = 438 Then Resume Next

J'ai des procédures événementielles « après mise à jour » sur plusieurs de
ces champs, donc je ne veux pas les renommer. Je me demandais plutôt s'il
était possible de sélectionner tous les champs oui/non à l'aide des
collections.

Il faut seulement changer les noms ds l'onglet autre de ses propriétés. Pas
le nom du champ ds la table

Bonjour,

Mes champs sont déjà nommés, il m'est impossible de les renommer. Est-il
possible de sélectionner tous les champs du formulaire d'une autre façon ?

Merci à l'avance.

Caro

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J'aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu'un pourrait-il m'aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro

et oui, je lis dans les pensées maintenant :o)

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Caro" <Caro@discussions.microsoft.com> a écrit dans le message de news: 40125BF9-0C49-425C-9BFE-3090890A5C6C@microsoft.com...

Ça marche, super! C'est exactement ce que je recherchais.

Merci :-)
Caro

"Pierre CFI [mvp]" wrote:

bonjour
essaie
Dim x As Control, z as integer
For Each x In Me.Controls
If TypeOf x Is CheckBox Then
If x=-1 then z=z+1
end if
Next


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Caro" <Caro@discussions.microsoft.com> a écrit dans le message de news: CA2E732A-F27C-4852-BB93-EC6FCD9B0607@microsoft.com...

Bonjour,

Voici mon code, il semble que je travaille avec le nom du controle... et pas
avec sa valeur. Ma valeur de r = 55... elle indique tous mes noms de
contrôle et ils semble tous vrai. Je suis débutante... et un peu perdue...

Merci de bien vouloir m'aider et aussi à Domi pour le lien, il y a beaucoup
de choses intéressantes.

Dim x As Byte, z As Byte
On Error GoTo st
r = Me.Controls.Count

For x = 1 To r

A = Me.Controls(x).Name
If Me(A) = True Then z = z + 1
Next

If z = 15 Then
MsgBox "Message action 1"
Else
MsgBox "Message action 2"
End If

On Error GoTo st
r = Me.Controls.Count
For x = 1 To r

a = Me.Controls(x).Name
if Me(a)=true Then z = z + 1
Next
st:
If Err.Number = 438 Then Resume Next

J'ai des procédures événementielles « après mise à jour » sur plusieurs de
ces champs, donc je ne veux pas les renommer. Je me demandais plutôt s'il
était possible de sélectionner tous les champs oui/non à l'aide des
collections.

Il faut seulement changer les noms ds l'onglet autre de ses propriétés. Pas
le nom du champ ds la table

Bonjour,

Mes champs sont déjà nommés, il m'est impossible de les renommer. Est-il
possible de sélectionner tous les champs du formulaire d'une autre façon ?

Merci à l'avance.

Caro

bonjour,

Je donnerais à mes champs des noms du genre C1,C2,C3 .... C15

puis sur l'évènement avantMàJ ou sur fermeture

dim x as byte, z as byte
for x= 1 to 15
if me("C" & x)=true then z=z+1
next

if z then
msgbox "ton message"
action
endif

Bonjour,

J'ai un formulaire qui contient 15 champs de type oui-non. J'aimerais, sur
fermeture de ce formulaire, vérifier le contenu de tous ces champs par une
boucle et, si toutes les valeurs sont égale à (oui), procéder à une certaine
action / message.

Quelqu'un pourrait-il m'aider à formuler cela en VBA à l'aide d'un exemple
détaillé.

Merci.

Caro