VBA functie entries tellen van rapport/query

[XcelMan]

Hallo iedereen,

Ik ben middels deze site goed op weg geholpen in de wondere wereld van VBA in Access.

Nu wil ik mijn VBA laten stoppen als er 0 entries in een query (of het hierop gebaseerde) rapport staan. Met welk commando en bijbehorende parameters doe ik dit?

Alvast bedankt voor de hulp!

Groetjes,
De XcelMan

 

[Floor E]

Ik doe het zelf op de volgende manier, misschien omslachtig maar het werkt wel prima:

Dim rst As New ADODB.Recordset 
Dim strSql as string
Dim lngTeller as long

strSql = "Plaats hier de SQLcode van je query " 
'Let op " vervangen door '

rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText
'Let op: deze parameters staan goed. 

lngTeller = rst.RecordCount  'Hier tel je de records

rst.close 'sluiten van recordset

 

[XcelMan]

Ik heb al een werkende code
Toch bedankt!

If DCount("[OrderId]", "Tabel") = 0 Then
    MsgBox ("Er zijn geen records, voer een nieuwe record toe")
    Exit Sub

 

[Floor E]

Prima. De code die ik gebruik kan je ook gebruiken voor gekopppelde tekstbestanden en daar werk veel mee. Jouw code is een stuk handiger bij lokale tabellen