Forkerte ugenr i access

Brug denne i stedet:

format(TabelEmner.InUseDate,"ww",vbMonday,vbFirstFourDays)

Hvis din maskine er sat korrekt op i kontrolpanelet, burde du også kunne bruge denne:
format(TabelEmner.InUseDate,"ww",vbUseSystemDayOfWeek,vbUseSystem)

Sorry, VB-konstanter virker jo ikke i SQL.

Den skal så se således ud:

format(TabelEmner.InUseDate,"ww",2,2)

Tak for hjælpen:-)

>>>Thomas og andre

Svaret er nok ikke helt korrekt, idet Access tilsyneladende har lidt problemer med ugenumrene. Problemet ligger omkring årsskifte/mandag/uge 53. Der var et hul i 2003 og der kommer et igen i 2007. Kør evt. nedenstående:

Private Sub Ugenr_Fejl()
  Dim D As Date
  Dim i As Integer
  D = #12/24/2003#    ' og 2007 og ...?
  Debug.Print "--------------", "--"
  For i = 1 To 15
    Debug.Print Format(D, "ddd", vbMonday, vbFirstFourDays); "  "; D, Format(D, "ww", vbMonday, vbFirstFourDays)
    D = D + 1
  Next i
End Sub

Microsoft anbefaler, at man selv udarbejder en rutine. Se:
http://support.microsoft.com/default.aspx?scid=KB;EN-US;q200299&

Der har været flere bud på eksperten i stil med:

Function Korrekt_UgeNr(Dato As Date) As Integer
  Korrekt_UgeNr = DatePart("ww", Dato, vbMonday, vbFirstFourDays)
  ' Mandag i uge 53? Check lige fredag!
  If (Weekday(Dato) = 2 And Korrekt_UgeNr = 53) And _
    (DatePart("ww", Dato + 4, vbMonday, vbFirstFourDays) = 1) Then Korrekt_UgeNr = 1
End Function

Dette blot til generel info  ;o)