Discussion :

[Kestion100]

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:



LA ligne surlignée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.FormFields("DatedeCreation").Result = DATEDECREATION

Dans le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VerificationDate

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!!!

[Kestion100]

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.