collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 96
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 14160
  • stats Beiträge insgesamt: 68645
  • stats Themen insgesamt: 9248
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Meldung wenn SELECT keine Datensätze ergibt  (Gelesen 1243 mal)

Offline Beate1953

  • Access-Profi
  • **
  • Beiträge: 250
Meldung wenn SELECT keine Datensätze ergibt
« am: November 08, 2013, 12:10:05 »
Hallo,

ich habe einen SELECT-String, der mir alle Datensätze liefert, deren Datum zwischen Anfdat und Enddat (beides Public DateVariablen) liegt.

Jetzt brauche ich ein If, das mir eine Meldung ausgibt, wenn es keine Datensätze gibt, deren Datum zwischen Anfdat und Enddat liegt.
Also so etwa:
IF (SELECT keine Treffer ergibt) THEN
   MsgBox("Keine Datensätze vorhanden")
END IF

Ich habe keine Ahnung, wie ich das machen soll.



Falls es interessiert, folgt nun der SQL-String:

SQLstr = "SELECT Posten.Barcode, Posten.[Bezeichnung (Typ, genaue Bezeichnung)], Gerätegruppen.Bezeichnung, "
SQLstr = SQLstr & "Abteilungen.Ort, [E-Check].[E-Check], [E-Check].Datum, [E-Check].Bemerkung "
SQLstr = SQLstr & "FROM (Gerätegruppen INNER JOIN Posten ON Gerätegruppen.[GerätegruppeID] = Posten.[Gerätegruppe]) "
SQLstr = SQLstr & "INNER JOIN (Abteilungen INNER JOIN [E-Check] ON Abteilungen.[ID] = [E-Check].[Ort]) "
SQLstr = SQLstr & "ON Posten.[Barcode] = [E-Check].[Barcode] "
SQLstr = SQLstr & "WHERE [E-Check].Datum Between " & Format(Anfdat, "\#yyyy-mm-dd\#") & " AND " & Format(Enddat, "\#yyyy-mm-dd\#")


Ich hoffe, Ihr könnt mir wieder einmal helfen.

Viele Grüße
Beate1953
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23531
Re: Meldung wenn SELECT keine Datensätze ergibt
« Antwort #1 am: November 08, 2013, 12:27:25 »
Hallo,


Dim rs as Dao.Recordset

Set rs=Currentdb.Openrecordset (SQLstr ,dbOpensnapshot)
If rs.BOF And rs.EOF Then
   MsgBox "Keine Datensätze vorhanden"
End If

rs.Close
Set rs=Nothing

Offline Beate1953

  • Access-Profi
  • **
  • Beiträge: 250
Re: Meldung wenn SELECT keine Datensätze ergibt
« Antwort #2 am: November 09, 2013, 17:20:31 »
Hallo,

Du bist einfach super, das funktioniert prima!!!

Vielen Dank
Beate1953
 

 

Unlogische Meldung von Access

Begonnen von uwe01Board Access-Hilfe

Antworten: 2
Aufrufe: 5973
Letzter Beitrag Februar 20, 2011, 13:13:45
von uwe01
Meldung Combobox

Begonnen von boehnli01Board Access Programmierung

Antworten: 9
Aufrufe: 3503
Letzter Beitrag Februar 12, 2012, 15:49:59
von Beaker s.a.
Eigenes Dialogfeld statt Access-Meldung

Begonnen von gromaxBoard Formular

Antworten: 9
Aufrufe: 3050
Letzter Beitrag November 16, 2014, 00:50:22
von gromax
Eigenes Dialogfeld statt Access-Meldung 2

Begonnen von gromaxBoard Formular

Antworten: 6
Aufrufe: 3397
Letzter Beitrag März 01, 2015, 18:30:05
von gromax
Fehler meldung

Begonnen von mmaatoukBoard Access-Hilfe

Antworten: 5
Aufrufe: 2683
Letzter Beitrag Juni 05, 2015, 16:15:04
von MaggieMay