week nummer uit textbox

[jd1uth]

Hallo ik wil graag een week nr uit een textbox waar een calander in zit halen
tot nu toe pakt hij alleen een week nr uit de computer datum
Ik heb een klein voorbeeld bestand gemaakt wat ik graag wil
Is er iemand die dit kan oplossen en uitleggen wat hij gedaan heeft om het werkend te krijgen.


Jan

 

[OctaFish]

Gaat je ook niet lukken met een Standaardwaarde, want je weeknummer is afhankelijk van het tekstvak. Dit werkt:

Private Sub Text16_AfterUpdate()
    Me.txtWeeknummer = DatePart("ww", Me.Text16, firstdayofweek:=vbSunday, firstweekofyear:=vbFirstFourDays)
End Sub

 

[jd1uth]

Bedankt Michel :thumb:het is gelukt kleine aanpassing gedaan en het werkt

Zo is het nu

Private Sub Text16_AfterUpdate()
Me.Text25 = DatePart("ww", Me.Text16, firstdayofweek:=vbSunday, firstweekofyear:=vbFirstFourDays)
End Sub

Jan

 

[OctaFish]

Ik hou van fatsoenlijke objectnamen, dus ik had die aangepast. Ik raad je hetzelfde aan; leg maar eens aan een willekeurige voorbijganger uit wat het verschil is tussen text25 en text16. Als de tekstvakken txtWeeknummer en txtbesteldatum heten, hoef ik niks meer uit te leggen...

 

[jd1uth]

+1 je hebt helemaal gelijk dat is in mijn database ook het geval dit diende als voorbeeld wat ik wilde
het ging dus om de werking in dit geval en dat is perfect gelukt

Jan