IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Validation de Date avec DatePicker


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Ingénieur commercial
    Inscrit en
    Août 2012
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur commercial
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2012
    Messages : 16
    Par défaut Validation de Date avec DatePicker
    Bonjour,
    Je suis nouveau sur vb. J'ai une application de carte de temps. Je dois m'assurer qu'il n'y a aucune création de carte de temps si une date valide (dimanche car fin de la semaine) n'a pas été sélectionné. La Date est WeekEnd et elle est choisie sur un formulaire avec un datepicker.

    Comment m'assurer qu'aucune entrée ne soit acceptée tant qu'un dimanche n'a pas été sélectionné? J'ai essayé la sub suivante sur le bouton before update de WeekEnd sans succes. Je voudrais que si la date entrée n'est pas un dimanche, un message s'affiche, le champ sur le formulaire se vide et on attend jusqu'à ce que ce soit un dimanche qui soit choisit. Merci.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub txtWeekEnd_BeforeUpdate(Cancel As Integer)
     
    Dim JOURNEE As Integer
    JOURNEE = Weekday(Me!WeekEnd, vbMonday)
    If JOURNEE <> 7 Then
        MsgBox "      CETTE DATE N'EST PAS UN DIMANCHE", vbOKOnly, "Message"
     
    Else
     
    End If
    End Sub

  2. #2
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 596
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 80
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 596
    Par défaut
    Bonjour,

    essaie plutôt avec ce code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If Format(Me.ActiveControl, "dddd") <> "dimanche" Then
       MsgBox Me.ActiveControl & " n'est pas un dimanche !"
       Cancel = True
       Me.ActiveControl.Undo
    End If

  3. #3
    Membre averti
    Homme Profil pro
    Ingénieur commercial
    Inscrit en
    Août 2012
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur commercial
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2012
    Messages : 16
    Par défaut Résolu
    Merci Claude,

    Beau travail.

    YH

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Validation de la date avec heure
    Par Bes74 dans le forum VBA Access
    Réponses: 1
    Dernier message: 18/03/2014, 08h38
  2. Réponses: 21
    Dernier message: 29/12/2012, 20h41
  3. sélectionner une date avec Datepicker
    Par laurentSc dans le forum jQuery
    Réponses: 18
    Dernier message: 19/03/2012, 17h10
  4. recalcul automatique de date avec le DateField/DatePicker
    Par NicoSquare dans le forum Ext JS / Sencha
    Réponses: 3
    Dernier message: 30/08/2011, 14h16
  5. grisement des dates avec datepicker
    Par Riwalenn dans le forum jQuery
    Réponses: 1
    Dernier message: 13/03/2011, 23h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo