Access - Active X object - kalender

Dont think it can!

You could place the control on a form and then add a combo box to the form containing ALL week numbers. Then when you select the week number the calendar shows the correct date. Just an idea, but it will need some VBA code!

ok det vil jeg prøve

længe leve vba :-)

har seriøst brug for en bog med vba på developer-niveau

I have number of books on Access but none of them have so much on VBA. Access's own help does have lots of examples but its maybe hard to find exactly what you want.

Susanne->

Der er 2 bøger, som er gode:
-Beginning Access 2000 VBA fra forlaget WROX
og biblen over dem alle:
-Access 2000 Develpers Handbook fra Sybex
Den sidste (ADH) er den ultimative Access-bog med bunker af gode eksempler og 2 medfølgende CD'er fylde med kode-eksempler.
ADH har dog den ulempe at den er i 2 bind, som hver koster omkring 600,- og tilsammen indeholder omkring 2500 sider!

>thomasjepsen
står allerede på vent til Access 2000 Developers Handbook (har snart ventet på bogen i 3 uger) - så jeg håber den er ventetiden værd :-)

gør ikke så meget at den koster ca 600 pr bind, bare den er god

har næsten lige "fået" Access 2000 Bible fra Microsoft, da jeg fik den anbefalet vedr VBA - blev slemt skuffet - lol
passer ikke helt står mange gode ting i den, men ikke så meget omkring VBA

Have you implemeneted that combo yet Susanne?

Susanne-> ADH er al ventetiden værd :o)
Nu har du så lært en vigtig grundregel: Køb aldrig litteratur fra Microsoft ;o)

Terry-> Tak for din henvisning tidligere i dag :o) You are a real Pal !!!

Your welcome Thomas, did it bare fruit?

Well, he wrote me, and I called him back. We had a small talk and arranged a meeting next week. So lets see :o)

Thnx again!

Great to hear :o)

Ugenummer kan findes med funktionen DateDiff.
De danske regler følger ISO-standarden, som er
1.Første dag i ugen er mandag.
2.Uge 1 er den uge som indeholder den 1.januar, dog skal der være mindst 4 dage
  i ugen. Dvs.hvis 1.januar er en fredag starter uge 1 den følgende mandag.
Punkt 2 betyder man skal bruge konstanten vbUseSystem i funktionen.

> fynbohans
jep kender godt dateDiff, men kan du ikke lige uddybe lidte mere

> thomasjepsen - du er nok ikke den helt store tilhænger af MS books, va?? - lol - til deres forsvar skal dog siges, at de ikke alle er ringe.......

>terry
combobox - nope not yet. Sidder seriøst og hygger mig en anden generende detalje, som er ved at drive mig til vandvid.....

men har fået et stædighedsflip skal kunne lade sig gøre at vise ugenr

AktuelUge = DateDiff("ww", "1-1", Now, 0, 0) + 1

Må tilstå, at jeg kun kendte de danske regler fordi jeg skulle bruge det til
et tipsprogram for nogle år siden ............!

Hvorfor ikke bare skrive: Format(Date, "ww")

>thomasjepsen - nej du kan ikke nøjes med Format(Date, "WW") da Access så regner forkert - har jo engelsk/am kalender. Dvs. deres uge begynder om søndagen og ikke om mandagen - bliver noget værre skod hvis man glemmer det - lol

Men Access benytter jo bare indstillingerne i kontrolpanellet!?

>fynbohans

ja din kode kan bruges til at fortælle hvilken uge vi er i nu. Men var ikke helt det jeg havde i tankerne. Det der rigtigt kunne være smart var hvis bruger ex vælger januar 2002 så er i stand til at se hvilke ugenumre der indgår i den valgte md

ved bare ikke rigtig hvordan pokker jeg kan gøre det. OK kunne vælge terry´s metode og oprette cboBox men tallene fra 1-53, og så skal knappen trykkes ned på den første dato i valgte uge.

Ex jeg vælger uge 2, og knap med mandag den 07-01 trykkes ned

er der nogen der har en god ide til hvordan jeg kan løse dette??

You convert the year + week number to a date (monday is first day of week) and then you move the calendar to that date.

I've sent you a mail Susanne, have your received it?

> terry

ok vil prøve det

nope havn´t recieved any mail from you yet - I´ll just have at theck

> terry jes just recieved your mail :-)

Du kan godt indsætte en anden dato end Now i DateDiff, men funktionen tæller kun
antallet af uger, og ved ikke noget om hvad vi kalder dem. Var lidt for hurtig og
mente fejlagtigt at det var nok at bruge vbUseSystem.
Reglerne skal indbygges i funktionen. Efter mange spekulationer endte det med, at jeg i sin tid  startede med et år, hvor 1.januar var en mandag og regnede frem. Ikke VBA eller Visual Basic.
Hvis du vil bruge vba kan funktionen WeekNumber findes på www.freevbcode.com.

>fynbohans
tanx for linket - ser interessant ud den side.

Vil prøve at grave lidt videre på en eller anden løsning :-)

Hej Alle

HURRA tror s.... jeg har fundet metoden

Private Sub cboUgenr_Change()
  ' Find aktuelle ugenummer
  Dim CurWeek
  CurWeek = DatePart("ww", Now, vbMonday, vbFirstFourDays)
 
  ' Find Mandag i uge 1
  Dim DayWeek1
  DayWeek1 = DateAdd("ww", -CurWeek + 1, Now + 1 - Weekday(Now, vbMonday))
 
  ' Find valgte ugenummer og træk 1 fra
  Dim WeekDiff
  WeekDiff = CInt(cboUgenr.Text) - 1
 
  ' Udregn uger til antaldage
  Dim Diff
  Diff = WeekDiff * 7
 
  ' Læg antal dage til 1. dag i uge 1
  calDatoValg.Value = DateAdd("d", Diff, DayWeek1)
 
End Sub

Var der slet ikke nogle af alle disse svar/kommentarer, som fortjente nogle point? Umiddelbart synes jeg da at Fynbohans hjalp dig rimelig godt på vej!

Virker det omkring årsskriftet? Den 29.december i år er en kritisk dato fordi mandag i uge 1
2003 er den 30.december 2002.

well if it doesnt work for 2003 week 1 then I have a routine that does!

complies with DS/EN 28601.

It does work Susanne :o)

> nej egentlig ikke - sorry

Var selv inde og vende omkring det med en combobox, men det jeg engentlig efterlyste var indsættelse af en ekstra kolonne i Xobjektet så der ud for hver enkelt nye uge var angivet dette.

Sorry hvis jeg ikke har formuleret mig tydeligt nok :-)

>thomasjepsen
Men selvfølgelig hvis du syntes at fynbohans og I andre skal have nogle points, så for min skyld gerne. Kan da dele puljen i 4 lige dele??? - G*****

terry, fynbohans & thomasjepsen

Så har jeg delt points i 3 - 10 til hver af jer

:D Susanne

fynbohans har oprettet lidt point til dig her

http://www.eksperten.dk/spm/220813

:D Susanne