title image


Smiley Re: VBA: Ausfindig machen ob Source Datensätze erhält
Hi,

also wenn du nur wissen willst ob eine Filterung Daten enthält würde ich einfach per SQL-Befehl Count zählen.



Gruss Thomas



siehe Beispiel:

If DBCount"Vorname", "tab_Person", "Vorname = 'Sabine'") > 0 Then

....

else

msgbox"Keine Daten"

End If



Function DBCount(Feld As String, Quelle As String, Optional Bedingung As String) As Long



On Error Resume Next

Set db = DBEngine(0)(0)

strAgSQL = "SELECT Count(" & Feld & ") AS DBWert FROM " & Quelle

If Len(Bedingung) Then

strAgSQL = strAgSQL & " WHERE (" & Bedingung & ");"

Else

strAgSQL = strAgSQL & ";"

End If



DBCount = -1 'Falls Fehler, wird -1 zurückgegeben

DBCount = db.OpenRecordset(strAgSQL, dbOpenForwardOnly).Fields(0)

End Function


Viele Leute glauben das sie denken, wenn sie lediglich ihre Vorurteile neu ordnen. (William James)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: