verrouiller un controle selon la saisie du précédent
3 réponses
sylvere
Bonjour,
Dasn un formulaire,
je souhaite interdire la saisie du controle "prenom" si pas de saisie dans
le "nom"
J'ai tenté cette syntaxe, mais il me renvoie
"impossible de désactiver le controle actif"
sur quel évènement placer ce code ?
merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer)
If IsNull(Me.NOM) Or Me.NOM = "" Then
Me.PRENOM.Enabled = False
Me.NOM.SetFocus
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
RaphK34
Pourquoi ne pas faire sur entrer dans le contrôle Prenom: if isnull(me.nom) then me.nom.setfocus !
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues ! -------------------------------------------- "sylvere" a écrit dans le message de news: 483dbb68$0$26309$
Bonjour, Dasn un formulaire, je souhaite interdire la saisie du controle "prenom" si pas de saisie dans le "nom" J'ai tenté cette syntaxe, mais il me renvoie "impossible de désactiver le controle actif" sur quel évènement placer ce code ? merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer) If IsNull(Me.NOM) Or Me.NOM = "" Then Me.PRENOM.Enabled = False Me.NOM.SetFocus
Else Me.PRENOM.Enabled = True
End If End Sub
Pourquoi ne pas faire sur entrer dans le contrôle Prenom:
if isnull(me.nom) then me.nom.setfocus !
--
@+ Raph.
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
--------------------------------------------
"sylvere" <francois@ayhoo.fr> a écrit dans le message de news:
483dbb68$0$26309$426a34cc@news.free.fr...
Bonjour,
Dasn un formulaire,
je souhaite interdire la saisie du controle "prenom" si pas de saisie dans
le "nom"
J'ai tenté cette syntaxe, mais il me renvoie
"impossible de désactiver le controle actif"
sur quel évènement placer ce code ?
merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer)
If IsNull(Me.NOM) Or Me.NOM = "" Then
Me.PRENOM.Enabled = False
Me.NOM.SetFocus
Pourquoi ne pas faire sur entrer dans le contrôle Prenom: if isnull(me.nom) then me.nom.setfocus !
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues ! -------------------------------------------- "sylvere" a écrit dans le message de news: 483dbb68$0$26309$
Bonjour, Dasn un formulaire, je souhaite interdire la saisie du controle "prenom" si pas de saisie dans le "nom" J'ai tenté cette syntaxe, mais il me renvoie "impossible de désactiver le controle actif" sur quel évènement placer ce code ? merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer) If IsNull(Me.NOM) Or Me.NOM = "" Then Me.PRENOM.Enabled = False Me.NOM.SetFocus
Else Me.PRENOM.Enabled = True
End If End Sub
valentin
Bonjour, Essayez cette approche :
Private Sub txtNom_Enter() txtNom = "" End Sub
Private Sub txtNom_Exit(Cancel As Integer) If Len(txtNom) = 0 Then Cancel = True End Sub
On peut éventuellement mettre un message en plus
Private Sub txtNom_Exit(Cancel As Integer) If Len(txtNom) = 0 Then msgbox "Saisie obligatoire du nom" Cancel = True end if End Sub
"RaphK34" a écrit dans le message de news:
Pourquoi ne pas faire sur entrer dans le contrôle Prenom: if isnull(me.nom) then me.nom.setfocus !
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues ! -------------------------------------------- "sylvere" a écrit dans le message de news: 483dbb68$0$26309$
Bonjour, Dasn un formulaire, je souhaite interdire la saisie du controle "prenom" si pas de saisie dans le "nom" J'ai tenté cette syntaxe, mais il me renvoie "impossible de désactiver le controle actif" sur quel évènement placer ce code ? merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer) If IsNull(Me.NOM) Or Me.NOM = "" Then Me.PRENOM.Enabled = False Me.NOM.SetFocus
Else Me.PRENOM.Enabled = True
End If End Sub
Bonjour,
Essayez cette approche :
Private Sub txtNom_Enter()
txtNom = ""
End Sub
Private Sub txtNom_Exit(Cancel As Integer)
If Len(txtNom) = 0 Then Cancel = True
End Sub
On peut éventuellement mettre un message en plus
Private Sub txtNom_Exit(Cancel As Integer)
If Len(txtNom) = 0 Then
msgbox "Saisie obligatoire du nom"
Cancel = True
end if
End Sub
"RaphK34" <xyzpizza.mplxyz@aliceadsl.fr> a écrit dans le message de
news:eoAJDYQwIHA.4736@TK2MSFTNGP04.phx.gbl...
Pourquoi ne pas faire sur entrer dans le contrôle Prenom:
if isnull(me.nom) then me.nom.setfocus !
--
@+ Raph.
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
--------------------------------------------
"sylvere" <francois@ayhoo.fr> a écrit dans le message de news:
483dbb68$0$26309$426a34cc@news.free.fr...
Bonjour,
Dasn un formulaire,
je souhaite interdire la saisie du controle "prenom" si pas de saisie
dans
le "nom"
J'ai tenté cette syntaxe, mais il me renvoie
"impossible de désactiver le controle actif"
sur quel évènement placer ce code ?
merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer)
If IsNull(Me.NOM) Or Me.NOM = "" Then
Me.PRENOM.Enabled = False
Me.NOM.SetFocus
Private Sub txtNom_Exit(Cancel As Integer) If Len(txtNom) = 0 Then Cancel = True End Sub
On peut éventuellement mettre un message en plus
Private Sub txtNom_Exit(Cancel As Integer) If Len(txtNom) = 0 Then msgbox "Saisie obligatoire du nom" Cancel = True end if End Sub
"RaphK34" a écrit dans le message de news:
Pourquoi ne pas faire sur entrer dans le contrôle Prenom: if isnull(me.nom) then me.nom.setfocus !
-- @+ Raph.
-------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues ! -------------------------------------------- "sylvere" a écrit dans le message de news: 483dbb68$0$26309$
Bonjour, Dasn un formulaire, je souhaite interdire la saisie du controle "prenom" si pas de saisie dans le "nom" J'ai tenté cette syntaxe, mais il me renvoie "impossible de désactiver le controle actif" sur quel évènement placer ce code ? merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer) If IsNull(Me.NOM) Or Me.NOM = "" Then Me.PRENOM.Enabled = False Me.NOM.SetFocus
Else Me.PRENOM.Enabled = True
End If End Sub
sylvere
Merci pour l'aide
"sylvere" a écrit dans le message de news: 483dbb68$0$26309$
Bonjour, Dasn un formulaire, je souhaite interdire la saisie du controle "prenom" si pas de saisie dans le "nom" J'ai tenté cette syntaxe, mais il me renvoie "impossible de désactiver le controle actif" sur quel évènement placer ce code ? merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer) If IsNull(Me.NOM) Or Me.NOM = "" Then Me.PRENOM.Enabled = False Me.NOM.SetFocus
Else Me.PRENOM.Enabled = True
End If End Sub
Merci pour l'aide
"sylvere" <francois@ayhoo.fr> a écrit dans le message de news:
483dbb68$0$26309$426a34cc@news.free.fr...
Bonjour,
Dasn un formulaire,
je souhaite interdire la saisie du controle "prenom" si pas de saisie dans
le "nom"
J'ai tenté cette syntaxe, mais il me renvoie
"impossible de désactiver le controle actif"
sur quel évènement placer ce code ?
merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer)
If IsNull(Me.NOM) Or Me.NOM = "" Then
Me.PRENOM.Enabled = False
Me.NOM.SetFocus
"sylvere" a écrit dans le message de news: 483dbb68$0$26309$
Bonjour, Dasn un formulaire, je souhaite interdire la saisie du controle "prenom" si pas de saisie dans le "nom" J'ai tenté cette syntaxe, mais il me renvoie "impossible de désactiver le controle actif" sur quel évènement placer ce code ? merci d'avance
Private Sub PRENOM_BeforeUpdate(Cancel As Integer) If IsNull(Me.NOM) Or Me.NOM = "" Then Me.PRENOM.Enabled = False Me.NOM.SetFocus