Datensätze nummerieren

Während die Nummerierung in Access-Berichte keine grosse Herausforderung darstellt (siehe Ordner 'Berichte'), muss in Access-Abfragen, um das gleiche Ziel zu erreichen, mit einer kleinen VBA-Funktion nachgeholfen werden:

Function Nummerierung(varId As Variant) As Integer
 
    Static intCounter As Integer
  
    If IsNull(varId) Then
       intCounter = 0
    End If
  
    intCounter = intCounter + 1
  
    Nummerierung = intCounter
  
 End Function

Aufgerufen wird die Funktion in einer neuen Spalte der Abfrage:

Neuer Spaltenname: Nummerierung([DatenbankSchlüsselFeld])

Im Entwurfsfenster der Abfrage könnte das folgendermassen aussehen:

Um den Zähler auf 0 zurückzusetzen muss die Funktion, zwischen zwei Abfragen einmal mit dem Parameter NULL aufgerufen werden.

= Nummerierung(NULL)

Benötigen Sie Unterstützung oder weiterführende Informationen, gerne helfen wir Ihnen weiter, reden Sie doch einfach mit uns.

Die Informationen dieser Seite dürfen, gemäss unseren Nutzungsbestimmungen, kostenlos weiterverwendet werden.

Reto Maurer's Software-Chuchi
Seestrasse 26
CH-8802 Kilchberg-Zürich
Telefon: +41 79 635 47 31
E-Mail:info@software-chuchi.ch