Supportnet / Forum / Datenbanken
Termineinträge in Access von Mehreren Personen anzeigen
Frage
Moin Moin,
wer kann mir helfen?
ich möchte auf einer seite die termine einer woche von mehrern personen anzeigen. begonnen werden soll mit dem montag bis freitag. das ganze dann auch noch auf einer seite.
Antwort 1 von Teddy7
Das ist machbar mit einer Kreuztabelle oder mit 5 Unterformularen oder mit füllen ungebundener Felder mit VBA-Befehlen.
Wo ist denn das Problem ?
Gruß
Teddy
Wo ist denn das Problem ?
Gruß
Teddy
Antwort 2 von RalfRust
Das problem liegt daran das ich mit dem montag jeder woche beginnen möchte. mit der auswahl datum() datum()+1 datum()+2 usw funktioniert. nur beginnend mit dem montag habe ich das problem.
Antwort 3 von Teddy7
Public Function fctKWMon(ArgKW As Byte, Optional ArgJahr) As Date
´gibt den Montag der übergebenen Kalenderwoche zurück
´verwendet die in Europa übliche Einstellung: KW 1 = die erste mit 4 Tagen
´von Karl Donaubauer
Dim M As Date
If IsMissing(ArgJahr) Then ArgJahr = Year(Date)
M = DateSerial(ArgJahr, 1, 1) + (ArgKW - 1) * 7
M = M + 1 - Weekday(M, vbMonday)
If Format(M, "ww", vbMonday, vbFirstFourDays) <> ArgKW Then M = M + 7
If (ArgKW = 1 Or ArgKW = 53) And Day(M) > 4 And Day(M) < 8 Then M = M - 7
fctKWMon = M
End Function
fctKWMon(1,2006) ergibt 02.01.2006
///////////////////////////
nicht von mir. Versuch´s mal.
Gruß
Teddy
´gibt den Montag der übergebenen Kalenderwoche zurück
´verwendet die in Europa übliche Einstellung: KW 1 = die erste mit 4 Tagen
´von Karl Donaubauer
Dim M As Date
If IsMissing(ArgJahr) Then ArgJahr = Year(Date)
M = DateSerial(ArgJahr, 1, 1) + (ArgKW - 1) * 7
M = M + 1 - Weekday(M, vbMonday)
If Format(M, "ww", vbMonday, vbFirstFourDays) <> ArgKW Then M = M + 7
If (ArgKW = 1 Or ArgKW = 53) And Day(M) > 4 And Day(M) < 8 Then M = M - 7
fctKWMon = M
End Function
fctKWMon(1,2006) ergibt 02.01.2006
///////////////////////////
nicht von mir. Versuch´s mal.
Gruß
Teddy
Antwort 4 von RalfRust
vielen dank aber das sind für mich irgend wie spanische dörfer aber irgend wie werde ich das mal probieren....????????
gruß Ralf
gruß Ralf

