Mit aktuellem Datum arbeiten...?!

Ich möchte aus dem aktuellen Datum eine Nummer von Access 97 automatisch generiert haben, die dann wie folgt aufgebaut ist:

000329-01

Also: Jahr (00), Monat (03), Tag (29) und laufende Nummer pro Tag (01).

Ich habe zwar etwas gefunden, daß wie folgt aussieht:

z = now
Tag% = Day(z)
Monat% = Month(z)
Jahr% = Year(z)

Es funktioniert aber nicht. Dauernd wird mir angezeigt, daß ein Definitionsfehler vorliegt. z müßte meiner Meinung nach definiert (dim) werden, aber mit welchem Typ?

Oder gibt es eine andere Lösung?

Danke!

Versuchs mal damit:

Private Sub akt\_Datum()
Dim Datum As Variant
Dim Zahl As String
Dim nummer As Integer

 nummer = 1
 Datum = Now
 Zahl = Right(Year(Datum), 2) & Month(Datum) & Day(Datum) & "-" & nummer
 MsgBox (Zahl)
End Sub

)

Es funktioniert aber nicht. Dauernd wird
mir angezeigt, daß ein Definitionsfehler
vorliegt. z müßte meiner Meinung nach
definiert (dim) werden, aber mit welchem
Typ?

Als Date, also Dim z As Date.

Diese Variablen-Postfixe ($, % usw.) für den Typ kommen noch aus tiefsten Ur-BASIC Zeiten, würde ich nicht mehr verwenden (wußte gar nicht, daß das unter VBA noch funktioniert), tu die Variabel einfach normal auf Integer deklarieren, dann sollte das alles gehen.

Grüße, Robert