Att ha kunskap om hur man redigerar en kolonn med en primärnyckel begränsning kan spara tid när du arbetar med en Microsoft Access-databas . Rader i en tabell identifieras unikt med en primärnyckel begränsning för dataintegritet . Access skapas ett unikt index för att möjliggöra snabb tillgång till data i en tabell med en primärnyckel . Använd Visual Basic for Applications ( VBA ) i Access för att automatisera processer som att redigera ett primärnyckelkolumn . Instruktioner
1
Starta Microsoft Office Access och välj " Tom databas " klicka sedan på " Skapa ". Välj " Database Tools " -menyn och klicka sedan på " Visual Basic . " Välj " Infoga " -menyn och klicka sedan på
2
Skriv följande för att skapa ett nytt förfarande " Modul . " :
Private Sub editPrimaryKey ( ) katalog
Tryck " Ange " Addera 3
Skriv följande för att förklara de variabler som du använder för att skapa en ny tabell med en primärnyckel : .
Dim strSQL As String
Dim rst som Recordset
Dim dbs som databas
4
Skriv följande för att definiera databas som ska användas :
Set dbs = CurrentDb
5
Skriv följande för att utföra en SQL-sats och skapar en tabell som heter " DataTable " med en primärnyckel :
strSQL = " CREATE tABLE DataTable "
strSQL = strSQL & " ( PK_Field INTEGER CONSTRAINT PK_PK_Field PRIMARY KEY , "
strSQL = strSQL & " city TEXT ( 25 ) ) "
DoCmd.RunSQL ( strSQL )
6
skriv följande för att lägga till tre rader med data till den nya tabellen :
strSQL = " INSERT INTO DataTable ( [ PK_Field ] , [City] ) "
strSQL = strSQL & " VALUES ( 1 , " Fort Worth ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO DataTable ( [ PK_Field ] , [ stad ] ) "
strSQL = strSQL & " VALUES (2, ' Arlighton ' ) ; "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO DataTable ( [ PK_Field ] , [ stad ] ) "
strSQL = strSQL & " VALUES (3, ' Dallas ' ) ; "
DoCmd.RunSQL ( strSQL )
7
skriv följande för att ta bort primärnyckeln inställningen från " PK_Field " fältet :
strSQL = " ALTER TABLE DataTable "
strSQL = strSQL & " DROP CONSTRAINT PK_PK_Field , "
DoCmd.RunSQL ( strSQL ) katalog
bort den primära avgörande begränsning gör att du kan redigera primärnyckelkolumn .
8
Skriv följande för att öppna " DataTable " och redigera bord med en postmängd :
Set rst = dbs.OpenRecordset ( " DataTable " ) katalog
rst.MoveFirst
rst.Edit
rst.Fields ( " PK_Field " ) . Value = 6
rst.Update
rst.Close
koden kommer att uppdatera " PK_Field " till 6 för den första raden. Tryck " F5 " för att köra subrutinen .
9
Växla tillbaka till Microsoft Access-fönstret och högerklicka på " DataTable " tabellen ligger i den vänstra rutan på din datorskärm . Välj " Design " och klicka på " PK_Field " raden . Klicka på " Primary Key " -ikonen från " Tools " kan du ställa in detta fält till ett primärnyckelfält .
