Rester dans le textbox après le controle de la saisie
1 réponse
Alex
Bonjour =E0 tous,
J'ai un textbox parametr=E9 pour saisir une date. Un message appara=EEt si
l'utilisateur saisie autre chose qu'une date, mais j'aimerais qu'apr=E8s
le message informant l'utilisateur, que le curseur reste positionn=E9
dans la textbox qui vient d'=EAtre control=E9.
Quelqu'un aurait il la solution =E0 mon probl=E8me
Merci par avance de vos r=E9ponses.
Alex
J'ai =E9crit ceci :
Private Sub DDB_AfterUpdate()
If IsDate(Me.DDB) Then
Me.DDB =3D Format(Me.DDB, "dd/mm/yy")
Else
MsgBox "Ceci n'est pas un format date correcte, veuillez saisir
votre date avec le format JJ/MM/AA"
''''''ICI : Je souhaiterais ajouter ligne de commande pour dire
repositionne toi sur la textbox
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
Vincent Guichard
Le 13/12/2011 16:23, Alex a écrit :
Bonjour à tous,
J'ai un textbox parametré pour saisir une date. Un message apparaît si l'utilisateur saisie autre chose qu'une date, mais j'aimerais qu'aprè s le message informant l'utilisateur, que le curseur reste positionné dans la textbox qui vient d'être controlé. Quelqu'un aurait il la solution à mon problème Merci par avance de vos réponses. Alex
J'ai écrit ceci :
Private Sub DDB_AfterUpdate() If IsDate(Me.DDB) Then Me.DDB = Format(Me.DDB, "dd/mm/yy") Else MsgBox "Ceci n'est pas un format date correcte, veuillez saisir votre date avec le format JJ/MM/AA"
''''''ICI : Je souhaiterais ajouter ligne de commande pour dire repositionne toi sur la textbox
End If End Sub
AfterUpdate est apparemment un event spécifique à VBA Access, donc je peux me tromper, mais ne devrais tu pas faire plutôt la validation dans l'event BeforeUpdate? En VB classique on utiliserait l'event Validate pour faire cela.
Vincent Guichard
Le 13/12/2011 16:23, Alex a écrit :
Bonjour à tous,
J'ai un textbox parametré pour saisir une date. Un message apparaît si
l'utilisateur saisie autre chose qu'une date, mais j'aimerais qu'aprè s
le message informant l'utilisateur, que le curseur reste positionné
dans la textbox qui vient d'être controlé.
Quelqu'un aurait il la solution à mon problème
Merci par avance de vos réponses.
Alex
J'ai écrit ceci :
Private Sub DDB_AfterUpdate()
If IsDate(Me.DDB) Then
Me.DDB = Format(Me.DDB, "dd/mm/yy")
Else
MsgBox "Ceci n'est pas un format date correcte, veuillez saisir
votre date avec le format JJ/MM/AA"
''''''ICI : Je souhaiterais ajouter ligne de commande pour dire
repositionne toi sur la textbox
End If
End Sub
AfterUpdate est apparemment un event spécifique à VBA Access, donc je
peux me tromper, mais ne devrais tu pas faire plutôt la validation dans
l'event BeforeUpdate? En VB classique on utiliserait l'event Validate
pour faire cela.
J'ai un textbox parametré pour saisir une date. Un message apparaît si l'utilisateur saisie autre chose qu'une date, mais j'aimerais qu'aprè s le message informant l'utilisateur, que le curseur reste positionné dans la textbox qui vient d'être controlé. Quelqu'un aurait il la solution à mon problème Merci par avance de vos réponses. Alex
J'ai écrit ceci :
Private Sub DDB_AfterUpdate() If IsDate(Me.DDB) Then Me.DDB = Format(Me.DDB, "dd/mm/yy") Else MsgBox "Ceci n'est pas un format date correcte, veuillez saisir votre date avec le format JJ/MM/AA"
''''''ICI : Je souhaiterais ajouter ligne de commande pour dire repositionne toi sur la textbox
End If End Sub
AfterUpdate est apparemment un event spécifique à VBA Access, donc je peux me tromper, mais ne devrais tu pas faire plutôt la validation dans l'event BeforeUpdate? En VB classique on utiliserait l'event Validate pour faire cela.