Access VBA Code um in If eine qry auf die Anzahl der Datensaetze zu pruefen

Hallo Leute,

evtl. könnt ihr mir hier weiter helfen.

Ich möchte über einen Button eine If Abfrage ausführen, die schaut ob sich in einem qry Datensätze befinden und dem entsprechend handelt.

Hier mein aktueller Code:

'Abfrage ob Empfänger fehlt  

If qryEmpfaenger_fehlt < 0 Then
Form_frmMenueCheck.cmdCheckEmpf.ForeColor = RGB(0, 204, 0)
Else: Form_frmMenueCheck.cmdCheckEmpf.ForeColor = RGB(255, 0, 0)
txtAbfrage.Value = "2"  
End If

qryEmpfaenger_fehlt < 0

: Müsste durch einen anderen Code ersetzt werden der prüft, ob der qry Datensätze enthält. Wenn er keine enthält, dann soll die Then Funktion aufgeführt werden und wenn er welche enthält, dann die Else.

Wie mache ich das?

Vielen Dank für Eure Hilfe!

Gruß,

Shadow88

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 89240

Url: https://administrator.de/forum/access-vba-code-um-in-if-eine-qry-auf-die-anzahl-der-datensaetze-zu-pruefen-89240.html

Ausgedruckt am: 16.04.2025 um 13:04 Uhr

3 Kommentare

Neuester Kommentar

Hallo,

ich denke hier sollte ein einfacher DCOUNT auf die Abfrage ausreichen.

z.B.

Dim lonAnzSätze as Long

lonAnzSätze = DCount("[beliebeigeSpalte]", "qry_name")

oder gleich

If DCount("[beliebeigeSpalte]", "qry_name") > 0 Then

Gruß - René

Set db = DBEngine(0)(0)
Dim db As Database
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("MeineAbfrage", dbOpenSnapshot)  
If if rs.RecordCount >0 then 
   ' was immer ich tum möchte wenn DS vorhanden sind  
end if