Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Meldung, wenn 2 Bedingungen in Datensatz erfüllt
zurück: Export von Access nach Excel --> aktuelles sheet verwende weiter: SQL Code Fehler 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
BilboB.
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Okt 2011, 09:46
Rufname:

Meldung, wenn 2 Bedingungen in Datensatz erfüllt - Meldung, wenn 2 Bedingungen in Datensatz erfüllt

Nach oben
       Version: Office 2003

Hallo zusammen,

ich melde mich wieder mit einem kleinen VBA Problem.
Ich konnte mir zwar schon ein bisschen beibringen, aber noch nicht genug.

Ich möchte eine Meldung ausgeben lassen (über eine MessageBox), wenn ein best. Datum im Datensatz älter als 7 Tage ist und ein anderes Datum leer ist.

Mein bisheriger versuch sieht so aus:
Code:

Dim strKrit1 As Date
Dim strKrit2 As Date


    strKrit1 = "Dispodatum <= " & (Date - 7) ' diese Zeile wird beim debuggen markiert
    strKrit2 = "rEntladedatum = nothing "

    If DCount("Dispodatum", "Disponummer", strKrit1) <> 0 Then
        If DCount("rEntladedatum", "Disponummer", strKrit2) <> 0 Then

            If MsgBox("Es sind noch Datensätze vorhanden, die älter als 7 Tage sind und kein Entladedatum haben! Bitte prüfen und ändern!", vbOKOnly) = vbOK Then
            End If
            Else
            End If
        Else
        End If


Ich bekomme aber folgende Fehlermeldung:

"Laufzeitfehler '13':
Typen unverträglich

Ich möchte nur schreiben, dass Datensätze mit den Kriterien vorhanden sind. Nicht wieviele oder ähnliches.

Vielen Dank schon mal


MfG Dirk
helado
Acc97


Verfasst am:
21. Okt 2011, 09:55
Rufname:
Wohnort: Oberlausitz


AW: Meldung, wenn 2 Bedingungen in Datensatz erfüllt - AW: Meldung, wenn 2 Bedingungen in Datensatz erfüllt

Nach oben
       Version: Office 2003

wenn du
Code:
strKrit1 = "Dispodatum <= " & (Date - 7)
das so machst, dann musst du
Code:
Dim strKrit1 as String
deklarieren!



in der Online-Hilfe ist folgendes Beispiel aufgeführt:

Code:
intX = DCount("[Versanddatum]", "Bestellungen", _
"[Bestimmungsland] = 'Großbritannien' AND [Versanddatum] > #1-1-96#")


Bei deinem Code die eckigen klammern beachten!

_________________
schöne Grüße
Helado
----------------------------------------------------------------------
9 Stimmen in meinem Kopf sagen: "Ich bin nicht verrückt!"

1e pfeift die Tetris Melodie
Nouba
nicht ganz unwissend :)


Verfasst am:
21. Okt 2011, 10:03
Rufname:
Wohnort: Berlin

AW: Meldung, wenn 2 Bedingungen in Datensatz erfüllt - AW: Meldung, wenn 2 Bedingungen in Datensatz erfüllt

Nach oben
       Version: Office 2003

Hallo,

vermutlich willst Du den Sachverhalt so darstellen.
Code:
  If DCount("*", "Disponummer", "Dispodatum <= Date() - 7 AND rEntladedatum Is Null") > 0 Then
    MsgBox "..."
  End If

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
BilboB.
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Okt 2011, 10:32
Rufname:


AW: Meldung, wenn 2 Bedingungen in Datensatz erfüllt - AW: Meldung, wenn 2 Bedingungen in Datensatz erfüllt

Nach oben
       Version: Office 2003

Hallo,

meine Güte ging das schnell.

Vielen Dank.

Es funktioniert!

Ich liebe dieses Forum.

MfG

Dirk
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: Access soll prüfen ob Voraussetzung erfüllt ist 2 Gast 789 16. Aug 2005, 11:42
Gast Access soll prüfen ob Voraussetzung erfüllt ist
Keine neuen Beiträge Access Tabellen & Abfragen: unlöschbaren Datensatz erstellen 1 Vincent_Vega 899 15. Aug 2005, 21:45
stpimi unlöschbaren Datensatz erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld, automatisch erster Datensatz markieren 1 Gast 2958 21. Jun 2005, 11:54
rita2008 Listenfeld, automatisch erster Datensatz markieren
Keine neuen Beiträge Access Tabellen & Abfragen: Bei "Eingabe erforderlich" Meldung geben 5 renott 3756 15. Jun 2005, 11:35
Willi Wipp Bei "Eingabe erforderlich" Meldung geben
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2002 - Primärschlüssel mit Gültgkeitsregel/Meldung ? 6 Icelight 1004 06. Jun 2005, 10:35
Willi Wipp Access 2002 - Primärschlüssel mit Gültgkeitsregel/Meldung ?
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz automatisch kopieren??? 0 Edelschnitt 701 11. Mai 2005, 19:41
Edelschnitt Datensatz automatisch kopieren???
Keine neuen Beiträge Access Tabellen & Abfragen: Reservierter Fehler (-1517); es gibt keine Meldung für ... 1 Matthiasmms 2719 27. Apr 2005, 19:08
romu Reservierter Fehler (-1517); es gibt keine Meldung für ...
Keine neuen Beiträge Access Tabellen & Abfragen: Attribut unter gewissen Bedingungen auf "required" 6 Noob 592 06. Apr 2005, 10:46
Noob Attribut unter gewissen Bedingungen auf "required"
Keine neuen Beiträge Access Tabellen & Abfragen: Hintergrundfarbe in Datensatz 1 Rheinbote 900 24. Feb 2005, 20:18
stpimi Hintergrundfarbe in Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info 2 Steve 914 14. Jan 2005, 00:43
Steve Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage soll nur jeweils ersten Datensatz liefern (Group By? 2 MichaelN 2552 28. Dez 2004, 15:06
MichaelN Abfrage soll nur jeweils ersten Datensatz liefern (Group By?
Keine neuen Beiträge Access Tabellen & Abfragen: Bei der Aktualisierung eines Tabellenwertes neuen Datensatz 6 zheng 810 07. Dez 2004, 22:35
zheng Bei der Aktualisierung eines Tabellenwertes neuen Datensatz
 

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