Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Einfügen einer Kalenderwoche!
zurück: Änderungsdatum einer Tabelle auslesen weiter: Wie kann ich in einer Tabelle 2 Primärschlüssel definieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Easy091981
Gast


Verfasst am:
15. Feb 2008, 15:37
Rufname:

Einfügen einer Kalenderwoche! - Einfügen einer Kalenderwoche!

Nach oben
       Version: Office XP (2002)

Ich habe ein Problem!! Ich bin ein Absoluter Neuling in Sachen Access und soll jetzt in eine bestehendes Formular die Kalenderwoche einfügen! Händisch ist das kein Problem aber jetzt soll das Automatisch geschehen sobald ich in das Formular das Datum eintrage!! Und ich habe keine Ahnung wie ich das hinkriegen soll!! Ich hoffe das mir jemand helfen kann!!

MfG Ingo
Marmeladenglas
komme zurecht


Verfasst am:
15. Feb 2008, 16:42
Rufname:

AW: Einfügen einer Kalenderwoche! - AW: Einfügen einer Kalenderwoche!

Nach oben
       Version: Office XP (2002)

Mit ein bißchen Suchen hier im Forum, hättest das leicht finden können. Auf diese Art hab ich den folgenden Code gefunden:
Jahrestag ist in deinem Fall, die Angabe deines Datum Feldes.
Mußt halt noch zuweisen in welches Feld der Funktionsrückgabewert hin soll.

Me!Wochenfeld = fnc_kalenderwoche(Me![DatumFeld])
Das ganze in das Afterupdate Ereignis deines DatumFeldes.
Die Funktion selbst in ein Modul.
Code:
Public Function fnc_KalenderWoche(Jahrestag As Date) As Integer
    fnc_KalenderWoche = Format(Jahrestag, "ww", vbMonday, vbFirstFourDays)
    If fnc_KalenderWoche > 52 Then
        If Format(Jahrestag + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
            fnc_KalenderWoche = 1
        End If
    End If
End Function


Im Prinzip reicht aber auch eine Zuweisung in einem ungebundenen Feld. Hab nur grad gelesen, dass die Access-Wochenfunktion angeblich Fehler aufweist.
Code:
 = Format([DeinDatumFeld];"ww")
KlausMz
Moderator Access


Verfasst am:
15. Feb 2008, 18:39
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Einfügen einer Kalenderwoche! - AW: Einfügen einer Kalenderwoche!

Nach oben
       Version: Office XP (2002)

Hallo,
das Access Format "ww" rechnet in bestimmten Jahren falsch. So auch zum Jahreswechsel 2007/2008. Der 31.12.2007 ist KW 1/2008. Zu korrekten Berechnung der europäischen/deutschen Kalenderwochen ist eine eigene Funktion notwendig.
Code:
Function DINKW(Dat As Date) As Variant
    Dim a As Integer, J As Integer
   
    J = Year(Dat)
    a = Int((Dat - DateSerial(Year(Dat), 1, 1) + _
             ((Weekday(DateSerial(Year(Dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
    If a = 0 Then
        a = Left(DINKW(DateSerial(Year(Dat) - 1, 12, 31)), 2)
        J = J - 1
      ElseIf a = 53 And _
             (Weekday(DateSerial(Year(Dat), 12, 31)) - 1) Mod 7 <= 3 Then
        a = 1
        J = J + 1
    End If
    DINKW = Format(a, "00") & "/" & J
End Function
Diese Funktion ermittelt das Jahr und die DinKW zu einem Datum.

Aufruf in z.B. einer Abfrage:
Code:
Kalenderwoche: DINKW(DatumsFeld)
Test im Direktbereich:
Zitat:
?dinkw("31.12.2007")
01/2008

(siehe auch Datum in Auswahlfeld aus Kalenderwoche berechnen)

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Noch was mit dem Datum/Kalenderwoche 1 Markos 401 23. Nov 2007, 13:58
Willi Wipp Noch was mit dem Datum/Kalenderwoche
Keine neuen Beiträge Access Tabellen & Abfragen: Modul zum Einfügen von Spaltenwerten 10 Gast2007 594 22. Nov 2007, 15:42
Willi Wipp Modul zum Einfügen von Spaltenwerten
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz in anderes Formular automatisch einfügen lassen 8 Vievien 797 20. Nov 2007, 00:25
derArb Datensatz in anderes Formular automatisch einfügen lassen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile einfügen 2 Plolex 281 14. Nov 2007, 17:18
Plolex Zeile einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: [Access 2K] Abfrage mit Kalenderwoche - Probleme 4 Micha_S 1617 12. Jan 2007, 11:52
Gast [Access 2K] Abfrage mit Kalenderwoche - Probleme
Keine neuen Beiträge Access Tabellen & Abfragen: Autowert aktuelles Jahr in Tabelle einfügen 2 AndreM 1712 19. Dez 2006, 20:27
AndreM Autowert aktuelles Jahr in Tabelle einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Werte aus 2 Tabelle Vergleichen in einer Abfrage einfügen 0 Petermann 1005 10. Dez 2006, 04:30
Petermann Werte aus 2 Tabelle Vergleichen in einer Abfrage einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Tabelle vergleichen und felder einfügen 1 suadklassen 2394 08. Dez 2006, 14:42
GJ 2 Tabelle vergleichen und felder einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Unterdatenblatt einfügen - warum - hilfe 2 sbmiles21 2421 26. Sep 2006, 14:05
sbmiles21 Unterdatenblatt einfügen - warum - hilfe
Keine neuen Beiträge Access Tabellen & Abfragen: Excel-Tabelle einfügen 2 OliverNRW 611 09. Aug 2006, 13:21
OliverNRW Excel-Tabelle einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Kalenderwoche 1 exzes 604 21. Apr 2006, 13:57
c0bRa Kalenderwoche
Keine neuen Beiträge Access Tabellen & Abfragen: Problem beim einfügen in bestehende Tabelle 1 Gast 890 17. März 2006, 10:07
stpimi Problem beim einfügen in bestehende Tabelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum