Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 06/04/2011, 08h12   #1
Membre du Club
 
Inscription : janvier 2007
Messages : 149
Détails du profil
Informations forums :
Inscription : janvier 2007
Messages : 149
Points : 41
Points : 41
Par défaut Comment créer un groupe de contrôles?

Bonjour,

J'ai un formulaire qui contient 7 contrôles liés à deschamps obligatoires dans une table (null = non).

Je voudrais tester si ces champs sont renseignés.

Mon idée est de désigner un groupe de ces 7 champs, puis de faire une boucle teste sur ce groupe.

Je ne sais pas comment le matérialiser en code VBA.

A moins qu'une solution plus simple existe?

Merci d'avance

gentoo

gentoo est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/04/2011, 19h00   #2
Modérateur
 
Homme René MAROT
Inscription : octobre 2005
Messages : 5 462
Détails du profil
Informations personnelles :
Nom : Homme René MAROT
Localisation : Canada

Informations forums :
Inscription : octobre 2005
Messages : 5 462
Points : 7 539
Points : 7 539
Il n'y a pas de notion de groupe de champs en Access.

La solution simple :

Code :
1
2
3
4
5
6
7
8
9
dim estIncomplet as boolean:estIncomplet=false
 
if isnull(me.TonChamp1) or isNull(me.TonChamp2) or ... then
   estIncomplet=true
end if
 
if estIncomplet
   msgbox "Incomplet"
end if
Solution un peu plus élaborée supposant que tes champs ont un prefixe en commun et un indice (ex MonChamp1 à MonChamp7).

Code :
1
2
3
4
5
6
7
8
9
10
11
12
dim estIncomplet as boolean:estIncomplet=false
 
dim i as long:for i=1 to 7
   if isnull(me.controls("MonChamp" & i)) then
      estIncomplet=true
      exit for
   end if
next i
 
if estIncomplet
   msgbox "Incomplet"
end if
A+
__________________
Vous voulez une réponse rapide et efficace à vos questions téchniques ? Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
marot_r est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 02h02.


 
 
 
 
Partenaires

Hébergement Web