DAO.Recordset

[KlaSur]

Hallo habe folgendes Problem. Ich habe den Vba-Code ins Direktfenter geschrieben:
Dim rs as DAO.Recordset

set rs = DAO.DBEngine(0)(0).OpenRecordset("SELECT TOP 1 * From qryRechnug_Base_Clean)
?rs.RecordCount

Ich erhalte da einen Fehler "Laufzeitfehler 424: Objekt erforderlich

Die Abfrage wenn ich sie "von Hand" starte erhalte ich >30000 Zeilen.

Was mache ich falsch?

Gruß Klaus

 

[andyfau]

Das Direktfenster führt nur einzeilige Befehle aus. Man kann also keine, wenn auch kleine, Prozedur schreiben.

Was z.B funktionieren dürfte:

? CurrentDb.OpenRecordset("SELECT * FROM Kunden").RecordCount

 

[KlaSur]

Danke für den Hinweis Andreas. Habe chatgpt bereits gefragt, mit dem gleichen Ergebnis!
Gruß Klaus

 

[Knattertasche]

Das reicht eventuell nicht. Um sicher zu gehen musst Du erst zum Ende der Datensätze gehen.
Access kann Dir sonst auch Blödsinn anzeigen.
Dim rs as DAO.Recordset
set rs = DAO.DBEngine(0)(0).OpenRecordset("SELECT TOP 1 * From qryRechnug_Base_Clean)
if not rs.EOF then
rs.MoveLast
debug.print rs.RecordCount
else
debug.print 0
end if

Gruß Jo