Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datum leer oder "größer als" als If-Bedingung
zurück: Aus Formular mit VB direkt Werte in Tabelle schreiben/lesen weiter: Access 2007 VBA SQL Login Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
jensspeedy
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Dez 2008, 12:57
Rufname:
Wohnort: berlin

Datum leer oder "größer als" als If-Bedingung - Datum leer oder "größer als" als If-Bedingung

Nach oben
       Version: Office 2003

jensspeedy am 26. Nov 2008 um 10:29 hat folgendes geschrieben:
Hallo Ihr

Ist nur ne ganz kleine Sache aber irgendwie steh ich gerade neben mir oder so ;-(
mit dem code
Code:
Sub datenholen2()
    Dim Nummer As Long
    Dim Zaehler As Long
   
    Nummer = Modul1.solutions1_1
    Set objDBEngine = CreateObject("DAO.DBEngine.36")
    Set objDBEngine = OpenDatabase("C:\...\Datenbank1.mdb")
    Set objRS = objDBEngine.OpenRecordset("SELECT * " & _
                                            "FROM z_adressen " & _
                                        "ORDER BY D010Nr")
   If objRS.RecordCount >= 0 Then
        Zaehler = 1
        objRS.MoveFirst
        Do While Not objRS.EOF
            If objRS!D010Nr = Nummer Then
                ReplaceBookmarkText_1 "verwnr" & Format$(Zaehler, "000"), _
                                      objRS!Merkmal & ""
' und so weiter
lese ich Daten aus einer Access Tabelle dank Office-Freak's Unterstützung zeilenweise aus - funktioniert auch Super.

Nun muss ich aber die Bedingung: If objRS!D010Nr = Nummer Then
so erweitern, dass da zusätzlich steht:
If objRS!D010Nr = Nummer AND objRS!Datum ist leer oder > als der 01. des folgenden Monats Then
und dieses "ist leer oder > als der 01. des folgenden Monats" bekomm ich gerade irgendwie nicht gebacken - das Problem ist, dass die Felder dieser Spalte entweder leer sind oder ein Datum zeigen - bei Datumsangaben die VOR dem ersten des Folgemonats liegen soll nichts eingetragen werden

Irgendwie müßte es also heißen:
If objRS!D010Nr = Nummer AND objRS!Datum ist leer oder das Datum (wenn vorhanden) ist größer als der erste des Folgemonats Then
aber irgendwie bekomm ich das gerade nicht hin

kann mir mal bitte einer unter die Arme greifen?

Dankeschön

der Jens

jensspeedy am 27. Nov 2008 um 15:26 hat folgendes geschrieben:
habe es jetzt mal so versucht
Code:
Sub datenholen2()
    Dim Nummer As Long
    Dim strDatum As Long
    Dim Zaehler As Long
   
    strDatum = Format$(Date, "yyyyMM")
    MsgBox strDatum
    Nummer = Modul1.solutions1_1
    Set objDBEngine = CreateObject("DAO.DBEngine.36")
    Set objDBEngine = OpenDatabase("C:\...\Datenbank1.mdb")
    Set objRS = objDBEngine.OpenRecordset("SELECT * " & _
                                            "FROM z_adressen " & _
                                        "ORDER BY D010Nr, D060Nr")
    If objRS.RecordCount >= 0 Then
        Zaehler = 1
        objRS.MoveFirst
        Do While Not objRS.EOF
            If objRS!D010Nr = Nummer & _
                              Format$(objRS!D060Auszug, "yyyyMM") = 0 Or _
               Format$(objRS!D060Auszug, "yyyyMM") > strDatum Then
                ReplaceBookmarkText_1 "verwnr" & Format$(Zaehler, "000"), _
                                      objRS!D010Nr & ""
wenn ich das jetzt laufen lasse kommt erst die Messagebox mit heute "200811" - also Jahr und Monat hintereinander als Zahl - nun müßte ich doch mit dem oben angegebenen
If objRS!D010Nr = Nummer & Format$(objRS!D060Auszug, "yyyyMM") = 0 Or Format$(objRS!D060Auszug, "yyyyMM") > strDatum Then
das ausgelesene Datum aus D060 so formatieren und mit strDatum vergleichen können - oder?

EDIT 28.11.08, 07:00: es müßten doch in diesem Fall nur Eintragungen gemacht werden aus den Zeilen, Wo das ausgelesene Datum aus D060 = "000000" ist oder NACH dem heutigen Datum liegt - oder?
ich könnt mir nur vorstellen dass es irgendwie nicht klappt dass die Werte verglichen werden - aber wie stell ich es richtig an?
jemand ne Idee?

der Jens

Ich noch mal

wenn "D060Auszug" leer ist oder das dort eingetragene Datum von Monat und Jahr her GRÖSSER ist als das heutige Datum sollen die Werte eingetragen werden - dass muss doch gehen - aber ICH bekomm es irgendwie nicht hin

hat denn keiner der Wissenden unter Euch ne Idee? *schnief*

Vielen Dank für die Hilfe

der Jens

_________________
feedback kommt meistens gut Wink
Willi Wipp
Moderator


Verfasst am:
05. Dez 2008, 12:25
Rufname:
Wohnort: Raum Wiesbaden

Re: Datum leer oder "größer als" als If-Bedingung - Re: Datum leer oder "größer als" als If-Bedingung

Nach oben
       Version: Office 2003

Hi jensspeedy,

warum erst Alle holen und durchlaufen, wenn man das vorher schon einschraenken kann
Code:
Sub datenholen2()
    Dim Nummer As Long
    Dim Zaehler As Long
    Dim objDBEngine As Object 'DAO.Database
    Dim objRS       As Object 'DAO.Recordset
    Dim strDatum    As String
    Dim strSQL      As String
    Dim dtmDatum    As Date
   
    dtmDatum = DateAdd("m", 1, Date)
    dtmDatum = DateSerial(Year(dtmDatum), Month(dtmDatum), 1)
    strDatum = Format$(dtmDatum, "\#yyyy-mm-dd\#")
    MsgBox strDatum
    Nummer = Modul1.solutions1_1
    Set objDBEngine = CreateObject("DAO.DBEngine.36")
    Set objDBEngine = OpenDatabase("C:\...\Datenbank1.mdb")
    strSQL = "SELECT * FROM z_adressen " & _
              "WHERE D010Nr = " & Nummer & " " & _
                "AND (D060Auszug Is Null " & _
                 "OR  D060Auszug > " & strDatum & ") " & _
           "ORDER BY D010Nr, D060Nr"
    Set objRS = objDBEngine.OpenRecordset(strSQL, 4) 'dbOpenSnapshot)
    If objRS.RecordCount >= 0 Then
        Zaehler = 1
        objRS.MoveFirst
        Do While Not objRS.EOF
            ReplaceBookmarkText_1 "verwnr" & Format$(Zaehler, "000"), Nummer

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
jensspeedy
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Dez 2008, 14:24
Rufname:
Wohnort: berlin


AW: Datum leer oder "größer als" als If-Bedingung - AW: Datum leer oder "größer als" als If-Bedingung

Nach oben
       Version: Office 2003

Hi Willi Wipp

Vom Drüberkieken her sieht es richtig gut aus - bin nur unterwegs und kann es erst heute Abend oder morgen testen.

Erst mal vielen Dank und ob es funktioniert sag ich Dir Wink

Danke sagt der Jens

_________________
feedback kommt meistens gut Wink
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: in einer Wenn dann Funktion aufs Datum gruppieren 10 Gast 691 06. Jan 2005, 10:22
Skogafoss in einer Wenn dann Funktion aufs Datum gruppieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datum konvertieren 2 pad8626 1236 03. Dez 2004, 16:25
pad8626 Datum konvertieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datum nur als Monat/Jahr 2 Thomas M. 1487 01. Dez 2004, 15:09
Gast Datum nur als Monat/Jahr
Keine neuen Beiträge Access Tabellen & Abfragen: Datum 5 Jogler 1001 29. Nov 2004, 13:27
borstel Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Achtstelligen Zahlen-Stringwert als Datum formatieren 2 cmaier 1302 15. Nov 2004, 15:10
cmaier Achtstelligen Zahlen-Stringwert als Datum formatieren
Keine neuen Beiträge Access Tabellen & Abfragen: Abgleich über Datum 1 Darthstar 671 12. Nov 2004, 07:15
stpimi Abgleich über Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz nach Datum suchen?? 1 Hansen 1390 04. Okt 2004, 12:16
stpimi Datensatz nach Datum suchen??
Keine neuen Beiträge Access Tabellen & Abfragen: 3. ältestes Datum 3 shaaree 793 27. Sep 2004, 11:03
Skogafoss 3. ältestes Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datum in Zahl umwandeln 2 Lorenz 1017 01. Sep 2004, 18:45
Lorenz Datum in Zahl umwandeln
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage nach heutigem / aktuellen Datum 1 MeWe 878 31. Aug 2004, 14:57
TommyK Abfrage nach heutigem / aktuellen Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datum überprüfen 4 Gast 1076 30. Aug 2004, 13:11
borstel Datum überprüfen
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfrage - wenn Parameter leer, alle anzeigen 3 Norman 2935 16. Aug 2004, 22:15
Tweety Parameterabfrage - wenn Parameter leer, alle anzeigen
 

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