Access-o-Mania

Access-Forum (Deutsch/German) => Formular => Thema gestartet von: boehnli01 am Juli 27, 2013, 21:53:15

Titel: Default Woche
Beitrag von: boehnli01 am Juli 27, 2013, 21:53:15
Hallo Zusammen,

Ich habe ein Tabellen Formular "frm_Shift_Pattern_Details"  die basiert auf Tabella "tab_Shift_Pattern" das sieht wie folgt aus:

WEEK1    DATE1                SCHICHT1 ETC
W-29      18.07.2013          20 PERS
W-29      19.07.2013          10 PERS
W-30      22.07.2013          9 PERS
W-30      23.07.2013          15 PERS

Nun möchte das beim Oeffnen diese Formulares automatisch NUR die aktuelle Woche erscheint.

Weis jemand wie das funktioniert ?

Danke Cédric


Titel: Re: Default Woche
Beitrag von: daolix am Juli 27, 2013, 22:35:38
Hallo

z.b. mit nem Filter, welcher beim Laden gesetzt wird


private sub form_load()
me.filteron = false
me.filter = "right(WEEK1,2) = '" & datePart("ww", now()) & "'"
me.filteron=true
end sub

Bedenke aber die Berechnung der KW mit Datepart ist nicht ISO-konform.
Titel: Re: Default Woche
Beitrag von: boehnli01 am Juli 27, 2013, 22:47:20
Super. Vielen Dank.
Titel: Re: Default Woche
Beitrag von: MzKlMu am Juli 27, 2013, 23:30:30
Hallo,
Zitatdie Berechnung der KW mit Datepart ist nicht ISO-konform.
Dazu hat DatePart noch 2 Parameter.

DatePart("ww", Now(), vbMonday, vbFirstFourDays)

bzw. für SQL:
DatePart("ww", Now(), 2, 2)
Titel: Re: Default Woche
Beitrag von: ebs17 am Juli 27, 2013, 23:59:32
Ein Tabelleneintrag wie "W-30" ist schon eine erhebliche Ungeschicklichkeit, was sich schon daran zeigt, dass ein Links-Rechts-Teil-Trallala notwendig ist, um eine gewünschte Woche zu ermitteln.
In einer richtigen Datenbank (wichtig für Betrieb, viele Daten, Notwendigkeit auf Performance) weitet sich die Ungeschicklichkeit auf groben Fehler aus.

MfgA
ebs
Titel: Re: Default Woche
Beitrag von: daolix am Juli 28, 2013, 00:37:12
Hallo
Zitat von: MzKlMu am Juli 27, 2013, 23:30:30
Zitatdie Berechnung der KW mit Datepart ist nicht ISO-konform.
Dazu hat DatePart noch 2 Parameter.
DatePart("ww", Now(), vbMonday, vbFirstFourDays)
Für fast alle Datumse stimmt diese Formel, aber ich hatte eher die etwas genauere Formel im Sinn.