title image


Smiley TIPP: Bericht in einer Schleife filtern und drucken
Das geht etwa so:



Dim RS as DAO.Recordset

Set RS = Currentdb.Openrecordset("SELECT DISTINCT RechnungNr FROM tblRechnung", dbOpenSnapshot

Do Until RS.EOF

Docmd.OpenReport "rptRechnung",,,"RechnungNr= " & RS!RechnungNr´

RS.MoveNext

Loop

RS.Close





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: