Definir um campo " AutoNumeração " em suas tabelas de banco de dados Microsoft Access pode ajudar você a gerenciar seus dados no futuro, quando você precisa recuperá-lo usando consultas . Um campo " AutoNumeração " será incrementado automaticamente por um para cada nova linha e não pode ser alterado . Este campo irá manter cada linha exclusiva em uma tabela de banco de dados . Normalmente, um campo " AutoNumeração " vai começar com o número um por padrão. Se você quer começar o campo com um ano como 2000 , você precisa executar um par de consultas antes de você começar a adicionar dados à sua mesa. Instruções
1
Abra o Microsoft Access, clique na aba " Criar" e clique em " Tabela ". Clique na primeira linha , a mudança " ID " para " YearColumn " e defina o " Tipo de dados " como " AutoNumeração ". Clique na próxima linha e digite" TextField "para criar um segundo campo e pressione" Enter ". Feche sua tabela clicando no " x " no canto direito . Digite " myYearTable " quando solicitado a dar sua mesa um nome.
2
Clique na aba " Banco de Dados Tools" e clique em " Visual Basic " para iniciar o Editor do VB . Clique em " Inserir> Módulo " para adicionar um novo módulo de código
3
Adicione o seguinte código para criar um novo procedimento sub: .
Private Sub createYearTable ()
4
Copie e cole o seguinte código para criar uma variável para armazenar a instrução SQL e outra para definir o ano de início da sua mesa :
Dim strSQL Como StringDim startingYear as String
5
Copiar e colar o seguinte código para definir o ano, a partir de "2000" para o seu campo " AutoNumeração " e executar um "INSERT INTO" consulta:
startingYear = "2000" ; strSQL = " INSERT INTO myYearTable ( YearColumn ) " strSQL = strSQL & "SELECT '" & ( startingYear ) & "' AS Expr1 " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL )
6
Adicione o seguinte código para remover os dados que você inseriu na etapa anterior :
strSQL = "Delete" strSQL = strSQL & "FROM myYearTable " strSQL = strSQL & "ONDE YearColumn = '" & ( startingYear ) & " '; " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) Msgbox ( " ! Done" )
7
Imprensa "F5" para executar o procedimento e voltar para o Microsoft Access. Dê um duplo clique em " myYearTable " para abrir a mesa. Digite abaixo " Campo de texto " "Data" e pressione "Enter " para ver o primeiro " AutoNumeração " ano " de 2001. " Enter mais texto nas seguintes linhas para incrementar o ano por um para cada nova linha.
< Br >