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:
: 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
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
Wie mache ich das?
Vielen Dank für Eure Hilfe!
Gruß,
Shadow88
Please also mark the comments that contributed to the solution of the article
Content-Key: 89240
Url: https://administrator.de/contentid/89240
Printed on: April 23, 2024 at 09:04 o'clock
3 Comments
Latest comment
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é
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é