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

 

[KlaSur]

Hallo Jo, es ist doch möglich kleine Codezeilen ins Direktfenster zu schreiben?

Gruß Klaus

 

[Knattertasche]

Wenn Du bei meinem Code oben einen Haltepunkt setzt bei debug.print rs.Recordset,
dann kannst Du im Direktfenster - ? rs!RecordCount - eingeben und er zeigt Dir die Anzahl.
Oder auch einen Wert einer Variablen.
Immer eine Zeile mit dem Fragezeichen davor. Fragezeichen für Print.
Ansonsten kannst Du auch Funktionen erstellen und dann mit ?NameDerFunktion den Rückgabewert ermitteln.
Wie

Public Function Test(meineZahl as long) as Long
    Test =meineZahl + 2
end function

Im Direktfenster dann
?Test(8)
Gruß
Jo