Limité un champ date

Fermé

castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 31 déc. 2013 à 10:30
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 2 janv. 2014 à 10:08

Bonjour,
Dans un formulaire ,un champ date ,j'utilise la fonction Date()
mais aussi des date a 4 jours .
Je voudrai limité les enrgistrements avec un message d' avertissement.A
Au 5 ieme le message apparait que vous avez depassez le delai autorissé.
Quelqu'un peut il m'écrire cette procedure de mise a jour.
Je vous remercie pour l'aide que vous m'apportez.

A voir également:

Limité un champ date
Comment ouvrir un fichier dat - Guide
Publipostage date inversée ✓ - Forum Word
Mfg date - Forum PC portable
Publipostage date en anglais ✓ - Forum Excel

5 réponses

Réponse 1 / 5

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
31 déc. 2013 à 11:12

Bonjour,
Pas fort claire, pourais tu déposé un classeur exemple (sans donnée confidentielle) sur Cjoint.com par exemple et mettre le lien dans un poste suivant.
A+

castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 217
31 déc. 2013 à 11:27

Bonjour
Merci d'avoir repondu.
Mon probleme se pose dans un formulaire d'access 2003
Ce que je voudrai réalisé ,c'est de pouvoir faire des enregistrements avec la date du jour.
J'utilise la fonction Date() mais aussi saisir Date()+4. Interdire le 5 ieme jour et +

Réponse 2 / 5

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 31/12/2013 à 11:57

Peut être comme ça..
Entree étant la variable a tester.

Dim D As Date
    D = DateSerial(Year(Now), Month(Now), Day(Now) + 4)
    If Entree > D Then
        MsgBox "Date invalide"
        Exit Sub
    End If

A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 217
Modifié par pijaku le 2/01/2014 à 13:17

Bonjour

Private Sub DateAchat_AfterUpdate()
Dim D As Date
D = DateSerial(Year(Now), Month(Now), Day(Now) + 4)
If DateAchat > D Then
MsgBox "Date invalide"
DateAchat = False
Exit Sub
End If

End Sub

Comme tu vois j'ai fait une modif et cela fonctionne.
Maintenant comment realiser une autre condition
de ne pas prendre compte un enregistrement inferieur a la date du jour dans la meme procedure.
je te remercie

Réponse 3 / 5

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
31 déc. 2013 à 17:18

    If DateAchat > D OR DateAchat < Date Then

Réponse 4 / 5

castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 217
31 déc. 2013 à 17:31

je te remercie de ton aide

castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 217
Modifié par pijaku le 2/01/2014 à 13:17

j'ai modifié comme ceci

Private Sub DateAchat_AfterUpdate()
Dim D As Date
Dim A As Date

D = DateSerial(Year(Now), Month(Now), Day(Now) + 4)
A = DateSerial(Year(Now), Month(Now), Day(Now) - 1)
If DateAchat > D Or DateAchat < A Then
DateAchat = False
MsgBox "Date invalide"

Exit Sub
End If

End Sub

Cela enregistre bien les dates dans la fourchette
mais lorsque c'est en dehors le message d'erreur apparrait mais iinserre une date bidon comme 30/12/1889
Je voudrai avoir le message d'erreur avec refus de l'enregistrement
Comment Faire?
Merci

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 2/01/2014 à 10:13

de ne pas prendre compte un enregistrement inferieur a la date du jour dans la meme procedure.

Avec ton système tu test une date 2 jours AVANT la date du jour.
Met EXACTEMENT ce que j'ai mis.

DateAchat c'est quoi exactement. ?

PS : Tu est allergique aux accents ?

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

Discussions similaires

Nom de champs du tableau croisé dynamique non valide

Prélèvement JM Jacquie et Michel date.

je cherche la date et le lieu de naissance d une personne

Limite de demande d’amis Snapchat comment faire ?

Problème Whatsapp - "La date est incorrecte"