Ajouter des heures [Résolu]

[totor92290]

Bonjour à tous,

J'ai deux champs de saisie dans un formulaire.
je saisis une heure de départ dans le premier (heure ENL demandée)
Je voudrais que dans le deuxième champ en valeur par défaut j'obtienne heure ENL demandée + 2 heures
Dans la feuille de propriétés du champ
Dans l'onglet "données"
dans la ligne valeur par défaut, j'ai taper ce code

Code :

=[heure ENL demandée]+#02:00:00#

et cela ne marche pas

Quelqu'un aurait-il une solution ?

[micniv]

Bonsoir,

Code :

1
2
3
 
=dateadd("h",2,#16:00#)
' renvoie :18:00:00

Bonne continuation

[totor92290]

Merci micniv,

J'ai essayé ton code et cela ne fonctionne pas.

"mon"

Code :

#16:00#

à moi c'est

Code :

][heure ENL demandée]

autrement dit une variable se trouvant dans un autre champ.

J'ai un message d'erreur "la synthaxe de l'expression n'est pas valide"

Dans l'attente de te lire

[micniv]

Tu dois passer Heure1 en format de date à la focntion :

=dateadd("h", 2, Heure1 )

Si ta variable [heure ENL demandée] est du texte qui peux etre reconnu en date, tu peux essayer la conversion de date CDate()

Code :

=dateadd("h", 2, CDate([heure ENL demandée]) )

Sinon, n'hésite pas à consulter la FAQ du site pour mieux connaitre le format DATE qui est un chapitre à lui tout seul.

[totor92290]

Bonjour Micniv,

9a ne fonctionne pas
mon champ de départ est en format heure abrégée avec un masque de saisie heure abrégée.
J'ai donc taper

Code :

=AjDate("h";2;([heure ENL demandée]))

en retour dans le champ "d'arrivée" j'ai #Nom ?

Qu'est ce qu'il ne va pas ?

Dans cette attente

[Jeannot45]

Puisque tu es dans un formulaire, tu peux créer la petite procédure VBA à placer sur l'évènement après MAJ du Champ : [heure ENL demandée]

exemple :

Code VBA :

me.Champ2 = dateadd("h", 2, CDate([heure ENL demandée]))

[totor92290]

Bonjour Jeannot45,

Merci pour ta réponse.

Cela ne fonctionne pas.
Dans le champ "après MaJ" j'ai taper le code suivant

Code :

[heure LIV demandée] = dateadd("h", 2, CDate([heure ENL demandée]))

Le message d'erreur est

Envoyé par Access

Access ne peut pas trouver l'objet

[Jeannot45]

As-tu bien repris les nom de champ concerné ?
J'ai essayé sur une petite base bidon et cela marche très bien

[totor92290]

Bonjour Jeannot 45,

Je passe par le générateur d'expression (je vais chercher les champs "à la main") et j'obtiens ça :

Code :

= [heure LIV demandée] = dateadd("h", 2, CDate [heure ENL demandée]))

ensuite je retire le signe égal qui se trouve au début et puis rien... problème

[totor92290]

Désolé Jeannot45,

J'ai trouvé
J'ai utilisé la procédure évènementielle et tout à été impeccable