|
Définition d'un champ " NuméroAuto " dans vos tables de base de données Microsoft Access peut vous aider à gérer vos données dans le futur quand vous avez besoin de le récupérer en utilisant des requêtes . Un champ " NuméroAuto " incrémente automatiquement par un pour chaque nouvelle ligne et ne peut pas être changé. Ce champ permet de garder chaque rangée unique dans une table de base de données . Normalement, un champ " NuméroAuto " va commencer avec le numéro un par défaut. Si vous voulez commencer le champ avec une année comme 2000, vous devez exécuter quelques questions avant de commencer à ajouter des données à votre table. Instructions
1 Lancez Microsoft Access, cliquez sur l'onglet "Créer" et cliquez sur " Table ". Cliquez sur la première ligne , remplacer « ID » à « YearColumn " et définir le " type de données " comme " AutoNumber ». Cliquez sur la ligne suivante et tapez" TextField "pour créer un deuxième champ et appuyez sur" Entrée ". Fermez votre tableau en cliquant sur le « x »dans le coin à droite . Tapez " myYearTable " lorsque vous êtes invité à donner votre table un nom.
2 Cliquez sur l'onglet "Outils de base de données " et cliquez sur " Visual Basic " pour lancer l'éditeur VB . Cliquez sur " Insérer> Module " pour ajouter un nouveau module de code
3 Ajoutez le code suivant pour créer un nouveau sous procédure : .
CreateYearTable Private Sub ()
4 Copiez et collez le code suivant pour créer une variable pour stocker votre instruction SQL et l'autre pour définir l'année de départ de votre tableau :
strSQL As StringDim startingYear As String
5 Copiez et collez le code suivant pour définir l'année de départ comme "2000" pour votre domaine " NuméroAuto " et exécuter un "INSERT INTO " query :
startingYear = "2000" ; strSQL = "INSERT INTO myYearTable ( YearColumn ) " strSQL = strSQL & "SELECT '" & ( startingYear ) & "' AS Expr1 " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL )
6 Ajoutez le code suivant pour supprimer les données que vous avez inséré à l'étape précédente :
strSQL = "Delete" strSQL = strSQL & "FROM myYearTable " strSQL = strSQL & «OÙ YearColumn = ' " & ( startingYear ) & "' ; " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) MsgBox ( "Done !")
7 presse "F5" pour exécuter la procédure et revenir à Microsoft access. Double -cliquez sur " myYearTable " pour ouvrir la table. Tapez " Données " ci-dessous " Zone de texte " et appuyez sur "Entrée " pour afficher la première année " NuméroAuto " que " 2001. " Entrer du texte dans les lignes suivantes pour incrémenter l'année par un pour chaque nouvelle ligne.
< Br >
|
