hvordan man bruger en Autonummerering i Visual Basic

Indlæg af Gunner Poulsen     opdateret: 2011-10-26

Visual Basic for Applications , eller VBA , kan bruges til at automatisere processer ellers gøres manuelt . Microsoft Office Access-en relationel database , som tilbydes i Microsoft Office-pakken-giver programmører til at bruge VBA til at ændre tabeller i deres databaser . Den autonummereringsfelt bruges til entydigt at identificere poster i en tabel . Entydige poster i en tabel anvendes som primær nøgler og sekundære nøgler i andre tabeller
1 . .
Åbn Microsoft Office Access 2007 , klik på " Tom database "og derefter vælge " Create ". Klik på " Database Funktioner "og derefter vælge " Visual Basic ".
2 .
Klik på " Indsæt "-feltet , og vælg derefter " Modul ".
3 .

Kopier og indsæt denne kode i din nye modul .
Private Sub newAutoIncColumn ( )

Set dBASE=Application. CurrentDb

Set TableDef=dbase. TableDefs ( " myTableName " )

Set newClmn=TableDef. CreateField ( " AutoField " , dbLong )

Med newClmn
. Attributter=dbAutoIncrField
End With

Med TableDef. Fields
. Append newClmn

. Opdater
End With

End Sub
4 .
Rediger denne linje kode og skriv navnet på din tabel .

Set TableDef=dbase. TableDefs ( " myTableName " )


Den " AutoField " vil automatisk forøgelse af " 1 " , når nye data er indtastet i tabellen . Den " AutoField " vil blive brugt til entydigt at identificere hver enkelt post i tabellen .


Previous:hvordan du tilføjer feltadgangen med Visual Basic Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change