title image


Smiley Willst du das wirklich!?
Ich hoffe, es geht nicht um die Rechnungsnummer - da wäre es nämlich fatal, sie bei jedem Ausdruck hochzuzählen...



Ansonsten halt im Bericht:



Private Sub Report_Close()

Dim RS As DAO.Recordset

Set RS = Currentdb.Openrecordset("DeineParametertabelle",dbOpendynaset)

if RS.EOF then

RS.Addnew

RS!DeinZaehler = 1

else

RS.Edit

RS!DeinZaehler = RS!DeinZaehler +1

end if

RS.Update

RS.Close

End Sub



Am besten kapselt man so etwas in einen Satz allgemein verwendbarer Routinen. Schau dir dazu mal die DBWiki-Beispiele zum Thema "Parameter" an.

Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: