Private Sub AfterUpdate [Résolu]

Messages postés
70
Date d'inscription
dimanche 25 octobre 2015
Dernière intervention
3 juillet 2017
- - Dernière réponse : aminesc
Messages postés
70
Date d'inscription
dimanche 25 octobre 2015
Dernière intervention
3 juillet 2017
- 3 févr. 2016 à 23:19
Bonjour,
voici se que j'ai fais en premier lieux

Private Sub date_depense_AfterUpdate()

If IsDate(date_depense.Value) And date_depense.Text Like "##/##/####" And Val(Mid(date_depense.Text, 4, 2)) < 13 Then
' forma de date corecte ==> ne rien faire
Else
MsgBox "la date doit être valide et à saisir obligatoirement sous la forme jj/mm/aaaa"
End If


End Sub

si la date n'est pas correcte le message est afficher je veux aussi qu'on peux pas saisir autre chose si la correction de la date ne sois pas encore faite

merci
Afficher la suite 

Votre réponse

3 réponses

Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
259
0
Merci
Bonjour,
Que t'ai-je dit dans ton autre discussion à ce sujet ?
Pour mémoire :
le mieux est sans doute d'utiliser l'évènement Exit de ta textbox

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
259
0
Merci
Va voir le petit cadeau matinal que je viens de déposer dans ton autre discussion.
Il est probablement tel que la question actuelle ne se pose même plus.
Commenter la réponse de ucfoutu
Messages postés
70
Date d'inscription
dimanche 25 octobre 2015
Dernière intervention
3 juillet 2017
0
Merci
merci
Commenter la réponse de aminesc

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.