OVH Cloud OVH Cloud

code d'effacement de données sur case à cocher

3 réponses
Avatar
sylvere
Bonjour, je recherche un petit coup de main sur le code concerant une
case à cocher :
la 1ere condition fonctionne,
la 2eme, doit vider de son contenu le controle nomremplacement
Merci de m'aider pour la syntaxe.
Sylvere


Private Sub modif_stagiaire_AfterUpdate()
If modif_stagiaire.Value = "-1" Then
Me.nomremplacement = Me.nomstagiaire
End If
'If modif_stagiaire.Value = "0" Then
'Me.nomremplacement = (vider du contenu)
'End If
End Sub

3 réponses

Avatar
Bauwens François
Salut,

Moi j'aurais plutôt fait un truc genre :
Private Sub modif_stagiaire_AfterUpdate()
If modif_stagiaire.Value = -1 Then
Me.nomremplacement = Me.nomstagiaire
else
Me.nomremplacement = null
End If
End Sub
Mais je ne l'ai pas testé et je ne suis pas une bête en vba



"sylvere" a écrit dans le message de
news:
Bonjour, je recherche un petit coup de main sur le code concerant une
case à cocher :
la 1ere condition fonctionne,
la 2eme, doit vider de son contenu le controle nomremplacement
Merci de m'aider pour la syntaxe.
Sylvere


Private Sub modif_stagiaire_AfterUpdate()
If modif_stagiaire.Value = "-1" Then
Me.nomremplacement = Me.nomstagiaire
End If
'If modif_stagiaire.Value = "0" Then
'Me.nomremplacement = (vider du contenu)
'End If
End Sub




Avatar
Fred
Moi je vois plutôt ça:
(mais je ne sais pas ce qu'est "modif_stagiaire.Value ")

Private Sub modif_stagiaire_AfterUpdate()
If modif_stagiaire Then
Me.nomremplacement = Me.nomstagiaire
Else
Me.nomremplacement = ""
End If
End Sub


Fred
"sylvere" a écrit dans le message de news:

Bonjour, je recherche un petit coup de main sur le code concerant une case
à cocher :
la 1ere condition fonctionne,
la 2eme, doit vider de son contenu le controle nomremplacement
Merci de m'aider pour la syntaxe.
Sylvere


Private Sub modif_stagiaire_AfterUpdate()
If modif_stagiaire.Value = "-1" Then
Me.nomremplacement = Me.nomstagiaire
End If
'If modif_stagiaire.Value = "0" Then
'Me.nomremplacement = (vider du contenu)
'End If
End Sub




Avatar
Bauwens François
Woueps et même :
Private Sub modif_stagiaire_AfterUpdate()
If modif_stagiaire = true Then
Me.nomremplacement = Me.nomstagiaire
Else
Me.nomremplacement = ""
End If
End Sub
"Fred" a écrit dans le message de

news:433a2e74$0$11157$
Moi je vois plutôt ça:
(mais je ne sais pas ce qu'est "modif_stagiaire.Value ")

Private Sub modif_stagiaire_AfterUpdate()
If modif_stagiaire Then
Me.nomremplacement = Me.nomstagiaire
Else
Me.nomremplacement = ""
End If
End Sub


Fred
"sylvere" a écrit dans le message de news:

Bonjour, je recherche un petit coup de main sur le code concerant une
case


à cocher :
la 1ere condition fonctionne,
la 2eme, doit vider de son contenu le controle nomremplacement
Merci de m'aider pour la syntaxe.
Sylvere


Private Sub modif_stagiaire_AfterUpdate()
If modif_stagiaire.Value = "-1" Then
Me.nomremplacement = Me.nomstagiaire
End If
'If modif_stagiaire.Value = "0" Then
'Me.nomremplacement = (vider du contenu)
'End If
End Sub