Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Message ausgeben wenn Datensatz nicht vorhanden
zurück: Textfeld verschieben (Modul?) weiter: Funktion für Kassenbuch, Übertrag 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
mactoni
absoluter Einsteiger


Verfasst am:
31. Okt 2008, 16:10
Rufname:

Message ausgeben wenn Datensatz nicht vorhanden - Message ausgeben wenn Datensatz nicht vorhanden

Nach oben
       Version: Office 2003

Hallo,

habe folgenden Code:
Code:
Private Sub Eintragen_Click()
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query1"
    DoCmd.FindRecord Me!Text_ID
    SQLString = "UPDATE Query1 SET login = Text_log WHERE Text_ID = mitarb_ID;"
    DoCmd.RunSQL (SQLString)
    DoCmd.Close acQuery, "Query1"
    DoCmd.SetWarnings True
    '...
Möchte eine MsgBox ausgeben wenn die ID ,die in Text_ID steht, nicht in Query1 ist.
Beim Anzeigen der MsgBox soll auch nicht die Query geöffnet werden sondern nur die MsgBox erscheinen. Hatte jetzt schon einige Versuche aber nicht hat komplett funktioniert.
Danke für jeden Tip
Gruß
mactoni
JörgG
Access-Team


Verfasst am:
31. Okt 2008, 16:24
Rufname:
Wohnort: b. Dresden


AW: Message ausgeben wenn Datensatz nicht vorhanden - AW: Message ausgeben wenn Datensatz nicht vorhanden

Nach oben
       Version: Office 2003

Hallo,

für solche Dinge bieten sich die Domänenfunktionen an, zB DCount() / DLookUp()
Code:
    If DCount("*", "Query1", Text_ID = " & Me!Text_ID) > 0 Then
        'Dein Code
      Else
        MsgBox "DS nicht gefunden!"
        'evtl: Exit Sub
    End If

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
mactoni
absoluter Einsteiger


Verfasst am:
31. Okt 2008, 16:32
Rufname:

AW: Message ausgeben wenn Datensatz nicht vorhanden - AW: Message ausgeben wenn Datensatz nicht vorhanden

Nach oben
       Version: Office 2003

Hallo Jörg,
Danke für die Antwort.
Habs gerade probiert, klappt leider nicht. Kann es sein das auch ein " fehlt?
Hab einfach mal noch ein Anführungszeichen dazu gesetzt:
Code:
    If DCount("*", "Query1", Text_ID = " " & Me!Text_ID) > 0 Then
Weiß nicht ob das überhaupt so korrekt ist, aber dann wird immer die MsgBox angezeigt, auch bei vorhandener ID Sad

Gruß
mactoni
JörgG
Access-Team


Verfasst am:
31. Okt 2008, 16:41
Rufname:
Wohnort: b. Dresden

AW: Message ausgeben wenn Datensatz nicht vorhanden - AW: Message ausgeben wenn Datensatz nicht vorhanden

Nach oben
       Version: Office 2003

Hallo,

Embarassed sorry, stimmt ein " fehlt Wink
Code:
    If DCount("*", "Query1", "Text_ID = " & Me!Text_ID) > 0 Then

Text_ID ist der ID-Feldname in der Abfrage und vom Datentyp Zahl?

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
mactoni
absoluter Einsteiger


Verfasst am:
31. Okt 2008, 16:48
Rufname:

AW: Message ausgeben wenn Datensatz nicht vorhanden - AW: Message ausgeben wenn Datensatz nicht vorhanden

Nach oben
       Version: Office 2003

Text_ID ist die ID die in einem Textfeld steht, mitarb_ID ist die ID in der Query und vom Typ Autowert.
Jetzt wird keine MsgBox mehr angezeigt bei nicht vorhandener ID Sad
JörgG
Access-Team


Verfasst am:
31. Okt 2008, 16:51
Rufname:
Wohnort: b. Dresden

AW: Message ausgeben wenn Datensatz nicht vorhanden - AW: Message ausgeben wenn Datensatz nicht vorhanden

Nach oben
       Version: Office 2003

Hallo,

aha, das ID aus der Abfrage muss eingesetzt werden:
Code:
    If DCount("*", "Query1", "mitarb_ID = " & Me!Text_ID) > 0 Then

Ansonsten zeige bitte mal die SQL-Ansicht von Query1.

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
mactoni
absoluter Einsteiger


Verfasst am:
31. Okt 2008, 16:56
Rufname:


AW: Message ausgeben wenn Datensatz nicht vorhanden - AW: Message ausgeben wenn Datensatz nicht vorhanden

Nach oben
       Version: Office 2003

Hallo Jörg,

jetzt klappt es wunderbar! Vielen, vielen Dank für die Hilfe Smile
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: INSERT Problem: Tabelle nicht vorhanden (obwohl da) 0 kingmarcus 602 18. Jul 2005, 10:33
kingmarcus INSERT Problem: Tabelle nicht vorhanden (obwohl da)
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenwerte in Abfrage zählen und ausgeben. 5 HardcoreJan 1006 11. Jul 2005, 17:02
Willi Wipp Tabellenwerte in Abfrage zählen und ausgeben.
Keine neuen Beiträge Access Tabellen & Abfragen: Reduzierung mehrerer Datensätze auf einen Datensatz 2 Pulldown 819 03. Jun 2005, 09:32
Pulldown Reduzierung mehrerer Datensätze auf einen Datensatz
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: bei Adressangabe zeigen, ob Name schon vorhanden 2 ErklaerBaer 884 27. Apr 2005, 09:53
ErklaerBaer bei Adressangabe zeigen, ob Name schon vorhanden
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: Prüfen, ob eine Tabelle vorhanden ist 1 Spoldo 807 23. Feb 2005, 13:08
Spoldo Prüfen, ob eine Tabelle vorhanden ist
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: Wenn Wert nicht vorhanden nimm den nächsten 2 Ogdo 788 29. Dez 2004, 12:40
Gast Wenn Wert nicht vorhanden nimm den nächsten
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
Keine neuen Beiträge Access Tabellen & Abfragen: Rechnung erstellen wenn alle Daten vorhanden 6 Freddy 1909 25. Nov 2004, 11:03
Freddy Rechnung erstellen wenn alle Daten vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: ALiasname mit Punkt-Zeichen ausgeben? 1 jpa 1407 09. Nov 2004, 19:44
Skogafoss ALiasname mit Punkt-Zeichen ausgeben?
 

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