Discussion :

[othmane.badri]

Bonjour;

Je souhaite créer un formulaire qui alimente ma T_Principale

Mon formulaire est donc constituer de deux boutons: "Debut" et "Fin"

Je souhaite que lorsque je clic sur "Debut", la date et l'heure de mon clic s'enregistre dans ma T_Principale et de même pour le bouton "Fin".

De plus je souhaite que la durée entre les 2 clics (debut et fin) soit enregistrer dans ma T_Principale.

J’espère avoir été clair, a disposition si besoin

Merci d'avance

[madefemere]

Bonjour,

De plus je souhaite que la durée entre les 2 clics (debut et fin) soit enregistrer dans ma T_Principale.

Cela n'est pas une bonne idée. Comme c'est une valeur calculée, elle ne devrait pas être enregistrée dans la table, sauf cas vraiment EXCEPTIONNEL.

Je souhaite créer un formulaire qui alimente ma T_Principale
Mon formulaire est donc constituer de deux boutons: "Debut" et "Fin"

Que de ces 2 boutons ?
Tu "enregistres" dans ta table ? tu ajoutes ou modifies ce qui existe déjà ?Comment tu le sauras ?

[othmane.badri]

Bonjour;

Effectivement, je souhaite avoir que 2 boutons et un sous-formulaire bien sur pour m'afficher les entrées.
Oui, j'enregistre bien la durée calculée dans ma table principale.

Merci

[hyperion13]

Un petit rappel s'impose : les contributeurs sur DEV sont tous des bénévoles, certains sont des retraités, ils en ont de la chance , d'autres ont des activités professionnelles.

madefemere, que je salue au passage, pose une question à la fin de son post#2. La réponse dans votre post#3 laisse perplexe.
Vos entrées correspondent à quoi ? La mise en bouche d'une carte des menus ?
Bref ...

Ce code génère un nouvel enregistrement dans le subform et value le champ datein sur clic btn entree (voir image)

Code :

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

1
2
3
4
5
6
7
8
Private Sub entree_Click()
With Me.form1011.Form.RecordsetClone
    .AddNew
    !datein = Now()
    !idetufk = Me.idetu
    .Update
End With
End Sub

Ce code permet de mettre à jour le champ dateout dans le subform. Il faut sélectionner la ligne d'enregistrement dans le subform avant de clic sortie.

Code :

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

1
2
3
4
Private Sub sortie_Click()
CurrentDb.Execute ("UPDATE tbl11 SET dateout = # " & Now() & " # WHERE ident = " & Me.form1011.Form.ident)
Me!form1011.Form.Requery
End Sub

tbl11 alimente form1011

[othmane.badri]

Bonjour "hyperion13"

Merci pour le petit rappel

Merci une deuxième fois de m'avoir aidé a solutionné mon problème, ça marche nickel grâce à vous. Cependant j'ai une autre requête :
Maintenant que j'ai la "Datein" et la "Dateout", je souhaite que la durée entre les deux date soit calculé directement après le clic sur le bouton "sortie".

Comment je peux faire cela s'il vous plait ?

Merci d'avance.

[hyperion13]

Vous pouvez utiliser la fct DateDiff(périodicité, datedep, datefin)

[othmane.badri]

Bonjour;

c'est possible d'avoir un exemple s’il vous plait, je ne connais pas cette fonctions ni comment l'utiliser d'ailleur

Merci d'avance

[hyperion13]

Ici

[othmane.badri]

Bonjour

J'ai essayer avec le code vba ci dessous mais ça ne fonctionne pas

Code :

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

Forms![Formulaire1]![Formulaire2]![Duree] = DateDiff("n", [Debut], [Fin])

un message de type "propriété ou méthode non gérée par cet objet"
c'est possible de me corrige d'il vous plît

Merci d'avance