Discussion :

[jolemoine]

bonsoir,

je me permet d'ouvrir cette dicussion car j'ai un petit problème à vous soumettre, je n'ai pas encore trouve ce qui me convenait dans le forum et les tutos.

je suis peut être pas doué pour les recherches.

bon voilà:
j'ai une table Tbl_anomalies avec un champ "Date" en format date réduit avec un masque de saisie.

le formulaire de saisie est Frm_gestion

je voudrais, si cela est possible, d'empécher l'utilisateur de saisir une date supérieure, dans le futur, a la date du jour.

je crois que la date du jour s'appelle "DateSys", j'en suis pas sûr.

Il peut toutefois saisir une date antérieure.

s'il y a erreur, je pense qu'une MsgBox devrait surgir et après le "OK" retourner sur le champ date.

Merci de votre amabilité pour me guider sur le chemin du savoir.

[marot_r]

Dans l'événement AprèsMAJ (AfterUpdate) du champ concerné.

Code :

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

1
2
3
4
 
if me.maDate>date() then
   msgbox "Date invalide"
end if

A+

[jolemoine]

Bonjour,

de l'info, je teste demain.

[jolemoine]

Bonjour marot_r,

je viens de tester et cela ne fonctionne pas;

Access n'acepte pas d'écrire Date(), il enlève les ()

Merci tout de même, ma quête vers la vérité continue donc

[Tofalu]

Plus simple,

dans le champ de la table, propriétés

Valide Si : <=Date() Ou Est Null
Message si erreur : "Veuillez saisir une date valide"

[jolemoine]

bonjour marot_r,

j'ai essayer mais j'ai dû me tromper quelques part car cela ne fonctionne pas du moins dans mon cas,
en effet Access remplace sitématiquement Date() par Date, il enlève les parenthèses, et comme Date c'est la nom de mon champ dans le formulaire, quelquesoit la date saisie elle n'est jamais dans le futur.

Bon je cherche encore et

[Invité]

Bonjour

L'erreur est d'appeler un champ, une variable ou un contrôle avec un mot réservé au VBA. Tu auras des problèmes dans tout ton programme, change tout de suite le nom de ton champ.

Starec

[jolemoine]

Bonjour Tofalu,

Excuse moi je n'avais pas vu ta réponse, et aussi ma réponse précédente. En effet j'ai eut une déconnection d'Internet et je ne voyais pas que mes messages étaient partis quand même.

Je vais faire ce que tu dis, mais est ce que l'on peut modifier le message d'erreur?

je veut dire modifier simplement le texte de la MsgBox

[jolemoine]

Bonjour Starec,

je vais suivre ton conseil, merci

[toutyx]

Si tu as d'autre probleme avec la date , tu peux aussi essayé ça :

Code :

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

1
2
'fonction qui permet de forcer le type en date et non en string
Cdate(date_entree)

[jolemoine]

bonjour,

je crois qu'il y a un problème sur cette discution car il me manque les messages d'aujourd'hui, je ne doit pas être doué ces jours ci

[jolemoine]

Bonjour

L'erreur est d'appeler un champ, une variable ou un contrôle avec un mot réservé au VBA. Tu auras des problèmes dans tout ton programme, change tout de suite le nom de ton champ.

bon les modifications sont faites, merci Starec

dans le champ de la table, propriétés

Valide Si : <=Date() Ou Est Null
Message si erreur : "Veuillez saisir une date valide"

tofalu, pour le message d'erreur cela est bien, mais ma base de donnée à deux IHM une en français et l'autre en italien

alors je me demande s'il est possible de personnaliser les MsgBox, enfin seulement celle qui est généré par l'erreur qui nous concerne.

Est il possible aussi de supprimer le bouton "aide" dans la MsgBox généré dans mon cas.

Merci de m'aider.

[jolemoine]

Bonjour,

un grand à tous, je pense clore le sujet étant donné que j'ai ma réponse principale.