1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    mai 2012
    Messages
    487
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : mai 2012
    Messages : 487
    Points : 106
    Points
    106

    Par défaut Blocage d'un champ formulaire

    Bonjour,
    Je cherche à forcer l'utilisateur de mon formulaire à remplir un champ avec une date qui ne peut être antérieure à celle du jour.
    j'utilise un code et le déclenchement de ce code à l'entrée et à la sortie du champ.
    Je reçois un message d'erreur 3 fois sur 4.

    Le code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Sub VerificationDate()
     
       Dim DATECREATION As Date
     
     
     
    DATEDECREATION = InputBox("Inscrivez la date" & vbCrLf & vbCrLf & "DATE")
     
        ActiveDocument.FormFields("DatedeCreation").Result = DATEDECREATION
     
     
          If ActiveDocument.FormFields("DatedeCreation").Result < Date Or ActiveDocument.FormFields("DatedeCreation").Result > Date Or ActiveDocument.FormFields("DatedeCreation").Result = "" Then
    MsgBox "La date entrée ne doit pas être différente de celle du jour de saisie"
     
     
     
    Selection.GoTo wdGoToBookmark, Name:="Prénom"
     
    Else
     
          Selection.GoTo wdGoToBookmark, Name:="MOIS"
     
     
     End If
     
    Exit Sub
    End Sub
    à l'entrée de mon champ.

    A la sortie:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Sub Verifdatesaisie()
     
     
    If ActiveDocument.FormFields("DatedeCreation").Result < Date Or ActiveDocument.FormFields("DatedeCreation").Result > Date Then
    MsgBox "La date entrée ne doit pas être différente de celle du jour de saisie"
     
          Dim DATECREATION As Date
     
     
     
    DATEDECREATION = InputBox("Inscrivez la date" & vbCrLf & vbCrLf & "DATE")
     
    ActiveDocument.FormFields("DatedeCreation").Result = DATEDECREATION
     
    Selection.GoTo wdGoToBookmark, Name:="INSEE"
     
     
     
     
    Else
     
          Selection.GoTo wdGoToBookmark, Name:="MOIS"
     
     
     
     
     
     End If
    End Sub
    Le message d'erreur:

    Nom : 2017-10-12_14h37_53.jpg
Affichages : 5
Taille : 21,5 Ko

    LA ligne surlignée:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveDocument.FormFields("DatedeCreation").Result = DATEDECREATION
    Dans le code:

    Ce code fonctionnait très bien jusqu'à ce que j'ajoute de champs avec des codes barre.

    Si quelqu'un y voit plus clair que mois, MERCI BEAUCOUP!!!

  2. #2
    Membre régulier
    Homme Profil pro
    Inscrit en
    mai 2012
    Messages
    487
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : mai 2012
    Messages : 487
    Points : 106
    Points
    106

    Par défaut

    RESOLU:

    Mes champs à codes barres renvoyé vers le champ date de création.
    J'ai désactivé le remplissage des champs à codes barres et le renvoi au champ date de création.

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

Discussions similaires

  1. Verification champ formulaire
    Par calitom dans le forum JavaScript
    Réponses: 2
    Dernier message: 31/03/2006, 14h54
  2. Récupérer la valeur d'un champs formulaire
    Par bodtx dans le forum Access
    Réponses: 5
    Dernier message: 01/03/2006, 14h55
  3. Valeur dans champ formulaire
    Par dbi dans le forum Access
    Réponses: 5
    Dernier message: 18/02/2006, 01h18
  4. Réponses: 1
    Dernier message: 29/09/2005, 12h05
  5. Modifier la position d'un champs formulaire
    Par gg14bis dans le forum JavaScript
    Réponses: 3
    Dernier message: 22/09/2005, 08h57

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