Å ha kunnskap om hvordan du redigerer en kolonne med en primærnøkkel begrensningen kan spare deg for tid når du arbeider med en Microsoft Access database. Rader i en tabell er entydig identifisert ved hjelp av en primærnøkkel begrensning for dataintegritet . Access oppretter en unik indeks for å tillate rask tilgang til data i en tabell med en primærnøkkel. Bruk Visual Basic for Applications ( VBA ) i Access til å automatisere prosesser som å redigere en primærnøkkel kolonne. Instruksjoner
en

start Microsoft Office Access og velg "Blank Database " klikk " Opprett". Velg " Database Verktøy "-menyen og klikk på " Visual Basic. " Velg " Insert" -menyen og klikk
2

Skriv inn følgende for å opprette en ny prosedyre " Module ". : En

Private Sub editPrimaryKey ( )

Trykk " Enter "
3

skriv inn følgende å erklære variablene du vil bruke til å lage en ny tabell med en primærnøkkel: .

Dim strSQL As String
< p> Dim rst Som Recordset

Dim dBS Som database
4

Skriv inn følgende for å definere databasen for å bruke : en

Set dBS = CurrentDb

5

Skriv inn følgende for å utføre en SQL-setning og lage en tabell kalt " datatable " med en primærnøkkel:

strSQL = "CREATE tABLE datatable "

strSQL = strSQL & "( PK_Field INTEGER CONSTRAINT PK_PK_Field PRIMARY KEY , "

strSQL = strSQL & " city TEKST ( 25 ) )"

DoCmd.RunSQL ( strSQL )
6

skriv inn følgende for å legge til tre rader med data til den nye tabellen : en

strSQL = " INSERT INTO datatable ( [ PK_Field ], [Sted ]) "

strSQL = strSQL & " VALUES ( en , ' Fort Worth '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO datatable ( [ PK_Field ] , [ by] ) "

strSQL = strSQL &" VALUES ( 2 , ' Arlighton '); "

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO datatable ( [ PK_Field ] , [ by] ) "

strSQL = strSQL &" VALUES ( 3 , ' Dallas '); "

DoCmd.RunSQL ( strSQL )
7

skriv inn følgende for å fjerne primærnøkkelen innstillingen fra " PK_Field "-feltet : en

strSQL = " ALTER TABLE datatable "

strSQL = strSQL & " DROP CONSTRAINT PK_PK_Field ; "
< p > DoCmd.RunSQL ( strSQL )

fjerne primærnøkkelen begrensningen vil tillate deg å redigere primærnøkkelen kolonnen .
8

Skriv inn følgende for å åpne " datatable " og redigere tabellen ved hjelp av en RecordSet :

Set rst = dbs.OpenRecordset ( " datatable ")

rst.MoveFirst

rst.Edit

rst.Fields ( " PK_Field ") . Verdi = 6

rst.Update

rst.Close

koden vil oppdatere " PK_Field " til 6 for den første raden. Trykk "F5 " for å kjøre subrutine .
9

Switch tilbake til Microsoft Access Window og høyre -klikk på " datatable " tabellen ligger i den venstre ruten på skjermen . Velg " Design View" og klikk " PK_Field " rad. Klikk på "Primary Key "-ikonet fra "Verktøy " -panelet til å sette dette feltet tilbake til en primærnøkkel felt .