Tendo o conhecimento sobre como editar uma coluna com uma restrição de chave primária pode poupar tempo quando se trabalha com um banco de dados Microsoft Access. Linhas em uma tabela são identificados exclusivamente com uma restrição de chave primária para a integridade dos dados. O Access cria um índice único para permitir o acesso rápido aos dados em uma tabela com uma chave primária . Usar o Visual Basic for Applications ( VBA ) no Access para automatizar processos, tais como a edição de uma coluna de chave primária . Instruções
1

Comece Microsoft Office Access e selecione " Banco de Dados em Branco " , em seguida, clique em "Criar ". Selecione o menu "Banco de Dados Tools " e clique em "Visual Basic". Selecione o menu "Inserir ", clique em "Módulo ".
2

Digite o seguinte para criar um novo procedimento :

Private Sub editPrimaryKey ()

Imprensa " . Enter "
3

Digite o seguinte para declarar as variáveis ​​que você vai usar para criar uma nova tabela com uma chave primária :

Dim strSQL as String

rst Dim Recordset

Dim dbs as Database
4

Digite o seguinte para definir o banco de dados para usar:

Set dbs = CurrentDb

5

Digite o seguinte para executar uma instrução SQL e criar uma tabela chamada " dataTable " com uma chave primária :

strSQL = " CREATE TABLE dataTable "

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

strSQL = strSQL & " cidade TEXT ( 25) ) "

DoCmd.RunSQL ( strSQL )
6

digite o seguinte para adicionar três linhas de dados para a nova tabela :

strSQL = " INSERT INTO dataTable ( [ PK_Field ], [ cidade ] ) "

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

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO dataTable ( [ PK_Field ], [ cidade ] ) "

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

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO dataTable ( [ PK_Field ], [ cidade ] ) "

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

DoCmd.RunSQL ( strSQL )
7

digite o seguinte para remover a definição da chave primária do campo " PK_Field " :

strSQL = " ALTER TABLE dataTable "

strSQL = strSQL & " DROP CONSTRAINT PK_PK_Field ; "

DoCmd.RunSQL ( strSQL )

Retirar a restrição de chave primária permitirá que você editar a coluna de chave primária .
8

Digite o seguinte para abrir o " dataTable " e editar o tabela usando um conjunto de registros:

Set rst = dbs.OpenRecordset ( " dataTable " )

rst.MoveFirst

rst.Edit

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

rst.Update

rst.Close

o código irá atualizar o " PK_Field " a 6 para a primeira linha . Pressione " F5" para executar a sub-rotina.
9

Volte para a janela do Microsoft Access e clique com o botão direito na tabela " dataTable ", localizada no painel esquerdo da tela do computador . Selecione " Modo Design " e clique na linha " PK_Field " . Clique no ícone " Chave Primária " no painel "Tools" para definir este campo de volta para um campo de chave primária.