Auftragsnummern fⁿr den aktuellen Monat vergeben

Ich lege gerade mit MS Access 2000 eine Datenbank fⁿr meine Kunden- und Auftragsverwaltung an. Nun m÷chte ich gerne, dass Access automatisch fortlaufende Auftragsnummern erzeugt. Diese Nummern sollen auf Jahr, Monat und einer laufenden Nummer basieren, also zum Beispiel ╗200006123½ fⁿr den 123. Auftrag im Juni 2000. K÷nnen Sie mir helfen?

Sie k÷nnen in einer Konfigurations-Tabelle die zuletzt vergebenen Auftragsnummern ablegen. Alternativ k÷nnen Sie in den DatenbestΣnden die bereits vergebenen Auftragsnummern analysieren. Au▀erdem sind folgende ▄berlegungen n÷tig: Wird die Nummer immer anhand des aktuellen Datums vergeben, oder ist es vorstellbar, dass Sie einen Auftrag fⁿr den letzten oder vorletzten Monat erfassen m÷chten? Greifen unterschiedliche Nutzer gleichzeitig auf die Anwendung zu?
Die vorgestellte L÷sung nutzt neben den eigentlichen Datentabellen eine Tabelle namens ╗Config½, in denen Access 2000 fⁿr jeden einzelnen Monat die zuletzt vergebene laufende Nummer ablegt. Das Feld ╗Monat½ ist vom Typ ╗Text½ und hat genau 6 Stellen. Hier speichert Access jeweils den Monat im Format ╗JJJJMM½. Das Feld ╗lfdNummer½ ist von Typ ╗Zahl½ und enthΣlt die fⁿr den jeweiligen Monat zuletzt vergebene laufende Nummer.
ZusΣtzlich ben÷tigen Sie eine VBA-Funktion ╗getNumber()½, die aus einem als Parameter ⁿbergebenen Datum Monat und Jahr extrahiert, in der Tabelle ╗Config½ die zuletzt vergebene laufende Nummer ermittelt, die neue Auftragsnummer erzeugt und abschlie▀end die Tabelle ╗Config½ aktualisiert. Als Rⁿckgabewert liefert diese Funktion die neue Auftragsnummer.

Public Function getNumber(Datum As Date) As String

   Dim Datenbank As Database
   Dim rstConfig As Recordset
   Dim Monat As String
   Dim Jahr As String
   Dim nummer As Integer
   Dim Bedingung As String

On Error GoTo Err_checkFiles

   Jahr = Year(Datum)
   Monat = Month(Datum)
   If Monat < 10 Then
      Monat = ä0ä & Monat
   End If

   getNumber = Jahr & Monat

   Set Datenbank = CurrentDb
   Set rstConfig = Datenbank.OpenRecordset(äConfigä, dbOpenDynaset)

   Bedingung = äMonat = æä & getNumber & äæä
   rstConfig.FindFirst Bedingung

   If rstConfig.NoMatch Then
      nummer = 1
      rstConfig.AddNew
      rstConfig!Monat = getNumber
      rstConfig!lfdNummer = 1
      rstConfig.Update
   Else
      nummer = rstConfig!lfdNummer
nummer = nummer + 1
      rstConfig.Edit
      rstConfig!lfdNummer = nummer
      rstConfig.Update
   End If

   If nummer < 10 Then
      getNumber = getNumber & ä00ä & nummer
   ElseIf nummer < 100 Then
      getNumber = getNumber & ä0ä & nummer
   Else
      getNumber = getNumber & nummer
   End If
rstConfig.Close

Exit_checkFiles:
   Exit Function

Err_checkFiles:
   MsgBox Err.Description
   Resume Exit_checkFiles

End Function