? Saber como criar um campo auto-incremento em uma tabela do Access usando o Visual Basic for Applications, ou VBA, pode fazer a sua aplicação mais dinâmica. Um campo de auto-incremento é um campo em uma tabela que incrementa automaticamente para cada novo registro. Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional usado para bancos de dados menores . VBA é uma linguagem de programação desenvolvida pela Microsoft e é utilizado para automatizar tarefas de rotina em aplicativos do Microsoft Office . Instruções
1

Inicie o Microsoft Office Access 2007 e selecione " Banco de Dados em Branco ", clique em " Criar". Clique em " Ferramentas de Banco de Dados ", selecione "Visual Basic".
2

Clique no campo Inserir e selecione "Módulo ".
3

Copie e cole o seguinte código em seu módulo:

Private Sub autoIncrementField ()

Set dbs = Application.CurrentDb

Definir tblDef = dbs.TableDefs ( " addressTbl " )

Definir newField = tblDef.CreateField ( " AutoField " , dbLong )

Com newField

. Atributos = dbAutoIncrField

End With

Com tblDef . Campos

. Anexar newField

. Atualizar

End With End Sub

4

Edite a seguinte linha de código e digite o nome de sua tabela:

Definir tblDef = dbs.TableDefs ( " addressTbl " )

Pressione " F5 " para executar sua rotina
.