Automatisk nummerering.

Der er en række argumenter for ikke at gøre det på den måde! Jeg vil i stedet anbefale dig at lave et særskilt felt til autonummerering. Dette felt kan enten være genereret af Access eller vha VBA.
Hver gang du skal vise dit felt, så slår du bare de 2 felter sammen, f.eks. vha en forespørgsel eller et beregnet felt på formularen.

Du skal således have begge felter på formularen, men de kan bare være skjult (visible = false).
I en ubunden textbox skriver du:
=[DitFelt] & "-" & [DitAutonummer]

På formens AfterUpdate-event kan du så lægge denne kode:

On Error resume next
Me![DitFelt] = Me![DitFelt] & "-" & Year(Date)
ME![DitAutonummer] = DMax("[DitAutonummer]", "DinTabel")+1
If Err then ME![DitAutonummer] = 1


NB: "dinTabel", [DitFelt] og [DitAutonummer] skal selvfølgelig ændres til de respektive tabel- og feltnavne!

Jeg prøver det lige først

Jeg kan ikke få det til at virke.
Evt. kan jeg prøve at sætte 2 id-tæller op, hvor der er tvunge handling til tabel. F.eks Type1 = autonumber
                format= ABC00000
              Type2= BCD00000, hvor man i formula skal vælge mellem type1 og type2 før man kommer videre?
Men så mangler jeg stadig, at få datoen ind

Hvid [ID] er Autonummerering kan du lige før du gemmer en post
som en Hændelseprocere generere dit nummer således:
[MitNr] = [TypeFelt] & Right(Date,2) & Right(CLng(100000 + [ID]),5)

Hvor skal den hændelseprocere ske? Jeg har prøvet at gøre det ved formular, men den skriver at jeg mangler en operand? I min hovedtabel har jeg [typefelt], [ID], [User] og [Mitnr].'
[Typefelt] består af 2 værdier, så når jeg har valgt denne værdi, skulle [Mitnr] gerne genereres automatisk, men det sker ikke?
[Typefekt]= ABC og BCD
[ID]= autonummerering
[User]= 1-10
[Mitnr]= tekstbox

Hvordan gemmer du en ny post?
Du kan opså genere dit nummer ved klik på en knap. Ønsker du det?
Skal datoen også med i nummer? I dit oprindelige spørgsmål nævnte du kun
år.

Hvis du vælger en knap vil følgende kun indsætte et nyt nummer,
hvis feltet MitNr er blankt:

If IsNull([MitNr]) = True Then
  [MitNr] = [TypeFelt] & Right(Date, 2) & Right(CLng(100000 + [ID]), 5)
End If

Indsættes som Hændelsesprocedure VedKlik

Kanon, det virker!!! Du må være på min bølgelængde. Det var lige præcis, den med knappen jeg gerne ville have.Fedt 100 point til dig