Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access MsgBox comment retourné à un champ spécifique du formulaire acti f

MsgBox comment retourné à un champ spécifique du formulaire acti f

4 réponses
Avatar
Julien
Bonjour,

Je n'arrive pas à trouver la solution pour retourner et effacer le contenu
d'un champ d'un formulaire après l'apparition d'une MsgBox.

Ci-dessous une copie de mon code actuel auquel il faut ajouter cette
commande :

Private Sub OK_Click()
If (Me.motdepasse = Me.code) Then
Dim stDocName As String
stDocName = "vendeur"
DoCmd.RunMacro stDocName
Else
MsgBox "Mot de passe incorrect.", vbExclamation, "Identification"
Cancel = -1
DoCmd.GoToControl (Me.code)
End If
End Sub

J'aimerais donc revenir au champ code du formulaire identification et
l'effacer. Ceci pour éviter que l'utilisateur soit obliger après la saisie
d'un mauvais mot de passe d'entrer dans le champs de supprimé les données et
de recommencer....

merci d'avance

Julien
Signaler un problème avec ce contenu

4 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
joyeux atchoum
Bonjour

je ne suis pas sur d'avoir compris la question mais est ce qu'un :
Me.code = "" ne suffirait il pas ?

ja
qui ...
Avatar
Julien
Bonjour,

peux-être mais je ne suis pas assez doué avec Access pour le dire !

J'aimerais avec une action effacer et placer mon curseur dans un champ d'un
formulaire...

merci

Julien


Bonjour

je ne suis pas sur d'avoir compris la question mais est ce qu'un :
Me.code = "" ne suffirait il pas ?

ja
qui ...




Avatar
Eric
Bonjour,

Modifies comme ci-dessous

Private Sub OK_Click()
If Me.motdepasse = Me.code Then
Dim stDocName As String
stDocName = "vendeur"
DoCmd.RunMacro stDocName
Else
MsgBox "Mot de passe incorrect.", vbExclamation, "Identification"
Me.Code.SetFocus ' <--------
Me.Code = "" ' <--------
End If
End Sub



Bonjour,

peux-être mais je ne suis pas assez doué avec Access pour le dire !

J'aimerais avec une action effacer et placer mon curseur dans un champ d'un
formulaire...

merci

Julien



Bonjour

je ne suis pas sur d'avoir compris la question mais est ce qu'un :
Me.code = "" ne suffirait il pas ?

ja
qui ...





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


Avatar
Julien
Merci, ça fonctionne parfaitement.. a plus tard

julien


Bonjour,

Modifies comme ci-dessous

Private Sub OK_Click()
If Me.motdepasse = Me.code Then
Dim stDocName As String
stDocName = "vendeur"
DoCmd.RunMacro stDocName
Else
MsgBox "Mot de passe incorrect.", vbExclamation, "Identification"
Me.Code.SetFocus ' <--------
Me.Code = "" ' <--------
End If
End Sub



Bonjour,

peux-être mais je ne suis pas assez doué avec Access pour le dire !

J'aimerais avec une action effacer et placer mon curseur dans un champ d'un
formulaire...

merci

Julien



Bonjour

je ne suis pas sur d'avoir compris la question mais est ce qu'un :
Me.code = "" ne suffirait il pas ?

ja
qui ...





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr