title image


Smiley TIPP: Bericht nur drucken wenn Daten vorhanden


If Dcount("*","DeineAbfrage",DeineKriterien) > 0 then

Docmd.OpenReport "DeinBericht",,,DeineKriterien

else

MsgBox "Keine Daten!", vbexclamation

end if





Oder das NoData-Ereignis des Berichts nehmen:



Private Sub Report_NoData(Cancel As Integer)

MsgBox "Keine Daten!", vbexclamation

Cancel = True

End Sub





Dann musst du allerdings den Fehler beim Öffnen des Berichts abfangen:



On Error resume Next

Docmd.OpenReport "DeinBericht",,,DeineKriterien

On Error Goto 0



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: