Saber como criar programaticamente uma mesa e , em seguida, adicionar um campo de número de auto usando o Visual Basic for Applications (VBA ) você pode economizar tempo ao trabalhar com o Microsoft Office Access. Access é um sistema de gerenciamento de banco de dados relacional incluídos na suíte Microsoft Office. VBA é uma linguagem de programação de computadores usados ​​em aplicativos do Microsoft Office para automatizar processos manuais, tais como a criação de tabelas . Em poucos passos você pode escrever código VBA para criar uma tabela , adicionar dados a ele e adicione um campo de número de auto -lo. Instruções
1

Abra o Microsoft Office Access 2007 e clique em " Banco de Dados em Branco ", em seguida, selecione " Criar". Clique em " Ferramentas de Banco de Dados ", selecione " Visual Basic " para abrir a janela do Microsoft Visual Basic. Selecione "Inserir " e clique em
2

Copie e cole o seguinte código no módulo "Módulo ". :

Private Sub createAutoNumberField ()

Set dbs = Application.CurrentDb

SQLString = " CREATE TABLE InstrumentInfo (Instrumento TEXTO, SerialNumber texto)"

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( SQLString )

strsql = " INSERT INTO VALUES InstrumentInfo ( ' MXA ' , '83456 ' ) "

DoCmd.RunSQL ( strsql )

strsql = " INSERT INTO VALUES InstrumentInfo (' Gerador de Sinal ' , '1244532 ') "

DoCmd.RunSQL ( strsql )

Definir tblDef = dbs.TableDefs ( " InstrumentInfo " )

Set AutoField = tblDef.CreateField ( " AutoColumn " dbLong )

Com AutoField

. Atributos = dbAutoIncrField

End With

Com tblDef.Fields

. Anexar AutoField

. Atualizar

End With

Sub End
3

Execute o sub-rotina com a tecla " F5 ".
< br >