3
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 IfqryEmpfaenger_fehlt < 0 Wie mache ich das?
Vielen Dank für Eure Hilfe!
Gruß,
Shadow88
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 89240
Url: https://administrator.de/contentid/89240
Printed on: April 16, 2024 at 04: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é
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
Vielen Dank euch beiden!
Ihr habt mir sehr geholfen. =)
Ihr habt mir sehr geholfen. =)