Weeknummer plaatst automatisch dagen in

[GerbenDenker]

Hallo,
Is het mogelijk om een (week)nummer in 2 andere velden de begin en einddatum van die week automatisch te laten plaatsen ?

Ik bedoel dit.
Ik vul in een vak een nummer in en dat is dan mijn weeknummer. (bijvoorbeeld 33 - dat is deze week).
Dan komt in vak 1 de 1e dag van week 33 te staan (ma 11-08-2014)
en in vak 2 komt de 7e dag van week 33 te staan (zo 17-08-2014).



Ik voeg een voorbeeld hierbij.
Is hier een code voor en zo ja hoe ?
Als het niet teveel werk is, zou je dan dan ik het voorbeeldbestandje kunnen verwerken?

Veel dank.

Bekijk bijlage Weeknr.zip

 

[edmoor]

Je bijlage heb ik niet bekeken, te weinig Acces kennis, maar wel een stukje in VBA voor je gemaakt die de berekening doet. Dan kun je dat vast aanpassen voor je eigen situatie.

Sub tst()
    Dim Dagnummer As Long
    Dim Weeknummer As Integer
    Dim LdWn As Date
    Dim Edwn As Date
    
    '1 Januari huidig jaar
    Dagnummer = CLng(CDate("01-01-" & Format(Now(), "YYYY"))) - 3
    
    'Datums bepalen voor dit weeknummer
    Weeknummer = 33
    
    'Datum laatste dag voor weeknummer
    LdWn = Dagnummer + (Weeknummer * 7) 

    'Datum eerste dag voor weeknummer
    Edwn = LdWn - 6
    
    Debug.Print Format(Edwn, "(ddd d-mm-yyyy)")
    Debug.Print Format(LdWn, "(ddd d-mm-yyyy)")
    
End Sub

 

[GerbenDenker]

Bedankt; echter het gaat mij niet lukken dit zo in te voegen. Wie kan de code in het formulier verwerken ?
Bvd

 

[edmoor]

Er zit hier ook een echte Acces specialist, wellicht dat hij het ook leest en het voor je kan doen.

 

[OctaFish]

Wie bedoel je daar mee? De techniek is niet zoveel anders als in Excel om maar eens wat te noemen. Alleen gebruik je andere inputwaarden. In de bijlage heb ik je (andere benadering trouwens) voorbeeld uitgewerkt.

 

[edmoor]

Kijk, daar is 'ie

 

[OctaFish]

Jij houdt écht niet van overbodige en niet ter zake doende berichtjes

 

[edmoor]

Je vroeg wie ik bedoelde, daar gaf ik antwoord op Er is hier naar mijn mijn bescheiden mening maar 1 acces specialist, en dat ben jij

 

[OctaFish]

Dank voor het compliment, maar er zijn meer kenners. En die hebben ook hun specifieke kennis waar ik ook weer van leer. Maar de bedoeling is natuurlijk dat Gerben hier mee vooruit kan .

 

[edmoor]

Da's de hele bedoeling van het forum, leren door samenwerking Met mijn mening over jouw Acces kennis wil ik dan ook niemand anders tekort doen.
Nu even afwachten inderdaad wat Gerben er van vind.

 

[OctaFish]

@TS, en 'back to topic':
Heb je wat aan het voorbeeld?

 

[GerbenDenker]

Bedankt; ik had het zo nooit zelf kunnen uitvinden.
Het is prima gelukt.....!
Ook deze keer veel, heel veel dank ! :thumb: