Wochenzahl 0 vor 1

[boehnli01]

Hallo zusammen,

Ich möchte die Wochen in einer Tabelle auflisten. Das sollte da etwa so aussehen:
01
02
03
usw

Was muss ich machen damit automatisch die 0 vor der 1 kommt.

Danke und Gruss
Cédric

[Maxel]

Hallo,

Tabellen sollen Daten speichern, nicht darstellen.

Für letzteres gibt es Abfragen, Formulare und Berichte.

[boehnli01]

OK, aber ich weis immer noch nicht wie das anstellen sollte.

[Stapi]

Hallo boehnli01

Per VBA , prüfe beim anlegen des neuen Datensatz welcher Wert  dein letzter Datesatz enthählt und erhöhe in um Wert  +1.  Es ist daran zu denken das die max Wochenzahl des Jahr nicht überschritten wird.

Gruß Stefan

[DF6GL]

Hallo,

"Ich möchte die Wochen in einer Tabelle auflisten. "

es bleibt die grundsätzliche Frage nach dem "Warum" ...

Wochenzahlen für welches Jahr?
Für was werden die Wochenzahlen gebraucht?
Gibt es noch andere Felder in der Tabelle?

[ebs17]

Zur eigentlichen Frage:
Ein Format (Formateigenschaft) kann man bereits in einer Tabelle einstellen, auch wenn es dort keinen Sinn macht. In einem Formular oder Bericht, die eigentlich für Sichtausgaben zuständig sind, funktioniert die Formateigenschaft auch wunderbar.

Daneben gibt es noch die Format-Anweisung, die dann aber als Ergebnis einen String erzeugt:

Code [Auswählen] Erweitern

Format(Wochenzahl, "00")

MfGA
ebs

[boehnli01]

Hallo, Danke für die Antworten, aber leider habe ich es immer noch nicht geschafft.


Ich benutze untenstehenden Prozedur um einen Kalender zu erstellen. Die Kalender verwende ich dann in verschiedenen DB's.

Das Problem kommt beim sortieren nach Wochen, bzw sieht das dann etwa so aus:
Woche 1
Woche 11 (anstatt Woche 2)
Woche 12

Code (vb) [Auswählen] Erweitern

  With CurrentDb.OpenRecordset("tlb_calender_raw")
        For lngCount = 0 To Nz(Me!Anzahl_Tage, 0)
       
If WeekDay(CDate(Me.Start_Datum) + lngCount, vbMonday) < 6 Then
.AddNew
!Feld_Datum = CDate(Me.Start_Datum) + lngCount
!Feld_Wochentag = WeekDay(!Feld_Datum, vbMonday)
!Feld_Woche = DatePart("ww", !Feld_Datum, 2, 2)
!Feld_Monat = Month(!Feld_Datum)
!Feld_Jahr = Year(!Feld_Datum)
.Update
End If
       
        Next lngCount
    End With

[DF6GL]

Hallo,

sorg dafür, dass das Feld "Feld_Woche" in der Tabelle den Datentyp Zahl,Long bekommt.

[boehnli01]

Danke DF6GL, deine Antwort macht Sinn.

Jetzt habe ich noch ein Problem:
Ueber eine Make-Table Query macht ich dann den schlussentlichen Kalender und das Feld Cal_Week sieht das so aus:

Cal_week: [Feld_Jahr] & "-" & "W" & [Feld_Woche]

2011-W1
2011-W11

Ich müsste irgendeine Formel im Make-Table Query finden die mir vor der der 1 eine 0 einfügt ---> 2011-W01, aber natürlich nur von 1 - 9.

Danke und gruss
Cédric

[DF6GL]

Hallo,

hat ebs17 doch auch schon gesagt:


Cal_week: [Feld_Jahr] & "-" & "W" & Format([Feld_Woche];"00")

[boehnli01]

Super. Vielen dank.