Office: (Office 2010) Tabelle mit forlaufenden Datum füllen

Hallo Spezialisten,

ich habe in meiner DB eine Tabelle mit dem Feld CheckInDatum.
In einem Formular habe ich 2 ungebundene Felder.

1. Urlaubsbeginn
2. Urlaubsende

Ich möchte nun per Button-Klick, das in der Tabelle tbl_Zeiten Datensätze eingefügt werden, von Urlaubsbeginn bis Urlaubsende.

Ich habe mir mal eine Funktion angesehen, mit der es möglich ist, dieses automatisch bis zum Jahresende zu tun.

Kann ich diese umbauen...oder habt ihr eine elegantere Lösung ?

Funktion :
Code:

End Sub

Danke euch schon einmal

:)

 

Im Beispiel läuft die Schleife vom 1. bis zum 31. Januar

Änder dies, indem Du die Werte für Urlaubsbeginn und Urlaubsende an die Prozedur übergibst.
Und lass die Schleife einfach von Beginn bis Ende laufen.

 

Das hatte ich probiert....so ungefähr :
Code:

Aber das funktioniert nicht. Wie muss ich das umbauen ?

 

Ein Urlaubsbeginn ist ein Datum. Zu einem Datum kann man mit DateAdd ein nächstes Datum ermitteln. Weiteres siehe Hilfe.

Ich persönlich finde es eleganter und performanter, über eine Hilfstabelle alle Werte auf einen Schlag zu ermitteln:
Grundlagen - SQL ist leicht (1) - Hilfstabellen

 

Hallo,

was für sich allein auch fragwürdig ist, denn Sa, So und Feiertage die in den Zeitraum fallen sind ja keine Urlaubstage.

 

Hallo mbdi,

Aber das funktioniert nicht. Wie muss ich das umbauen ?


Versuch's mal so:
Code:

Gruß
Josef

 

Danke für deine Antwort

So bekomme ich den Hinweis...unzulässige Verwendung des Schlüsselworts Me

Lasse ich Me. weg, trägt er mir immer dem 30.12.1899 einmalig in die Tabelle ein.

 

Da gebe ich dir Recht, aber ich beantrage Grundsätzlich nur von Mo bis Fr *wink.gif*
Daher ist es nicht relevant.

 

Hallo mbdi,

ersetze Me durch Screen.ActiveForm
oder durch deinen aktuellen Formularnamen, vermutlich Forms!frm_Zeiterfassung
oder gib die aktuelle Formularinstanz über deine Prozedur als Argument mit
oder verlagere die Prozedur ins Formularmodul deines Formulars.

Mit der With-Anweisung ließe sich der Code dann ggf. noch optisch vereinfachen.

Gruß
Josef

 

Supi, ja, so funktioniert das *Smilie Vielen Dank dafür *Smilie

 

Hallo mbdi,

wenn du die Prozedur als Private Sub in dein Formularmodul verlegst, kannst du Me statt dem Formularnamen (oder Screen.ActiveForm) verwenden.

Gruß
Josef