Bonjour Raymond et merci pour ta réponse d'hier
Ent fait j'ai mal mal formulé mon besoin
Dans mon formulaire de saisie, il a plusieurs champs qui, si au moins l'un d'entre n'est pas nul, doit déclencher automatiquement la mention "complément" dans le champ [indication
Je suis pas très doué en VBA, je n'arrive pas a adapter ta réponse d'hier
Merci
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
Raymond [mvp]
Bonjour. tu complètes par un opérateur Or;
If (not IsNull(Me.MonControle) And not Me.MonControle= "") Or _ (not IsNull(Me.MonControle2) And not Me.MonControle2= "") Or _ (not IsNull(Me.MonControle3) And not Me.MonControle3= "") _ Then Me.Texte1 = "compléments" Else Me.Texte1 = "" End If
il faut placer cette fonction dans chaque événement Après Maj (AfterUpdate) de chaque contrôle indiqué et aussi dans l'événement Sur activation (Form_Current) du formulaire. Tu affiches la fenêtre des propriétés, onglet événements, cliquer sur le bouton (...) en fin de ligne.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Luc Joly" a écrit dans le message de news:
Bonjour Raymond et merci pour ta réponse d'hier. Ent fait j'ai mal mal formulé mon besoin. Dans mon formulaire de saisie, il a plusieurs champs qui, si au moins l'un d'entre n'est pas nul, doit déclencher automatiquement la mention
"complément" dans le champ [indication]
Je suis pas très doué en VBA, je n'arrive pas a adapter ta réponse d'hier. Merci
Bonjour.
tu complètes par un opérateur Or;
If (not IsNull(Me.MonControle) And not Me.MonControle= "") Or _
(not IsNull(Me.MonControle2) And not Me.MonControle2= "") Or _
(not IsNull(Me.MonControle3) And not Me.MonControle3= "") _
Then
Me.Texte1 = "compléments"
Else
Me.Texte1 = ""
End If
il faut placer cette fonction dans chaque événement Après Maj (AfterUpdate)
de chaque contrôle indiqué et aussi dans l'événement Sur activation
(Form_Current) du formulaire.
Tu affiches la fenêtre des propriétés, onglet événements, cliquer sur le
bouton (...) en fin de ligne.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Luc Joly" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:EC1BE8F2-E1D9-448F-B451-BF105C5CFD7C@microsoft.com...
Bonjour Raymond et merci pour ta réponse d'hier.
Ent fait j'ai mal mal formulé mon besoin.
Dans mon formulaire de saisie, il a plusieurs champs qui, si au moins l'un
d'entre n'est pas nul, doit déclencher automatiquement la mention
"complément" dans le champ [indication]
Je suis pas très doué en VBA, je n'arrive pas a adapter ta réponse d'hier.
Merci
If (not IsNull(Me.MonControle) And not Me.MonControle= "") Or _ (not IsNull(Me.MonControle2) And not Me.MonControle2= "") Or _ (not IsNull(Me.MonControle3) And not Me.MonControle3= "") _ Then Me.Texte1 = "compléments" Else Me.Texte1 = "" End If
il faut placer cette fonction dans chaque événement Après Maj (AfterUpdate) de chaque contrôle indiqué et aussi dans l'événement Sur activation (Form_Current) du formulaire. Tu affiches la fenêtre des propriétés, onglet événements, cliquer sur le bouton (...) en fin de ligne.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Luc Joly" a écrit dans le message de news:
Bonjour Raymond et merci pour ta réponse d'hier. Ent fait j'ai mal mal formulé mon besoin. Dans mon formulaire de saisie, il a plusieurs champs qui, si au moins l'un d'entre n'est pas nul, doit déclencher automatiquement la mention
"complément" dans le champ [indication]
Je suis pas très doué en VBA, je n'arrive pas a adapter ta réponse d'hier. Merci
