Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kalenderwoche Listen Ansicht?!
Gehe zu Seite 1, 2  Weiter
zurück: ID aus Kombinationsfeld weiter: Unterformular mit einzelnen Datensätzen erstellen 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
lars.muc
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Mai 2007, 10:04
Rufname:

Kalenderwoche Listen Ansicht?! - Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Hallo Leute,

ich habe zwar schon eine Aktuelle Anzeige im Datumsfeld wo die KW angezeigt wird. Nun wollte ich gerne das es mir noch zusätzlich in einem Extrafeld die vergangen KW mit Wochendatum von - bis anzeigt (z.B. 28.06 - 02.07.07 = KW 22)

Fals es Fragen gibt beantworte ich sie euch.

Mfg Lars

Danke im voraus
Mirage
Es wird !!!


Verfasst am:
31. Mai 2007, 11:03
Rufname:
Wohnort: Mainz


AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Also ich hab das bei mir so gelöst...

eine Tabelle "Wochen" wo die Wochen von 1 bis 52 drin sind im Feld [KW]

dazu eine Abfrage
Code:
SELECT Format([KW],"00") AS xKW,
       KwNachDatum([kw],2007,"von") & " - " & KwNachDatum([kw],2007,"bis") AS Erg
FROM   Wochen;
und eine Function KwNachDatum
Code:
Public Function KwNachDatum(xKW As Integer, xJJ As Integer, xTyp As String) _
                           As String
On Error GoTo fehler
    Dim mDat As Date
    Dim nDat As Date
    Dim T As Integer
    Dim jMax As Integer
    Dim mKW As Integer

' Falsche Wochenangabe abfangen
    If xKW > 52 Then
        If Int(Format(DateSerial(xJJ, 12, 31), "WW", 2, 2)) < xKW Then
            KwNachDatum = "KW " & xKW & "/" & xJJ & " nicht möglich"
            GoTo ende
        End If
    End If
' Tage im Jahr festlegen
    jMax = 365
' Bei Schaltjahr einen Tag abziehen
    If IsDate("29.02." & xJJ) Then
        jMax = jMax + 1
    End If
' Tage durchlaufen und Woche auswerten
    For T = 0 To jMax
        nDat = DateSerial(xJJ, 1, 1) + T
        If xKW = Int(Format(nDat, "WW", 2, 2)) Then
            mDat = nDat
            Exit For
        End If
    Next T
' Typ auswerten und Datum übergeben
    If xTyp = "von" Then
        mDat = mDat - 4
        For T = 0 To 4
            nDat = mDat + T
            If xKW = Int(Format(nDat, "WW", 2, 2)) Then
                mDat = nDat
                Exit For
            End If
        Next T
        KwNachDatum = mDat
      Else
        mDat = mDat + 6
        For T = 0 To 6
            nDat = mDat - T
            If xKW = Int(Format(nDat, "WW", 2, 2)) Then
                mDat = nDat
                Exit For
            End If
        Next T
        KwNachDatum = mDat
    End If
ende:
    Exit Function
fehler:
    Resume ende
End Function
In einem ungebunden Listenfeld als Datenherkunft
Code:
SELECT *
FROM   A_Ergebnis
Hoffe das hilft die weiter

Gruß Mirage
lars.muc
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Mai 2007, 14:05
Rufname:

AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Hallo,

also muß ich die Wochen von - bis selber eingeben?! Kann man anhand des PC- Datums dies nicht berechnen lassen. Wenn alte KW aufhört und neue beginnt?

mfg
Mirage
Es wird !!!


Verfasst am:
31. Mai 2007, 14:56
Rufname:
Wohnort: Mainz

AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Nein, du musst in die Tabelle "Wochen" nur die Zahlen 1 bis 52 eingeben....der Rest geschieht wie von Geisterhand....

Wink
lars.muc
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Mai 2007, 16:00
Rufname:


AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Hallo

also die Abfrage geht aber die Liste geht nicht mit dem
Code:
SELECT *
FROM   A_Ergebnis
kannst mir helfen

danke
Willi Wipp
Moderator


Verfasst am:
31. Mai 2007, 16:40
Rufname:
Wohnort: Raum Wiesbaden

Re: Kalenderwoche Listen Ansicht?! - Re: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Hi lars.muc,

geht das mit dem geht nicht etwas genauer?
Hast Du das Listenfeld mal mit dem Assistenten erstellt und die neue Abfrage dort verwendet?

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Mirage
Es wird !!!


Verfasst am:
31. Mai 2007, 16:53
Rufname:
Wohnort: Mainz

AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Hallo,

du musst die Spaltenanzahl des Listenfelds auf "2" stellen, die Breite gibst du mit 0,5 an.....

Gruß
lars.muc
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2007, 19:59
Rufname:

AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Hallo,

danke das geht.

Kann man aber auch die Aktuelle KW farblich hervorheben in der Listen ansicht?

danke
derArb
getting better


Verfasst am:
01. Jun 2007, 23:34
Rufname: derArb
Wohnort: Berlin

AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

hallo,

z.B. so
Code:
Private Sub Form_Open(Cancel As Integer)
    Dim i As Integer
   
    For i = 0 To Me!lstKW.ListCount - 1
        If Me!lstKW.Column(0, i) = CLng(DatePart("ww", Now)) Then
            Me!lstKW.Selected(i) = True
        End If
    Next i
End Sub

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
lars.muc
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Jun 2007, 02:14
Rufname:

AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Hallo,

er meldet einen Feherl das er diesen in dem Formular nicht fibdet,"For i = 0 To Me!lstKW.ListCount - 1" und zwar fibdet er dieses nicht "lstKW".

Ich habe den Code im Hauptformularwo die Liste drin ist hinterlegt beim öffnen.!!!!

Danke
Willi Wipp
Moderator


Verfasst am:
02. Jun 2007, 02:48
Rufname:
Wohnort: Raum Wiesbaden

Re: Kalenderwoche Listen Ansicht?! - Re: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Hi lars.muc,

na Du musst schon den Namen Deines Listenfeldes verwenden Wink
Wenn Du Mehrfachauswahl (MultiSelect) auf Keine (0) hast dann reicht auch
Code:
Private Sub Form_Open(Cancel As Integer)
    Me!lstKW = CLng(DatePart("ww", Date))
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 03. Jun 2007, 00:37, insgesamt einmal bearbeitet
lars.muc
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Jun 2007, 03:34
Rufname:

AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

Hallo,

also das Feld heißt "xKw". Aber da sagt er mir dann
Zitat:
sie können diesem Objekt kein wert zuweisen
danke im voraus
Gast



Verfasst am:
02. Jun 2007, 13:29
Rufname:

AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

hallo,

das Listenfeld heisst so, wie es im Reiter Andere im Eigenschaftenfeld Name steht.

gruss
Willi Wipp
Moderator


Verfasst am:
03. Jun 2007, 00:39
Rufname:
Wohnort: Raum Wiesbaden

Re: Kalenderwoche Listen Ansicht?! (II) - Re: Kalenderwoche Listen Ansicht?! (II)

Nach oben
       Version: Office XP (2002)

Hi lars.muc,

kannst Du denn manuell im Listenfeld einen (und auch wirklich nur einen) Eintrag markieren?

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
derArb
getting better


Verfasst am:
03. Jun 2007, 10:57
Rufname: derArb
Wohnort: Berlin


AW: Kalenderwoche Listen Ansicht?! - AW: Kalenderwoche Listen Ansicht?!

Nach oben
       Version: Office XP (2002)

hallo,

hier mein funktionierendes Beispiel

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.



kalenderwochenliste.zip
 Beschreibung:

Download
 Dateiname:  kalenderwochenliste.zip
 Dateigröße:  31.76 KB
 Heruntergeladen:  76 mal

Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
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: Abfragen in SQL ansicht Auflösen 1 wolli2k 710 01. Dez 2010, 13:22
Gast Abfragen in SQL  ansicht Auflösen
Keine neuen Beiträge Access Tabellen & Abfragen: Zusammenführen unterschiedlicher Listen 9 omasenkel 301 04. Jun 2010, 10:58
Gast Zusammenführen unterschiedlicher Listen
Keine neuen Beiträge Access Tabellen & Abfragen: Format Datum andere Ansicht 2 StreunerKA 1240 04. März 2010, 21:01
StreunerKA Format Datum andere Ansicht
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfrage mit Listen- oder Kombinationsfeld 6 Datenpunker 1429 17. März 2009, 11:55
Datenpunker Parameterabfrage mit Listen- oder Kombinationsfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage der Kalenderwoche 46 hp69 5112 01. Dez 2008, 01:45
KlausMz Abfrage der Kalenderwoche
Keine neuen Beiträge Access Tabellen & Abfragen: Falsche Anzeige der Spalte in Listen/Kombinationsfeld 5 Dill_ 1018 25. März 2008, 23:55
jens05 Falsche Anzeige der Spalte in Listen/Kombinationsfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Noch was mit dem Datum/Kalenderwoche 1 Markos 402 23. Nov 2007, 13:58
Willi Wipp Noch was mit dem Datum/Kalenderwoche
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsberechnung, Problem bei Kalenderwoche 3 Markos 608 23. Nov 2007, 13:44
KlausMz Datumsberechnung, Problem bei Kalenderwoche
Keine neuen Beiträge Access Tabellen & Abfragen: Werte einrücken bzw listen verbinden 0 nordischer_84 711 20. März 2007, 10:29
nordischer_84 Werte einrücken bzw listen verbinden
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: Kalenderwoche 1 exzes 604 21. Apr 2006, 13:57
c0bRa Kalenderwoche
Keine neuen Beiträge Access Formulare: Öffnen eines erstellten Formular --> Ansicht 1 Heike1981 602 15. Feb 2006, 11:35
Gast Öffnen eines erstellten Formular --> Ansicht
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe