Waarden van een week op basis van datum.

[Smoofert]

Goededag,

Ik ben op zoek naar hulp bij het volgende.

ik heb een tabel test met daarin het hele jaar door elke werkdag een waarde.
nu wil ik op basis van een datum in een formulier, de rest van de week te zien krijgen.
nu laat hij alleen de maandag zien, maar wil ook de gegevens van de rest van de week zien zonder de datum aan te passen in het formulier.

Ik ben hier al een tijdje mee bezig maar krijg het niet voor elkaar.

enig hulp zou erg welkom zijn. ik heb een voorbeeldbestandje bijgevoegd wat het gevisualiseerd een stuk makkelijker maakt.

Alvast bedankt.

 

[Ronaldxx]

Je zou wat met vba kunnen knutselen.
Maar kan je niet gewoon die weken bazeren op een weeknummer ?

mvg, Ronald

 

[Smoofert]

dat zou ook geen probleem zijn, alleen weet ik ook niet hoe dat moet.

 

[Ronaldxx]

Je kan per datum in 1 keer laten zeggen welke week dit is. Dit is een expressie durf even niet te zeggen welke het is. Het kan ook handmatig.

Dan maak je een querie met alle gegevens die je wilt zien en de datum en weeknummer
bij weeknummer bij criteria rechtermuisknop opbouwen... kan je de tekstbox zoeken waar je het weeknummer inzet. De querie werkt dit dus steeds bij...

Ik heb even geen tijd anders maak ik wel voorzet. Misschien dat een mede forum gebruiker een snelle vba oplossing heeft.

gr

 

[Smoofert]

Wellicht bedoel je de datepart functie.

Vervelende is dat bij 5 dagen je dan ook 5x het weeknummer krijgt te zien en dat is dus niet wat ik wil.

Ik weet niet of je naar mijn voorbeeldbestand hebt gekeken maar daar heb ik precies in gezet hoe ik het zou willen.

 

[Ronaldxx]

kijk bijgaande voorbeeldje.
Kheb ff tijd voor je gemaakt hehe.

gr

 

[OctaFish]

Hier heb je wat functies waarmee je beginpunt en eindpunt van een week kunt bepalen.

Function Begin_VorigeWeek()

    Begin_VorigeWeek = date - WeekDay(date, vbMonday) - 6

End Function

Function Eind_VorigeWeek()

    Eind_VorigeWeek = date - WeekDay(date, vbMonday) - 2

End Function

Function Begin_Week()

    Begin_Week = date - WeekDay(date, vbMonday) + 1

End Function

Function Eind_Week()

    Eind_Week = date - WeekDay(date, vbMonday) + 5

End Function

 

[Smoofert]

Ronaldxx, jou voorbeeldje werkt niet. :evil:

Octafish, deze functies heb ik al eens eerder van je gehad, en gebruik ik altijd nog..

Maar ik denk dat we mijn uiteindelijke doel nu voorbij schieten. (zie mijn eerste vraag)

 

[Ronaldxx]

Dit is volgens mij wat je bedoeld. En bij mij werkt ut wel

Maar suc6.

 

[OctaFish]

En dan ziet het er zo uit met mijn functies:

 

[Ronaldxx]

Haha, das is nog eens handig !
Doe je goed octafish, wat een vaardigheid ! :thumb:

 

[OctaFish]

't Wordt nog leuker, want nu worden de juiste gegevens ook nog opgehaald...

 

[Smoofert]

haha idd handig maaarrrrrrrrrrrrrrrrrrrrrrrr

Op de plaats waar nu de datum staat moet de waarde staan. (zie tabellen in het bestand)

In ieder geval wel bedankt voor het meedenken

 

[OctaFish]

Lopen we mekaar net mis.... zie voorbeeld!

 

[Smoofert]

jep! dit is em helemaal!

Reuze bedankt!!!!

Jij uiteraard ook Ronaldxx

 

[Ronaldxx]

Niemand ken tegen die vis op haha.
Wat een beheersing, wat een controle hehe. !

Fijne weekend !

Gr, :thumb::thumb: