Avec Access, de Microsoft, vous avez créé une base de données pour gérer vos enregistrements d’interviews téléphoniques. Vous avez constitué le formulaire Interview, à partir de la table du même nom. Vous avez tapé les références, Interv-1 et Interv-2, de vos deux premiers enregistrements, dans le champ Numéro. A chaque nouvel enregistrement, vous souhaitez automatiser la saisie de ce champ en incrémentant la partie numérique de la chaîne de caractères.Pour cela, vous devez faire appel à une procédure en VB qui utilise les fonctions MaxDom et Droite. La première vous permet de définir le nombre maximal de caractères entrés dans le champ Numéro. La seconde sert à remplacer la partie numérique (située à droite de la chaîne de caractères) par une valeur incrémentée de 1 dans notre exemple.Pour y parvenir, à partir de la fenêtre Base de données d’Access, activez l’onglet Formulaires, puis cliquez deux fois sur Interview. Votre formulaire apparaît à l’écran. Déroulez le menu Affichage/Mode création. Faites un clic droit sur le champ Numéro et choisissez Propriétés. Une fenêtre s’ouvre. Activez l’onglet Evénement. Cliquez dans le champ Après MAJ. Deux boutons s’affichent à l’extrémité droite du champ. Cliquez sur le premier, représentant une flèche vers le bas, puis choisissez la ligne [Procédure événementielle]. D’un clic droit sur cette dernière valeur, sélectionnez Créer. Une nouvelle fenêtre de Visual Basic apparaît.Saisissez le listing ci-dessous, puis basculez vers Access en enfonçant les touches Alt + Q. Dans le menu Affichage, choisissez Mode formulaire. A chaque nouvel enregistrement, il vous suffit d’entrer n’importe quel caractère dans le champ Numéro, puis de valider par la touche Entrée. La référence précédemment saisie est alors automatiquement incrémentée d’une unité. Dans notre cas, tapez la lettre X, par exemple, dans le champ Numéro, puis enfoncez la touche Entrée pour afficher automatiquement la valeur Interv-3.
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
