Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem mit RowSource für ein Listenfeld
zurück: DateDiff und Now() gleichzeitig weiter: Übergabe des Datums vom Kalendersteuerelemnt 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
Gast333
Gast


Verfasst am:
09. Aug 2007, 14:11
Rufname:

Problem mit RowSource für ein Listenfeld - Problem mit RowSource für ein Listenfeld

Nach oben
       Version: Office 2003

Hallo Forummitglieder,

habe ein Problem mit meinem Listenfeld. Ich möchte aus einer Tabelle die Datensätze haben, welche dem heutigen Datum entsprechen...
Code:
    Me!geb.RowSource = "SELECT anrede, titel, vorname, nachname, " & _
                              "geburtstag, str, plz, ort, land " & _
                         "FROM db_owner_VersandAdressen " & _
                        "WHERE geburtstag = " & Date
Das klappt aber nicht. Und ich weiss nicht warum. Er bringt mit keinen DS. Aber es steht einer drin. Hab auch schon mit den Debuggger geschaut zwecks Inhalte usw.
Passt eigentlich alles... Confused

Bin für jede Idee dankbar
rita2008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Aug 2007, 15:01
Rufname:
Wohnort: Berlin


AW: Problem mit RowSource für ein Listenfeld - AW: Problem mit RowSource für ein Listenfeld

Nach oben
       Version: Office 2003

Sieh mal dort nach: http://www.dbwiki.de/wiki.php?title=VBA_Tipp:_Datum_ins_VBA-Datumsformat_(SQL-Format)_umwandeln
_________________
mfg Rita

Antworten bitte hier im Forum, nicht als private Nachricht. Danke
Willi Wipp
Moderator


Verfasst am:
09. Aug 2007, 16:34
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem mit RowSource für ein Listenfeld - Re: Problem mit RowSource für ein Listenfeld

Nach oben
       Version: Office 2003

Hi Gast333,

oder in diesem speziellen Fall vielleicht auch einfach so
Code:
    Me!geb.RowSource = "SELECT anrede, titel, vorname, nachname, " & _
                              "geburtstag, str, plz, ort, land " & _
                         "FROM db_owner_VersandAdressen " & _
                        "WHERE geburtstag = Date()"

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

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


Verfasst am:
10. Aug 2007, 09:08
Rufname:

AW: Problem mit RowSource für ein Listenfeld - AW: Problem mit RowSource für ein Listenfeld

Nach oben
       Version: Office 2003

Gast333 am 10. Aug 2007 um 07:45 hat folgendes geschrieben:
Hallo Willi,

klappt natürlich wie immer Very Happy

Wie kann man nun direkt in dem SQL String nur die aktuelle Woche prüfen? Hab es so probiert. Klappt aber net Sad
Code:
    dat = Format(Date, "ww")
    Me!geb.RowSource = "SELECT anrede, titel, vorname, nachname, " & _
                              "geburtstag, str, plz, ort, land " & _
                         "FROM db_owner_VersandAdressen " & _
                        "WHERE Format([geburtstag],'mm')= '" & dat & "'"

Gast333 am 10. Aug 2007 um 07:49 hat folgendes geschrieben:
hab es Very Happy
Code:
    Me!geb.RowSource = "SELECT anrede, titel, vorname, nachname, " & _
                              "geburtstag, str, plz, ort, land " & _
                         "FROM db_owner_VersandAdressen " & _
                        "WHERE Format([geburtstag],'ww')= Format(date(),'ww')"


ich nochmal. leider bringt er mir mit diesem code für die aktuelle woche auch Daten für den 1.8 und 3.8. Er müsste doch aber nur vom 6. - 12. die Datensätze ausgeben... Confused
Willi Wipp
Moderator


Verfasst am:
10. Aug 2007, 15:37
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem mit RowSource für ein Listenfeld (II) - Re: Problem mit RowSource für ein Listenfeld (II)

Nach oben
       Version: Office 2003

Hi Gast333,

das haengt doch davon ab von wann bis wann die Woche im Geburtsjahr ging!
==> Das Geburtsdatum musst Du neu zusammensetzen mit dem aktuellen Jahr.

_________________
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 13. Aug 2007, 16:59, insgesamt einmal bearbeitet
Gast333
Gast


Verfasst am:
13. Aug 2007, 15:44
Rufname:

AW: Problem mit RowSource für ein Listenfeld - AW: Problem mit RowSource für ein Listenfeld

Nach oben
       Version: Office 2003

Hallo Willi,

habe etwas rumprobiert und im Forum gesucht. Bin jetzt soweit:
Code:
Private Sub aktwoche_Click()
    Dim dat1 As Date
    Dim dat2 As Date
    Dim a As String
    Dim b As String
   
    dat1 = Format(Now() - Weekday(Now(), 0) + 1, "dd\.mm\.yyyy")
    dat2 = Format(Now() - Weekday(Now(), 0) + 7, "dd\.mm\.yyyy")
    Me!geb.Visible = True
    Me!geb.ColumnCount = 9
    a = Left(dat1, 6)
    b = Left(dat2, 6)
    Me!geb.RowSource = "SELECT anrede, titel, vorname, nachname, " & _
                              "geburtstag, str, plz, ort, land " & _
                         "FROM db_owner_VersandAdressen " & _
                        "WHERE Format([geburtstag],'dd.mm') " & _
                                          "Between '" & a & "' And '" & b & "'"
End Sub
leider klappt das auch nicht. Er bringt alle Geburtstage Sad
Willi Wipp
Moderator


Verfasst am:
13. Aug 2007, 16:59
Rufname:
Wohnort: Raum Wiesbaden


Re: Problem mit RowSource für ein Listenfeld (III) - Re: Problem mit RowSource für ein Listenfeld (III)

Nach oben
       Version: Office 2003

Hi Gast,

mal mit mal ohne Jahr, wie soll das passen?
Code:
Private Sub aktwoche_Click()
    Dim dat1 As Date
    Dim dat2 As Date
    Dim a As String
    Dim b As String
   
    dat1 = Format(Now() - Weekday(Now(), 0) + 1, "mmdd")
    dat2 = Format(Now() - Weekday(Now(), 0) + 7, "mmdd")
    Me!geb.Visible = True
    Me!geb.ColumnCount = 9
    a = Left(dat1, 6)
    b = Left(dat2, 6)
    Me!geb.RowSource = "SELECT anrede, titel, vorname, nachname, " & _
                              "geburtstag, str, plz, ort, land " & _
                         "FROM db_owner_VersandAdressen " & _
                        "WHERE Format([geburtstag],'mmdd') " & _
                                          "Between '" & a & "' And '" & b & "'"
End Sub
(ungetestet)
Wobei es so Probleme beim Jahreswechsel gibt!

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
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: Listenfeldabfrage aktuallisiert das listenfeld nicht :-( 6 Tom_hh 293 28. Jan 2010, 10:33
MissPh! Listenfeldabfrage aktuallisiert das listenfeld nicht :-(
Keine neuen Beiträge Access Tabellen & Abfragen: Anfügabfrage/Listenfeld 6 Patrick_gast 385 21. Dez 2009, 09:54
Patrick_Gast Anfügabfrage/Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld mit Mehrfachauswahl 13 Gast091109 687 10. Nov 2009, 16:41
Gast091109 Listenfeld mit Mehrfachauswahl
Keine neuen Beiträge Access Tabellen & Abfragen: Gefiltertes Listenfeld in Tabelle speichern 11 Mr. Deeds 1586 05. Sep 2009, 15:12
Marmeladenglas Gefiltertes Listenfeld in Tabelle speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Rowsource SQL Order BY Problem 5 Iggy 787 05. Aug 2009, 16:35
tk6 Rowsource SQL Order BY Problem
Keine neuen Beiträge Access Tabellen & Abfragen: Zeitraum per Listenfeld abfragen 4 bobby-k 483 07. Apr 2009, 17:56
Willi Wipp Zeitraum per Listenfeld abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfachauswahl aus Listenfeld in Abfrage darstellen 15 sternpfeifer 6415 13. Aug 2008, 15:13
Willi Wipp Mehrfachauswahl aus Listenfeld in Abfrage darstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Mehrfachauswahl im Listenfeld 56 Ipekak_ 4662 12. Aug 2008, 02:36
Willi Wipp Abfrage mit Mehrfachauswahl im Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Summe von den Optionen im Listenfeld 4 Disastro 491 22. Jan 2008, 08:08
jens05 Summe von den Optionen im Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage starten vom Listenfeld 3 JoSCh1 781 19. Okt 2007, 14:22
Willi Wipp Abfrage starten vom Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Filter im Listenfeld aus Abfrage 1 hansemann2510 687 23. Aug 2007, 21:22
hansemann2510 Filter im Listenfeld aus Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in einem Listenfeld ausgeben! 3 Kyale 514 21. Aug 2007, 17:30
rita2008 Abfrage in einem Listenfeld ausgeben!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme