Software  
 
Conhecimento computador >> Software >> Microsoft Access >> 
Como usar um Autonumber Com Ano no Microsoft Access
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 >

Anterior :

Próximo : No
  Os artigos relacionados
·Como anexar um arquivo do GroupWise com o Microsoft Acc…
·Como converter dados para o Data Vertical Horizontal no…
·Como usar o Microsoft Access para um canal de vendas 
·Como converter dados em um formato vertical para um for…
·Microsoft Access Com VB.Net 
·A Tabela Comando Drop para Microsoft Access dá um erro…
·Como Condensar Microsoft Access 
  Artigos em destaque
·Como usar pés e polegadas em programas Lisp 
·O que é o arquivo de extensão Pym 
·Como instalar a barra de ferramentas do Internet Explor…
·Dicas sobre E-Learning Animação 
·Como gravar um DVD -R e RW 
·Como copiar filmes em DVD para um disco rígido de um c…
·Como traduzir um Webform em Drupal 
·Como substituir o título de um agregador de feeds em D…
·Como controlar os contratos com QuickBooks 
·Como converter para DVD VSO 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados