Kombinationsboks og teksboks afhængighed

"ugenummer i formatet yyyyww"

Du bør ændre db således, at du indtaster en dato og kun viser yyyyww som feltets format. Så kan du bruge en DateAdd.

Hvis din combo virkelig er tal, har du et problem da uge 200851 vil give 200856 so jo ikke eksisterer.

your code will need to convert the year/week to a date whereafer you can use dateadd to add 5 weeks (35 days)

Here is a link which will help you find the date of the monday in a given year/week

http://www.cpearson.com/excel/DateTimeVBA.htm

Then in the comboboxes after update even you can set the textbox to the value you find from the code in the link

Der er to kolonner i kombinationsboksen, én som viser netop yyyyww og en anden som viser dd-mm-yyyy i datoformat. Kun yyyyww-tallet vises.

Lad os sige, at jeg kan foretage dateadd, hvordan og hvor foretager jeg dette?

ITumpen.

Me.YourTextField = DateAdd("ww", 5, Me.YourCombo.Column(?))

Column numbers start from 0 !

status?

Hej Terry,

Jeg har skiftet tekstboksen ud med en kombinationsboks. Nu har jeg altså to kombinationsbokse. Den første hedder "DatoStart" og den anden hedder "DatoSlut".

Hver kombinationsboks har to kolonner. I den anden kolonne er dato'er i formatet dd-mm-yyyy og i den første kolonne er data, der viser hvilken uge dato'en tilhøre i følgende format, yyyyww

Hvordan får jeg automatisk tallet i "DatoSlut" til at være 5 uger mere end tallet i "DatoStart" efter "DatoStart" er opdateret af brugeren??

- Hvor taster jeg udtrykket??
- Hvad er udtrykket??

ITumpen

you need to place the code in the after update event for DatoStart combo

and the code should look something like this (not tested)

Me.DatoSlut = DateAdd("ww", 5, Me.DatoStart.Column(0))

Thats if the dd-mm-yyyy is in the first column which I assume is hidden.

Hej Terry,

Well, that is progress - changing the DatoStart box is now making the DatoSlut box change, but the change is not five weeks, but 7 * 5 = 35 weeks. Also, the dd-mm-yyyy is the second column (hidden). The first column (shown) is the yyyyww.

Is the solution close?

ITumpen?

Then maybe try

Me.DatoSlut = DateAdd("ww", 5, Me.DatoStart.Column(1))

Hej Terry,

I needed the following:

Me.DatoSlut = Int((Year((DateAdd("ww", 4, Me.DatoStart.Column(1))))) & Format((DatePart("ww", (DateAdd("ww", 4, Me.DatoStart.Column(1))), 2)), "00"))

You sent me in the right direction, so the points are yours.

ITumpen

thanks