Comment puis-je créer Autoincrement champs dans Visual Basic pour Access?

Comment puis-je créer Autoincrement champs dans Visual Basic pour Access?


Savoir créer un champ autoincrement dans une table d'accès en utilisant Visual Basic pour Applications, ou VBA, peut rendre votre application plus dynamique. Un champ autoincrement est un champ dans une table qui incrémente automatiquement pour chaque nouvel enregistrement. Microsoft Office Access est un système de gestion de base de données relationnelle utilisée pour les plus petites bases de données. VBA est un langage de programmation développé par Microsoft et est utilisé pour automatiser les tâches de routine dans les applications Microsoft Office.

Instructions

1 Démarrez Microsoft Office Access 2007 et sélectionnez "Base de données vide," puis cliquez sur "Créer". Cliquez sur "Database Tools", puis sélectionnez "Visual Basic."

2 Cliquez sur le champ Insérer et sélectionnez "Module".

3 Copiez et collez le code suivant dans votre module:

Private Sub autoIncrementField ()

Set dbs = Application.CurrentDb

Set TBLDEF = dbs.TableDefs ( "addressTbl")

Set Newfield = tblDef.CreateField ( "AutoField", dbLong)

Avec Newfield

.attributes = DbAutoIncrField

Terminer par

Avec tblDef.Fields

.Append Newfield

.Rafraîchir

Terminer par

End Sub

4 Modifier la ligne de code et tapez le nom de votre tableau suivant:

Set TBLDEF = dbs.TableDefs ( "addressTbl")

Appuyez sur "F5" pour exécuter votre sous-programme.