Je dispose d'une zone de liste d=E9roulante contenant une=20
liste de valeur.
En selectionnant une valeur pr=E9cise de cette liste, je=20
voudrais pouvoir activer une zone de texte.
Comment faire?
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
Anor
Bonjour,
Patrick974 : | Salut à tous, | | Je dispose d'une zone de liste déroulante contenant une | liste de valeur. | En selectionnant une valeur précise de cette liste, je | voudrais pouvoir activer une zone de texte. | Comment faire? | | Merci.
If Me!TaZoneDeListe.value = Tavaleur then Me!TaZoneDeTexte.Enabled = True Else Me!TaZoneDeTexte.Enabled = False End if
-- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
Bonjour,
Patrick974 <anonymous@discussions.microsoft.com> :
| Salut à tous,
|
| Je dispose d'une zone de liste déroulante contenant une
| liste de valeur.
| En selectionnant une valeur précise de cette liste, je
| voudrais pouvoir activer une zone de texte.
| Comment faire?
|
| Merci.
If Me!TaZoneDeListe.value = Tavaleur then
Me!TaZoneDeTexte.Enabled = True
Else
Me!TaZoneDeTexte.Enabled = False
End if
--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------
Patrick974 : | Salut à tous, | | Je dispose d'une zone de liste déroulante contenant une | liste de valeur. | En selectionnant une valeur précise de cette liste, je | voudrais pouvoir activer une zone de texte. | Comment faire? | | Merci.
If Me!TaZoneDeListe.value = Tavaleur then Me!TaZoneDeTexte.Enabled = True Else Me!TaZoneDeTexte.Enabled = False End if
-- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
Patrick974
Salut Arnaud,
Merci pour l'info.
La procédure que tu m'as indiqué ne fonctionne pas. Le déboggeur ne s'enclenche même pas pour indiquer une éventuelle erreur.
Private Sub AutreStatut_Pat_AfterUpdate() If Me!Statut_Pat.Value = "Autre" Then Me!AutreStatut_Pat.Enabled = True Else Me!AutreStatut_Pat.Enabled = False End If End Sub
-----Message d'origine----- Bonjour,
Patrick974 : | Salut à tous, | | Je dispose d'une zone de liste déroulante contenant une | liste de valeur. | En selectionnant une valeur précise de cette liste, je | voudrais pouvoir activer une zone de texte. | Comment faire? | | Merci.
If Me!TaZoneDeListe.value = Tavaleur then Me!TaZoneDeTexte.Enabled = True Else Me!TaZoneDeTexte.Enabled = False End if
-- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
.
Salut Arnaud,
Merci pour l'info.
La procédure que tu m'as indiqué ne fonctionne pas. Le
déboggeur ne s'enclenche même pas pour indiquer une
éventuelle erreur.
Private Sub AutreStatut_Pat_AfterUpdate()
If Me!Statut_Pat.Value = "Autre" Then
Me!AutreStatut_Pat.Enabled = True
Else
Me!AutreStatut_Pat.Enabled = False
End If
End Sub
-----Message d'origine-----
Bonjour,
Patrick974 <anonymous@discussions.microsoft.com> :
| Salut à tous,
|
| Je dispose d'une zone de liste déroulante contenant une
| liste de valeur.
| En selectionnant une valeur précise de cette liste, je
| voudrais pouvoir activer une zone de texte.
| Comment faire?
|
| Merci.
If Me!TaZoneDeListe.value = Tavaleur then
Me!TaZoneDeTexte.Enabled = True
Else
Me!TaZoneDeTexte.Enabled = False
End if
--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------
La procédure que tu m'as indiqué ne fonctionne pas. Le déboggeur ne s'enclenche même pas pour indiquer une éventuelle erreur.
Private Sub AutreStatut_Pat_AfterUpdate() If Me!Statut_Pat.Value = "Autre" Then Me!AutreStatut_Pat.Enabled = True Else Me!AutreStatut_Pat.Enabled = False End If End Sub
-----Message d'origine----- Bonjour,
Patrick974 : | Salut à tous, | | Je dispose d'une zone de liste déroulante contenant une | liste de valeur. | En selectionnant une valeur précise de cette liste, je | voudrais pouvoir activer une zone de texte. | Comment faire? | | Merci.
If Me!TaZoneDeListe.value = Tavaleur then Me!TaZoneDeTexte.Enabled = True Else Me!TaZoneDeTexte.Enabled = False End if
-- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
.
Raymond [mvp]
Bonjour.
tu n'utilises pas les bonnes données, sur AutreStatut_Pat_AfterUpdate tu dois tester la valeur de AutreStatut_Pat qui est ta zone de liste et valider ou non la zone de texte, comme te l'as dit Arnaud. Private Sub AutreStatut_Pat_AfterUpdate() If Me!AutreStatut_Pat = "Autre" Then ' zone de liste Me!Statut_Pat.Enabled = True ' zone de texte Else Me!Statut_Pat.Enabled = False End If End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"Patrick974" a écrit dans le message de news:04c501c3ac37$536e9280$ Salut Arnaud,
Merci pour l'info.
La procédure que tu m'as indiqué ne fonctionne pas. Le déboggeur ne s'enclenche même pas pour indiquer une éventuelle erreur.
Private Sub AutreStatut_Pat_AfterUpdate() If Me!Statut_Pat.Value = "Autre" Then Me!AutreStatut_Pat.Enabled = True Else Me!AutreStatut_Pat.Enabled = False End If End Sub
Bonjour.
tu n'utilises pas les bonnes données, sur AutreStatut_Pat_AfterUpdate tu
dois tester la valeur de AutreStatut_Pat qui est ta zone de liste et valider
ou non la zone de texte, comme te l'as dit Arnaud.
Private Sub AutreStatut_Pat_AfterUpdate()
If Me!AutreStatut_Pat = "Autre" Then ' zone de liste
Me!Statut_Pat.Enabled = True ' zone de texte
Else
Me!Statut_Pat.Enabled = False
End If
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"Patrick974" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:04c501c3ac37$536e9280$a301280a@phx.gbl...
Salut Arnaud,
Merci pour l'info.
La procédure que tu m'as indiqué ne fonctionne pas. Le
déboggeur ne s'enclenche même pas pour indiquer une
éventuelle erreur.
Private Sub AutreStatut_Pat_AfterUpdate()
If Me!Statut_Pat.Value = "Autre" Then
Me!AutreStatut_Pat.Enabled = True
Else
Me!AutreStatut_Pat.Enabled = False
End If
End Sub
tu n'utilises pas les bonnes données, sur AutreStatut_Pat_AfterUpdate tu dois tester la valeur de AutreStatut_Pat qui est ta zone de liste et valider ou non la zone de texte, comme te l'as dit Arnaud. Private Sub AutreStatut_Pat_AfterUpdate() If Me!AutreStatut_Pat = "Autre" Then ' zone de liste Me!Statut_Pat.Enabled = True ' zone de texte Else Me!Statut_Pat.Enabled = False End If End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"Patrick974" a écrit dans le message de news:04c501c3ac37$536e9280$ Salut Arnaud,
Merci pour l'info.
La procédure que tu m'as indiqué ne fonctionne pas. Le déboggeur ne s'enclenche même pas pour indiquer une éventuelle erreur.
Private Sub AutreStatut_Pat_AfterUpdate() If Me!Statut_Pat.Value = "Autre" Then Me!AutreStatut_Pat.Enabled = True Else Me!AutreStatut_Pat.Enabled = False End If End Sub
