Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Problème avec le fonction if

Problème avec le fonction if

3 réponses
Avatar
lafleche
Voila je veux faire en sorte que si il y a France=20
Belgique Suisse que les champs correspondants soient=20
visible =E7a marche bien=20
Mais si c est autre chose comme pays c est le champ=20
autre qui doit =EAtre visible

Le probl=E8me c est que le champ autre reste=20
Je passe d'un pays =E0 France puis Belgique le champ reste=20
par contre je mais suisse le champ autre dispara=EEt bien=20



Private Sub Pays_Contact_Change()
If Pays_Contact =3D "France" Then
Code_postal_France.Visible =3D True
Code_Postal_autre.Visible =3D False
Else
Code_postal_France.Visible =3D False
Code_Postal_autre.Visible =3D True
End If
If Pays_Contact =3D "Belgique" Then
Code_Postal_Belge.Visible =3D True
Code_Postal_autre.Visible =3D False
Else
Code_Postal_Belge.Visible =3D False
Code_Postal_autre.Visible =3D True
End If
If Pays_Contact =3D "Suisse" Then
Code_Postal_Suisse.Visible =3D True
Code_Postal_autre.Visible =3D False
Else
Code_Postal_Suisse.Visible =3D False
Code_Postal_autre.Visible =3D True
End If
End Sub

Si quelqu'un a une id=E9e
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Jessy Sempere [MVP]
Bonjour

C'est pas très clair mais ton code semble correct...

Essais quand même ceci :

Private Sub Pays_Contact_Change()

Dim strPays as string
strPays = Pays_Contact
Code_Postal_France.visible = False
Code_Postal_Belgique.visible = False
Code_Postal_Suisse.visible = False
Code_Postal_Autre.visible = False

Select Case strPays
Case "France"
Code_Postal_France.Visible = True
Case "Belgique"
Code_Postal_Belgique.Visible = True
Case "Suisse"
Code_Postal_Suisse.Visible = True
Case Else
Code_Postal_Autre.Visible = True
End Select

End Sub

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"lafleche" a écrit dans le message news:
16bd01c50d5e$9e237d20$
Voila je veux faire en sorte que si il y a France
Belgique Suisse que les champs correspondants soient
visible ça marche bien
Mais si c est autre chose comme pays c est le champ
autre qui doit être visible

Le problème c est que le champ autre reste
Je passe d'un pays à France puis Belgique le champ reste
par contre je mais suisse le champ autre disparaît bien



Private Sub Pays_Contact_Change()
If Pays_Contact = "France" Then
Code_postal_France.Visible = True
Code_Postal_autre.Visible = False
Else
Code_postal_France.Visible = False
Code_Postal_autre.Visible = True
End If
If Pays_Contact = "Belgique" Then
Code_Postal_Belge.Visible = True
Code_Postal_autre.Visible = False
Else
Code_Postal_Belge.Visible = False
Code_Postal_autre.Visible = True
End If
If Pays_Contact = "Suisse" Then
Code_Postal_Suisse.Visible = True
Code_Postal_autre.Visible = False
Else
Code_Postal_Suisse.Visible = False
Code_Postal_autre.Visible = True
End If
End Sub

Si quelqu'un a une idée
Avatar
didier
Bonjour

Au lieu de mettre ta formule sur change met là sur
afterUpdate.
Si c'est un formulaire qui te sert aussi en visualisation
tu peut mettre ta fonction sur activation pour que
lorsque tu change d'enregistrement les champs
correspondants soit visible ou pas
-----Message d'origine-----
Voila je veux faire en sorte que si il y a France
Belgique Suisse que les champs correspondants soient
visible ça marche bien
Mais si c est autre chose comme pays c est le champ
autre qui doit être visible

Le problème c est que le champ autre reste
Je passe d'un pays à France puis Belgique le champ
reste

par contre je mais suisse le champ autre disparaît bien



Private Sub Pays_Contact_Change()
If Pays_Contact = "France" Then
Code_postal_France.Visible = True
Code_Postal_autre.Visible = False
Else
Code_postal_France.Visible = False
Code_Postal_autre.Visible = True
End If
If Pays_Contact = "Belgique" Then
Code_Postal_Belge.Visible = True
Code_Postal_autre.Visible = False
Else
Code_Postal_Belge.Visible = False
Code_Postal_autre.Visible = True
End If
If Pays_Contact = "Suisse" Then
Code_Postal_Suisse.Visible = True
Code_Postal_autre.Visible = False
Else
Code_Postal_Suisse.Visible = False
Code_Postal_autre.Visible = True
End If
End Sub

Si quelqu'un a une idée
.



Avatar
la fleche
merci ca marche tres bien ;)


-----Message d'origine-----
Bonjour

C'est pas très clair mais ton code semble correct...

Essais quand même ceci :

Private Sub Pays_Contact_Change()

Dim strPays as string
strPays = Pays_Contact
Code_Postal_France.visible = False
Code_Postal_Belgique.visible = False
Code_Postal_Suisse.visible = False
Code_Postal_Autre.visible = False

Select Case strPays
Case "France"
Code_Postal_France.Visible = True
Case "Belgique"
Code_Postal_Belgique.Visible = True
Case "Suisse"
Code_Postal_Suisse.Visible = True
Case Else
Code_Postal_Autre.Visible = True
End Select

End Sub

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"lafleche" a écrit dans le message
news:

16bd01c50d5e$9e237d20$
Voila je veux faire en sorte que si il y a France
Belgique Suisse que les champs correspondants soient
visible ça marche bien
Mais si c est autre chose comme pays c est le champ
autre qui doit être visible

Le problème c est que le champ autre reste
Je passe d'un pays à France puis Belgique le champ reste
par contre je mais suisse le champ autre disparaît bien



Private Sub Pays_Contact_Change()
If Pays_Contact = "France" Then
Code_postal_France.Visible = True
Code_Postal_autre.Visible = False
Else
Code_postal_France.Visible = False
Code_Postal_autre.Visible = True
End If
If Pays_Contact = "Belgique" Then
Code_Postal_Belge.Visible = True
Code_Postal_autre.Visible = False
Else
Code_Postal_Belge.Visible = False
Code_Postal_autre.Visible = True
End If
If Pays_Contact = "Suisse" Then
Code_Postal_Suisse.Visible = True
Code_Postal_autre.Visible = False
Else
Code_Postal_Suisse.Visible = False
Code_Postal_autre.Visible = True
End If
End Sub

Si quelqu'un a une idée


.