Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Access 2007 a zvoľte " Prázdna databáza , " kliknite na tlačidlo " Vytvoriť " . Kliknite na tlačidlo " Databázové nástroje " , potom vyberte " Visual Basic " .
2
Klepnite na pole Vložiť a vyberte " modul " .
3
skopírovať a vložiť nasledujúci kód do modulu :
Private Sub autoIncrementField ( )
Set DBS = Application.CurrentDb
Set tblDef = dbs.TableDefs ( " addressTbl " )
Nastavenie Newfield = tblDef.CreateField ( " AutoField " , dbLong )
S NEWFIELD
. Atribúty = dbAutoIncrField
End With
tblDef . Fields
. Append NEWFIELD
. Obnoviť
End With
End Sub
4
Upraviť nasledujúci riadok kódu a zadajte názov vášho stola :
Set tblDef = dbs.TableDefs ( " addressTbl " )
Stlačte " F5 " vykonať svoje podprogram
.