Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Access 2010 - Zeiiträume vergleichen
zurück: Mehrere Kriterien aus Formular Textfeld weiter: Tipp für die Verknüpfung von Formularen gesucht! 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
Gast



Verfasst am:
26. Apr 2014, 08:43
Rufname:

Access 2010 - Zeiiträume vergleichen - Access 2010 - Zeiiträume vergleichen

Nach oben
       Version: Office 2010

Gast am 25. Apr 2014 um 19:50 hat folgendes geschrieben:
Hallo Zusammen,

ich habe eine Frage bzgl. Zeiträume:
Ich habe eine Veranstaltungs-Tabelle mit Zeitraumangaben "Datum von" und "Datum bis"
Ich möchte mir sämtliche Veranstaltung anzeigen lassen, deren Zeiträume sich berühren, sei es auch um einen Tag.
Beispiel:
Code:
Va1   01.02.2013 bis 03.03.2013
Va2.  02.03.2013
Va3   03.03.2013 bis 01.05.2013
Die oben genannten Veranstaltungen sollen als Parallelveranstaltung gefunden werden.

Danke für Euere Hilfe.

Gruss

Parallelveranstaltungen liegen dann vor:
  1. wenn ein Veranstaltungsbeginn oder
  2. ein Veranstaltungsende im Prüfzeitraum liegen (das umfasst gleichzeitig den Fall, dass eine Veranstaltung komplett innerhalb des Prüfzeitraumes liegt) oder
  3. wenn eine Veranstaltung den Prüfzeitraum umschließt.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
29. Apr 2014, 14:13
Rufname:
Wohnort: NRW

Re: Access 2010 - Zeiiträume vergleichen - Re: Access 2010 - Zeiiträume vergleichen

Nach oben
       Version: Office 2010

Hallo,

es macht einen Unterschied ob du
Gast am 25. Apr 2014 um 19:50 hat folgendes geschrieben:
sämtliche Veranstaltung anzeigen lassen, deren Zeiträume sich berühren
oder
Anonymous - 26. Apr 2014, 08:43 hat folgendes geschrieben:
wenn ein Veranstaltungsbeginn oder ein Veranstaltungsende im Prüfzeitraum liegen
herausfinden willst. Was also ist dein Ziel?
Alle sich überschneidenden Veranstaltungen finden oder alle Veranstaltungen finden, die in einen bestimmten (Prüf-)Zeitraum fallen?

_________________
Gruß MissPh!
kyron9000
Practitioner :)


Verfasst am:
29. Apr 2014, 16:52
Rufname:
Wohnort: Wien

AW: Access 2010 - Zeiiträume vergleichen - AW: Access 2010 - Zeiiträume vergleichen

Nach oben
       Version: Office 2010

Hallo,

ich würde eine Funktion vorschlagen bei der du die relevanten Namen nach deinen Gegebenheiten anpasst...
Code:
Public Function fncVeranstaltungen(Von As Date, Bis As Date, ID As Long) As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i  As Integer
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tbl_Veranstaltungen", dbOpenDynaset)
    With rs
       .MoveFirst
    Do While Not .EOF
    If !IDVeranstaltung <> ID Then
        If (Von =< !DatumVon And Bis >= !DatumVon) Or _
           (Von =< !DatumBis And Bis >= !DatumBis) Or _
           (Von >= !DatumVon And Bis <= !DatumBis) Then
           fncVeranstaltungen = "Überschneidet sich mit: " & !Veranstaltung
           Exit Function
        End If
    End If
       .MoveNext
    Loop
       .Close
    End With
    fncVeranstaltungen = "OK"
Set rs = Nothing
Set db = Nothing
End Function

Aufruf in einer Abfrage SQL-Code:
Code:
fncVeranstaltungen([DatumVon],Nz([DatumBis],[DatumVon]),[IDVeranstaltung]) AS Ueberschneidungen

PS: eventuell habe ich ein "If" Kriterium übersehen, aber das kann man ja selber testen und ggf. anfügen.
Auch ein Anzeigen aller der sich überschneidenden Veranstaltungen
(im Moment ja nur der Erste) wäre möglich, aber das kann aber ev. lang im Text werden Smile
und bedürfte einer kl. Änderung im Code

Code:
Public Function fncVeranstaltungen(Von As Date, Bis As Date, ID As Long) As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i  As Integer
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tbl_Veranstaltungen", dbOpenDynaset)
    With rs
       .MoveFirst
    Do While Not .EOF
    If !IDVeranstaltung <> ID Then
        If (Von =< !DatumVon And Bis >= !DatumVon) Or _
           (Von =< !DatumBis And Bis >= !DatumBis) Or _
           (Von >= !DatumVon And Bis <= !DatumBis) Then
            If fncVeranstaltungen = "" Then
               fncVeranstaltungen = fncVeranstaltungen & "Überschneidet sich mit: " & !Veranstaltung
            Else
               fncVeranstaltungen = fncVeranstaltungen & "/" & !Veranstaltung
            End If
        End If
    End If
       .MoveNext
    Loop
       .Close
    End With
            If fncVeranstaltungen = "" Then
               fncVeranstaltungen = "OK"
            End If
Set rs = Nothing
Set db = Nothing
End Function

... schnell noch getestet und funktioniert auch.

_________________
Gruß Alfred...

Es ist nicht immer alles so einfach wie es sich im Moment darstellt...
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: Tabellen vergleichen und Datensätze markieren 1 Funky_MF 807 15. Jun 2007, 07:30
Nouba Tabellen vergleichen und Datensätze markieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze vergleichen ??? 4 hanibal72 682 27. Mai 2007, 17:42
Willi Wipp Datensätze vergleichen ???
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen vergleichen 5 BarbaraS 805 15. Dez 2006, 22:03
Nouba Tabellen vergleichen
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: Wert eines Feldes mit den Werten einer Spalte vergleichen 2 Ralf48 693 18. Nov 2006, 02:10
Willi Wipp Wert eines Feldes mit den Werten einer Spalte vergleichen
Keine neuen Beiträge Access Tabellen & Abfragen: Zahlenwert vergleichen 1 RobArb 494 16. Okt 2006, 20:02
jens05 Zahlenwert vergleichen
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Abf vergleichen, anzeigen die nicht gleich sind 2 DukeCastino 1487 12. Okt 2006, 13:14
Willi Wipp 2 Abf vergleichen, anzeigen die nicht gleich sind
Keine neuen Beiträge Access Tabellen & Abfragen: Datum vergleichen 1 Ricardo 677 23. Aug 2006, 11:22
Nouba Datum vergleichen
Keine neuen Beiträge Access Tabellen & Abfragen: doppelte Einträge vergleichen 2 Juana 693 08. Jun 2006, 11:45
Gast doppelte Einträge vergleichen
Keine neuen Beiträge Access Tabellen & Abfragen: Zwei Tabellen miteinander vergleichen 4 grimsel 1091 08. Mai 2006, 22:09
grimsel Zwei Tabellen miteinander vergleichen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen vergleichen 0 knosim 802 05. Mai 2006, 11:40
knosim Tabellen vergleichen
 

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