Definering af autonummerfelt

Det styres nemmest vha VBA på formular-niveau.

På en formulars BeforeInsert-hændelse kan du lægge denne kode:

Me!FakturaID= nz(DMax("fakturaID", "Din tabel", "Left(FakturaID,4) = Year(Date())"), 0)+1

I feltegenskaber ( format ) har du mulighed for at tilføje år, eksempelvis :

"2005 "&

Jensen, duer det så ikke kun for i år?

Jo ... det kan der være noget om :o)

Skal det være et autonummerfelt den henviser til i den tabel?

nej, du skal slet ikke bruge autonummer, da autonummer ikke kan styres. Brug bare langt heltal i stedet.


Alternativt kunne du bruge et autonummer sammen med et andet felt. Dvs et autonummer-felt samt et langt heltal-felt.

På formularens BeforeInsert kunne således lægge denne kode:
Me!fakturaID = val(cstr(Year(Date)) & Me!DitAutonummerfelt)

Men så har du altså 2 felter, hvor det ene er redundant (overflødigt) ligesom du vil opleve huller i rækkefølgen, hvis du sletter en post.

Fakturaen kom til at hedde 1.. skulle hedde 20050001

Hvad er fejlen - har brugt din kode thomasjepsen

Private Sub Form_BeforeInsert(Cancel As Integer)
Me!Fakturanummer = Nz(DMax("Fakturanummer", "ordrekart", "Left(Fakturanummer,4) = Year(Date())"), 0) + 1
End Sub

hmm...det skyldes nok, at tabellen er tom. Så finder den ikke nogle poster med 2005 i.

kigger lige på det....

Det hjalp da jeg lavede den ene om til 20050001.. så var den næste rigtig.. tænker bare mere på hvad der sker til næste år..

ja, det er netop problemet....det er nemlig også lidt problematisk, at du vil have foranstillet nuller foran 1-tallet.

Ja.. men jeg kan evt. lave for 10 år frem.. eks. 20060000 20070000.. osv.. så løser det sig selv.. eller hvad?

Det ser ud til at virke..

Er løsningen så ikke en kombination af et foematteret autonummereringsfelt og et år-felt med standardværdi Year(Date())

Prøv denne:

  Me!Fakturanummer = Year(Date) & CStr(Format(Nz(DMax("Fakturanummer", "ordrekart", "Left(Fakturanummer, 4) = Year(Date())"), 1), "0000"))

works...

stadig lidt problemer.....øjeblik ;o)

tak for point...men der er stadig problem....2 min...

nå.ok..

Ja.. det virker kun ved den første...

jep :o(

Men denne skulle være bedre (så har jeg ikke lovet for meget ;)

Me!Fakturanummer = Year(Date) & CStr(Format(Val(Mid(Nz(DMax("Fakturanummer", "ordrekart", "Left(Fakturanummer, 4) = Year(Date())"), 0), 5)) + 1, "0000"))

Det var bedre.. tak..

ja, det var lige med, at holde tungen lige i munden ;o)