Contrôle de saisie
Reivax91
Messages postés
253
Date d'inscription
Statut
Membre
Dernière intervention
-
Reivax91 Messages postés 253 Date d'inscription Statut Membre Dernière intervention -
Reivax91 Messages postés 253 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai créé un formulaire Access avec un programme VBA derière, qui, lorsqu'on rentre une date (format spécial : jjMm ex : 22Nov), va chercher dans une base de données les détails d'appels téléphoniques par tranche horaire.
Je voudrais pouvoir faire du contrôle de saisie avec le VBA pour qu'on ne puisse pas demander de voir les détails d'une date qui n'existe pas. Par exemple, afficher un message d'erreur si on rentre "35Nov" ou "22Nvembre" ...
Un grand Merci d'avance, je suis perdu là .. ^^
Reivax91
J'ai créé un formulaire Access avec un programme VBA derière, qui, lorsqu'on rentre une date (format spécial : jjMm ex : 22Nov), va chercher dans une base de données les détails d'appels téléphoniques par tranche horaire.
Je voudrais pouvoir faire du contrôle de saisie avec le VBA pour qu'on ne puisse pas demander de voir les détails d'une date qui n'existe pas. Par exemple, afficher un message d'erreur si on rentre "35Nov" ou "22Nvembre" ...
Un grand Merci d'avance, je suis perdu là .. ^^
Reivax91
A voir également:
- Contrôle de saisie
- Saisie gestuelle iphone - Guide
- Saisie vocale whatsapp - Accueil - Messagerie instantanée
- Saisie vocale sms - Guide
- Gboard saisie vocale - Accueil - Applications & Logiciels
- Fan controle - Télécharger - Optimisation
4 réponses
J'ai commencé par essayer de verifier le nombre de caractères saisis.
Voici mon code qui ne fonctionne pas ........ Help please
Voici mon code qui ne fonctionne pas ........ Help please
If DateSelect = "?????" Then
MsgBox ("Date correcte")
Else
MsgBox ("Vous avez fait une erreur lors de la saisie de la date, merci de recommencer")
End If
J'ai trouvé la solution, pour le nombre de caractère du moins :
SaisieNbCar = Len(DateSelect)
If SaisieNbCar <> 5 Then
MsgBox ("Vous avez fait une erreur lors de la saisie de la date, merci de recommencer")
Else
MsgBox ("Date correcte")
End If
Salut,
C'est possible mais je pense assez fastidieux.
Tu vas devoir commencer par vérifier le mois avec la fonction:
PS: et éventuellement pour le mois de février, tester si l'année est bissextile..
Si tu arrives à extraire le jour et le mois, tu peux transformer ta chaine en format date avec la fonction valdate(), et il doit exister une fonction capable de tester une date mais je ne la connais pas.
PPS: après test, la fonction DateValue("date") renvoie une erreur si tu entres une date invalide, tu peux t'en servir
J'ai un rêve. C'est que tous les supporters de football se tiennent par la main...
...Et se jettent dans le vide
C'est possible mais je pense assez fastidieux.
Tu vas devoir commencer par vérifier le mois avec la fonction:
Mid(string, start[, length])puis vérifier que le numéro est valide, toujours avec cette même fonction, ainsi que la fonction:
Val(string)
PS: et éventuellement pour le mois de février, tester si l'année est bissextile..
Si tu arrives à extraire le jour et le mois, tu peux transformer ta chaine en format date avec la fonction valdate(), et il doit exister une fonction capable de tester une date mais je ne la connais pas.
PPS: après test, la fonction DateValue("date") renvoie une erreur si tu entres une date invalide, tu peux t'en servir
J'ai un rêve. C'est que tous les supporters de football se tiennent par la main...
...Et se jettent dans le vide