Lave autonum-felt i VBA

Du kan i access vælge typen autonummerering på fx dit nøglefelt så går det hele af sig selv

Når du så indsætter i tabellen skal du ikke indsætte i det felt du har autonummerering på det gør den selv

Cesil << Jeg er godt klar over, hvordan man laver autonummering i designvisning i Access-programmet. Dét er den manuelle måde at gøre det på. Problemet er, at det skal ske 100% automatisk vha. VBA-kode.

Man kan sagtens oprette og bruge en Access-database uden overhovedet at have installeret Access-programmet. Det kræver så bare, at man afvikler VBA-koden fra fx Excel eller Word.

Det er ikke datatypen du skal have fat i, men derimod attributes på feltet. Lidt simpelt kode ser sådan her ud:

Public Sub xx()
Dim tdf As TableDef
Dim fld As Field

  Set tdf = CurrentDb.CreateTableDef
 
  With tdf
    Set fld = .CreateField(\"xyz\", dbLong)
    fld.Attributes = dbAutoIncrField
    .Fields.Append fld
    .Name = \"XyzHemmelig\"
  End With
 
  CurrentDb.TableDefs.Append tdf
 
  Set tdf = Nothing
 
End Sub

Mvh
Jesper

jesperthomsen >> Tak, det var lige præcis, hvad jeg havde brug for. Mit problem er løst.

Opret lige et svar, så er de 30 points dine.

Ok - her har du svaret, hehe. Jeg er ny bruger her så jeg fumler lige lidt.

Jamen, velkommen til Eksperten! :-)