Contrôle de saisieFermé

Question

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

Reivax91 · Answer

J'ai commencé par essayer de verifier le nombre de caractères saisis. 
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

Reivax91 · Answer

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

Gaunts · Answer

Salut,    

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

Reivax91 · Answer

Merci a toi je vais tester

Contrôle de saisie

4 réponses

Discussions similaires

Newsletters