Da ich im Netz nicht wirklich etwas gefunden habe was meinen Ansprüchen genügt muss ich einen solchen Kalender wohl selbst erstellen.
Wie soll die Sichtbare Fläche nun aussehen.
Auf der Linken Seite eine Monatsansicht Oben der 1. bis zum 31. jeder Tag eine Zeile
Samstage und Sonstige Tage Blau Eingefärbt
Sonntage und Feiertage Rot Eingefärbt
Alle Anderen Normalen Tage Schwarz Eingefärbt
Beschriftung sollte wie folgt sein
Samstag, 25.02.2012 - Wochenende
Sonntag, 26.02.2012 - Wochenende
Montag, 27.02.2012 - Wochentag
Dienstag, 28.02.2012 - Wochentag <- Termin
Ebenso sollte eine Weiterschaltung von Monat und Jahr vorhanden sein
Tage mit Terminen sollten nicht Weiss sondern Orange Hinterlegt sein.
Ein Fenster daneben sollten Aktuelle Termine Angezeigt werden sowie eine Todo Liste.
Meine Gedanken über die Tabellen.
TBL_FeiertageFix
Datum (Tag-Monat)
FeiertagsName
TextFarbe
TBL_FeiertageBeweglich
Tage (Gerechnet vom Ostersonntag weg)
FeiertagsName
TextFarbe
TBL_TermineJaehrlich
Datum (Tag-Monat)
Bezeichnung
TBL_TermineEinmalig
Datum (Tag-Monat-Jahr)
Bezeichnung
Erledigt
TBL_Todo
DatumEintragung (Tag-Monat-Jahr)
Bezeichnung
Notiz
ErledigenBisDatum (Tag-Monat-Jahr)
ErledigtAm (Tag-Monat-Jahr)
Bei
Neuen Termin
Monatsumschaltung
Jahres Umschaltung
Neuer ToDo
Neuen Tag
Vorhandenen Termin/ToDo Status Aktualisierung
muss/sollte ein Abgleich gemacht werden mit den verschiedenen Tabellen über VBA-Code
in diesen Code ist enthalten Berechnung Ostersonntag (Gauss'sche Formel)
Tabelle 1 Durchlaufen Welches Datum Trifft zu danach Format einstellung tätigen
Tabelle 2 Durchlaufen Welches Datum Trifft zu danach Format einstellung tätigen
Tabelle 3 Durchlaufen Welches Datum Trifft zu danach Format einstellung tätigen
Tabelle 4 Durchlaufen Welches Datum Trifft zu danach Format einstellung tätigen
....
Hat irgendjemand so einen ähnlichen Kalender im Einsatz?
Wie "einfach" ist so etwas zu machen? Ohne viel VBA-Kenntnisse davon zu haben.
Wie kann ich überhaupt das Formular füllen mit den Monatstagen?
mfg Peter
Hallo Erzengel
ZitatMzKlMu
Access Guru
Offline
Beiträge: 2426
Re: SQL-Migration (Anfüge- und Löschabfragen)
« Antworten #8 am: Februar 25, 2012, 10:26:30 » Zitat Danke
--------------------------------------------------------------------------------
Hallo,
anbei mal ein Beispiel mit einer von Josef vorgeschlagenen Hilfstabelle als Werkskalender.
Im Beispiel ist alles enthalten, auch das Anlegen der Tabelle selbst. Einen solchen Kalender kann man Jahresweise anlegen, oder auch gleich für die nächsten 20 Jahre, Feiertage und andere arbeitsfreie Tage werden dann wenn bekannt angehakt. Es fehlt in der Kalendertabelle noch die Kalenderwoche, wenn Bedarf, muss die noch ergänzt werden.
Im Formular 0- gibt es eine kleine Erläuterung.
Die Ermittlung der Arbeitstage zwischen 2 Datumswerten reduziert sich auf einen Einzeiler innerhalb einer Funktion:
Code: In Zwischenablage kopierenPublic Function fncArbeitstage(ADat As Date, EDat As Date) As Integer fncArbeitstage = DCount("*", "AlleArbeitstage", "clng(TDatum) >= " & CLng(ADat) & " and clng(TDatum) <=" & CLng(EDat))End Function
Es gibt auch eine Funktion zur Ermittlung des nächsten Arbeitstages nach einem bestimmten Datum.
Schaue es Dir an.
--------------------------------------------------------------------------------
Arbeitstage.zip (37.34 KB - runtergeladen 5 Mal.)
« Letzte Änderung: Februar 25, 2012, 11:07:55 von MzKlMu » Moderator informieren Gespeichert
--------------------------------------------------------------------------------
Gruß
Unter diesen Beitrag wurde von @MzKiMu ein ähnliches Thema behandelt bzw beantwortet. auf deine Frage ob das ohne VBA Kentnise auskommst glaube mit einem klaren "nein" dir beantworten zu können.
Gruß Stefan
Habe ich mir Angesehen sieht nicht schlecht aus
Habe im Moment die Tabellen erstellt für die Termine (Feiertage, Termine etc.)
Die Formulare für die Termin Eingabe ebenso (endlos Form)
Ebenso existiert schon ein Formular für die Monatsanzeige
Das Formular ist nirgends gebunden und wird mittels VBA gefüllt
Insgesamt existieren 31 Textfelder die je nachdem wie sie benötigt Formatiert werden.
jetzt nur noch nachsehen wie ich mittels VBA eine Tabelle öffne und Auslesen kann.
mfg Peter
Hallo,
wie sehen denn die Tabellen aus?
Hast Du auch die Kalendertabelle wie in meinem Beispiel erstellt?
Warum tust Du Dir as an und lässt die Formulare ungebunden?
jetzt nur noch nachsehen wie ich mittels VBA eine Tabelle öffne und Auslesen kann.Das sollte überflüssig sein. Verwende gebundene Formulare.
Du verschenkst serienmäßige Funktionen von Access, die Du nur mit großem Aufwand nachstellen kannst.
ZitatInsgesamt existieren 31 Textfelder die je nachdem wie sie benötigt Formatiert werden.
Die dürften auch überflüssig bzw. fehl am Platze sein.
PS:
Man kann übrigens in einem Endlosformular nicht mehr als 3 unterschiedliche Farben darstellen. Auch nicht mit VBA.
Außerdem ist diese bedingte Farbformatierung eine ziemliche Bremse, die deutlich zu merken ist.
Hört sich vielleicht schlimmer an als es ist es gibt nur Zwei nicht gebunden Formulare
die eine ist die Monatsansicht wo Jeder Tag als Liste dargestellt wird Samstag Blau Sonntag in Rot
Die Feiertage und so muss ich erst noch einbinden
Ich hänge mal die DB an
ist dann vieleicht verständlicher.
mfg Peter
[Anhang gelöscht durch Administrator]
Hallo,
ich bin das jetzt nicht dahintergestiegen was das jetzt werden soll.
Mal etwas vorab:
Deine KW Berechnung ist falsch. der 1.1.2012 war die KW52/2011 und nicht KW1/2012.
Viele Deiner Datumsfunktionen sind überflüssig, so auch die Tagesnamen. Die hat Access standardmäßig definiert.
Außerdem sollte man nicht mit dem Text des Tagesnamens arbeiten, sondern mit der Zahl (1=Montag, 7=Sonntag).
Für den Namen des Tages hat Access eine Funktion
Weekdayname(1,,2) ergibt "Montag".
Warum verwendest Du nicht die vorgeschlagene Kalendertabelle und bindest das Formular (mit den ungebundenen Feldern) daran. Die Daten des Formulars (FRM_MonatAnsicht) lässt sich vollständig so wie es ist mit einer einfachen Abfrage erzeugen, ohne eine einzige Zeile VBA. Incl. der Anzeige Wochentag und Wochenende, mit der Farbe.
Anbei mal ein Formular mit dem Kalender. Gebundenes Formular, alles ohne eine einzige Zeile VBA.
[Anhang gelöscht durch Administrator]
Dieser passt.
die KW habe ich jetzt schon Korrigiert
Feiertage Fix sowie Beweglich werden jetzt auch schon Dargestellt.
Während ich jetzt die Vorarbeit leiste kann ich inzwischen bis zum Jahr 9999 gehen und habe immernoch alle Feiertage drinnen
Ich kann mich in diesen Kalender vor und Rückwärts bewegen ohne das ich immer nacharbeiten muss.
Während dein Kalender erst erstellt werden muss samt Eintragung der Feiertage muss ich mich nicht mehr darum kümmern
von 1530 bis 9999 habe ich jetzt alle Kalender drinnen. wird aber wahrscheinlich nur bis zum Jahr 2048 benötigt. (Dann gehe ich mit 70 hoffentlich in Pension)
Heist aber auch das ich mich auf andere Sachen wieder Konzentrieren kann