Discussion :

[seurjer]

Bonjours,

J'ai un champ de text de type "date abrégé" dans mon formulaire et j'aimerais le tester.

Résultat du test:

- si le champ est correctement rempli, ne rien faire.
- si le champ est vide, le renseigner avec "01/01/1001" (une valeur bidon).

Je suis obligé de faire ce test, car le champ date fait partie de la clé primaire, donc si l'utilisateur ne le rempli pas, il affiche une erreur disant qu'une partie de la clé n'est pas renseignée.

Merci d'avance pour vos réponses

[maxeur]

Je viens d'avoir un peu le meme souci
je te met le code que l'on m'a donné

Code :

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

1
2
3
If Not IsNull madate Then
...
endif

[seurjer]

ok, merci mais le champ "madate" correspond à quoi??

je ne vois pas trop!!

[maxeur]

cela correspond à la a la date que tu veux tester

me!Madate

le champ de ton formulaire en fait
tu le fais before update et c'est bon ca devrait fonctionner

[seurjer]

j'ai essayé de la façon suivante, mais sans résultat, la ligne du "If" contient un erreur et apparaît en rouge dans l'éditeur...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_BeforeUpdate(Cancel As Integer)
    'Déclaration des variables locales
    Dim DateFormulaire As Date
 
    'Initialisation de la variable date avec la valeur par défaut
    Set DateFormulaire = 1 / 1 / 1001
 
    'test de la validité du champ "date abrégé"
    If Not IsNull Forms![F_Saisie]![SF_Materiel]![SF_VendreMateriel]![VM_Date] Then
       '...
    End If
 
End Sub

Je ne trouve pas la faute..

[cafeine]

Hello,

la faute c'est que 1/1/1001 c'est
1/ 1 / 1001 = 1 / 1001 = 9.99000999000999E-04

si tu veux une date il faut ...
#1/1/2001#

Attention le type date compte les jours depuis le 30 décembre 1899 ...

donc le 1/1/1001 = -328351

[Tofalu]

Je suis obligé de faire ce test, car le champ date fait partie de la clé primaire, donc si l'utilisateur ne le rempli pas, il affiche une erreur disant qu'une partie de la clé n'est pas renseignée.

Ouh là... je vois là une grave erreur de conception.

Tu ne peux pas affecter une valeur bidon à une clé primaire. La clé primaire d'un enregistrement est une valeur unique et non nulle. Etre contraint à lui donner une pseudo valeur signifie simplement que c'est une pseudo clé primaire. L'analyse a été loupée quelque part je craint

[seurjer]

Oui, je comprend tout a fait l'erreur, cependant je vais m'expliquer un peu mieux:

L'utilisateur doit enregistrer du matériel qui lui a été vendu par un fournisseur, seulement, l'utilisateur ne sais pas à quelle date ce matériel bien précis à été acheté!!

Mais dans un autre cas, un matériel différent peut avoir été acheté plusieurs fois au même fournisseur, mais à des dates différentes...

Me suis-je mieux exprimé??

Je sais que c'est un peut bizzard

[DMboup]

L'utilisateur doit enregistrer du matériel qui lui a été vendu par un fournisseur, seulement, l'utilisateur ne sais pas à quelle date ce matériel bien précis à été acheté!!

Tu peux prendre la date de démarrage de ton exercice comme date référence de toutes opération antérieure

Mais dans un autre cas, un matériel différent peut avoir été acheté plusieurs fois au même fournisseur, mais à des dates différentes...

Donc tu as l'historique des opérations. Ou est le problème?

[seurjer]

Mon problème est que:

Dans cette situation,

seurjer a écrit :
L'utilisateur doit enregistrer du matériel qui lui a été vendu par un fournisseur, seulement, l'utilisateur ne sais pas à quelle date ce matériel bien précis à été acheté!!

Je n'arrive pas en VBA à insérer une date (date de démarrage de mon exercice, par exemple) après avoir testé si l'utilisateur l'a insérée ou pas...

[maxeur]

Essaye peut être la fonction Nz c'est ce qui m'a permis de faire fonctionner mon code car en fait d'aprés ce que j'ai compris ce que tu renvoie comme valeur est vide et donc Nz permet de tester un champ vide mais le problème est que je ne suis pas expérimenté et que je ne sais pas si ce n'est utilisable que dans des requête

En espérant d'avoir un tant soit peu aiguillé

[Invité]

Salut

Je ne rempli de champ date avec une textbox, j'utilise un calendrier le composant Microsoft Date and Time Picker qui ceux trouve dans la liste des active X, ainsi tu n'as plus de contrôle à faire si une date a bien été saisi. Et j'ai remarqué que c'est plus agréable pour les utilisateurs, un simple clic de souris.

Test le

Starec

[seurjer]

Je vous remercie de toutes ces solutions.

Je n'ai pas encore trouvé exactement ce que je veux, mais je continu à chercher de mon côté...

[Heureux-oli]

Tu devrais écouter le conseil de Tofalu.
Tu peux très bien rendre un champ obligatoire sans pour autant que ce soit une clé primaire.