Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Office Access 2007 , kliknite na tlačidlo " Prázdna databáza " a vyberte " Vytvoriť " . Kliknite na tlačidlo " Databázové nástroje " , potom vyberte " Visual Basic " .
2
Kliknite na " Vložiť " pole a potom vyberte " Module " .
3
Kopírovať a vložte tento kód do nového modulu .
Private Sub newAutoIncColumn ( )
Set dBASE = Application.CurrentDb
Set TableDef = dbase.TableDefs ( " myTableName " )
Nastaviť newClmn = TableDef.CreateField ( " AutoField " , dbLong )
S newClmn
. Atribúty = dbAutoIncrField
End With
S TableDef.Fields
. Append newClmn
. Obnoviť
End With
End Sub
4
Upraviť tento riadok kódu a zadajte názov vášho stola .
Set TableDef = dbase.TableDefs ( " myTableName " )
" AutoField " sa automaticky zvýši o " 1 " , ak je nové dáta zadané do tabuľka . " AutoField " bude použitý pre jednoznačnú identifikáciu každý záznam v tabuľke .