Waarde opslaan in Tabel

[theet]

In een formulier voeg ik automatisch de datum in door "Date()" in veld [Datum]
als standaardwaarde te kiezen in de tabel.

Nadat de datum verschijnt komt ook het weeknummer automatisch in beeld, met
in een query formule: Week: Format$([Datum];"ww")

Hoe kan ik ervoor zorgen dat de waarde [Week] ook in de tabel weggeschreven wordt? Ik heb overal al gezocht, maar kan het niet vinden.

Wie kan en wil mij hiermee helpen?

 

[Harry46]

Hoe kan ik ervoor zorgen dat de waarde "Week" ook in de tabel opgeslagen/weggeschreven wordt?

Een afleidbaar gegeven sla je NIET op.

 

[theet]

Een afleidbaar gegeven sla je NIET op.

Maar het weeknummer wordt wel weergegeven in het veld [Week] in hetzelfde formulier,
de waarde in dit veld [Week] moet ik toch weg kunnen schrijven naar de tabel die veld [Week] bevat?

 

[Harry46]

Als je gegevens wilt weergeven in een formulier of rapport, gebruik je als recordbron een query. In die query zet je dan een extra veld b.v. Weeknr:Format$("Datum";"ww")

 

[theet]

Als je gegevens wilt weergeven in een formulier of rapport, gebruik je als recordbron een query. In die query zet je dan een extra veld b.v. Weeknr:Format$("Datum";"ww")

Dat heb ik dus gedaan, werkt perfect, dan wil ik als het ware deze waarde terugschrijven naar de tabel die het veld [Week] bevat.
(soort van AfterUpdate commando ofzo)

 

[Harry46]

Wat is volgens jou het voordeel om die waarde op te slaan in een tabel?

 

[theet]

Wat is volgens jou het voordeel om die waarde op te slaan in een tabel?

Ik wil de waarde opslaan in de tabel, omdat ik deze waarde weer gebruik om in een rapportage de uren op week (Week staat in koptekst week) uit te sorteren
(Gewerkte dagen staan in Details) en de totalen staan in de voettekst van voettekst week.

 

[Harry46]

Nogmaals gebruik niet de tabel maar een query (met het weeknummer) als bron voor je rapport!

Maar als je het persé wilt opslaan dan zet je in de "na bijwerken" gebeurtenis van het veld [Datum]

Private Sub Datum_AfterUpdate()
   Me!Week=Format$(Datum,"ww")
End Sub

Namen voor de velden Datum en Week aanpassen aan jouw situatie
Opmerking: de namen Datum en Week kunnen in Access gereserveerde woorden zijn, gebruik dan liever b.v. tDatum o.i.d

 

[theet]

Nogmaals gebruik niet de tabel maar een query (met het weeknummer) als bron voor je rapport!

Ok, dat zat ik me ook net te bedenken, maar hoe plaats ik dan de formule?
Ik had dit al even geprobeerd, maar hoe ga ik te werk, het lukt mij nog niet?

De formule Week: Format$([Datum];"ww") heb ik in de query gezet en naar verwezen
in het rapport, alleen dit werkt niet...

Als ik de code:
Private Sub Datum_AfterUpdate()
Me!Week=Format$(Datum,"ww")
End Sub
In veld Datum dan werkt hij de tabel ook niet bij.

 

[Harry46]

Wellicht helpt een klein voorbeeldje

 

[theet]

Wellicht helpt een klein voorbeeldje

Harry bedankt! Je hebt me even op andere gedachte gebracht... ik maar denken
dat ik de waarden altijd vanuit een tabel moet halen terwijl ik wel beter weet.

Tof!

 

[theet]

Totaal overwerktijd

Nog een vraag:

Ik heb voor de totalen van 1 week de formule gebruikt:

=TimeDiff(#0:00:00#;Som(Nz([Dagtotaal])))

en voor het overwerk de formule: (20 uur per week 100% uren)

=TimeDiff(#0:00:00#;Som(Nz([Dagtotaal]))-20/24)

Dit werkt perfect, maar nu wil ik onderaan in de rapportvoettekst het totaal hiervan
berekenen. Voor het totaal Dagtotaal werkt dit prima:
("Dagtotaal" wordt berekend na iedere werkdag en staat in de details)

=TimeDiff(#0:00:00#;Som(Nz([Dagtotaal])))

maar voor het totaal aan overuren niet...
("Overweek" is het tekstvak waarin het totaal aan overuren wordt berekend per week)

=TimeDiff(#0:00:00#;Som(Nz([Overweek])))