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 01/02/2011, 19h04   #1
Membre du Club
 
hugues dupont
Pompier
Inscription : janvier 2010
Messages : 170
Détails du profil
Informations personnelles :
Nom : hugues dupont
Localisation : France

Informations professionnelles :
Activité : Pompier

Informations forums :
Inscription : janvier 2010
Messages : 170
Points : 44
Points : 44
Par défaut activation liste déroulante en fonction de 2 valeurs

bonjour,
j'ai un formulaire type fiche d'identité du personnel
dans les difféérents champs j'ai,

1 - centre 1ère affectation: (numérique)
2 - statut (numérique)

3 - équipe SPP (numérique)
4 -équipe SPV (numérique)

les champs 1 et 2 sont toujours valides et 3 et 4 inactifs

ce que je veux c'est si 1= 300 et 2= 1 alors 3 activé sinon 3 inactif
si 1= 300 et 2= 2 alors 4 activé sinon 4 inactif
comment faire?
merci
hugodu28 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/02/2011, 23h09   #2
Membre du Club
 
hugues dupont
Pompier
Inscription : janvier 2010
Messages : 170
Détails du profil
Informations personnelles :
Nom : hugues dupont
Localisation : France

Informations professionnelles :
Activité : Pompier

Informations forums :
Inscription : janvier 2010
Messages : 170
Points : 44
Points : 44
sur 1 critère ça ffonctionne
Code :
1
2
3
4
5
6
7
8
9
10
11
Private Sub statut_AfterUpdate()
If Me.centre.Value <> "300"  Then
Me.equipe.Enabled = False
 
End If
 
If Me.centre.Value = "300"  Then
Me.equipe.Enabled = True
End If
 
End Sub
sur 2 critère ça ne fonctionne pas. Où est mon erreur?

Code :
1
2
3
4
5
6
7
8
9
10
11
Private Sub statut_AfterUpdate()
If Me.centre.Value <> "300" And Me.statut.Value <> "SPP" Then
Me.equipe.Enabled = False
 
End If
 
If Me.centre.Value = "300" And Me.statut.Value = "SPP" Then
Me.equipe.Enabled = True
End If
 
End Sub
hugodu28 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 02/02/2011, 11h08   #3
Membre éclairé
 
Avatar de dok flint
 
Inscription : septembre 2003
Messages : 292
Détails du profil
Informations personnelles :
Âge : 43

Informations forums :
Inscription : septembre 2003
Messages : 292
Points : 378
Points : 378
Bonjour ,
Je te propose une autre approche des choses ,
ce que j'ai fait c'est de mettre la liste à activer comme non activer
au début , puis sur le update de statut le code suivant :
Code :
1
2
3
4
5
6
 
If Me.centre.Value = "300" And Me.statut.Value = "SPP" Then
Me.equipe.Enabled = True
 Else
 Me.equipe.Enabled = False
End If
__________________
Pourquoi faire compliqué quand on peut faire simple
Je suis encore en ACCESS 2003
dok flint 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 07h18.


 
 
 
 
Partenaires

Hébergement Web