Acces a problém s visual basicem

[Pjetr]

Ve visual basicu v accesu vytvořím dotaz a chci spočítat počet záznamů výsledného dotazu. Vše funguje až do té doby, kdy dotaz nemá žádný výsledek, neboli nulový počet záznamů. Jak mám toto ošetřit, přikládám zdrojový text funkce ve visual basicu.

Function fPocetUhynulychJehnat() 'nad 45 dní
Dim db As Database
Set db = CurrentDb
Dim qdf As QueryDef
Dim rs As Recordset
Dim st As String

st = "SELECT * FROM [doklad zvířete] WHERE ((([doklad zvířete].[Matka číslo]) = " & Chr(34) & Me.Číslo_ušní_známky.Value & Chr(34) & ") And ([Datum vyřazení] <> 0) And ((([Datum vyřazení] - [Datum narození])) <= 45))"
Set qdf = db.CreateQueryDef("", st)
Set rs = qdf.OpenRecordset
rs.MoveLast
fPocetUhynulychJehnat = rs.RecordCount
rs.Close
End Function


Díky za radu
Pjetr

[pavel.minarik]

doporučuji počítat "SELECT COUNT(*) FROM ..."

[VasekB]

pojmenovani sloupcu s diakritikou bych take radeji vynechal.. muze to udelat pekne neprjemnosti Pr: ".Číslo_ušní_známky"