Stop hvis ingen poster

If DCount("*", "qryNotExported") = 0 Then
exit sub
Else:
DoCmd.OutputTo acOutputQuery, "qryNotExported", acFormatXLS, "Exportfile.xls", True
End If

mugs - altid klar!
Tak skal du have, det var lige den jeg savnede :o)

Selv tak.

Denne er måske lidt mere brugervenlig, idet den fortæller hvorfor der ikke eksporteres:

If DCount("*", "qryNotExported") = 0 Then
MsgBox "Der er ingen poster at eksportere." & vbNewline & "Procedüren forlades."
exit sub
Else:
DoCmd.OutputTo acOutputQuery, "qryNotExported", acFormatXLS, "Exportfile.xls", True
End If