Contenu TechKnow en ligne
Problème
Est-il possible d’ajouter
un bouton à une fenêtre Grande(Ve) et d’obtenir du code VBA pour ouvrir une base de données Microsoft Access existante lorsque l’utilisateur clique sur ce bouton ? Résolution
: cette solution peut être effectuée à l’aide d’un modificateur et d’un VBA.
1. Ajoutez un nouveau bouton à la fenêtre Great Window souhaitée à l’aide de modifier.
2. Donnez à ce bouton un nom descriptif tel que btnOpenAccessDb.
3. Accordez la sécurité à cette fenêtre modifiée, puis ouvrez-la elle-même dans Great Qu’est-ce que c’est ?
4. Ajoutez la fenêtre à VBA, puis ajoutez le nouveau bouton à VBA également.
5. Ouvrez l’éditeur VBA et accédez à la section de code pour cette fenêtre Great Window. Voici un exemple de code qui peut être utilisé ici :
Option Explicit
Dim appAccess As Object
Private Sub btnOpenAccessDb_BeforeUserChanged(KeepFocus As Boolean, CancelLog As Boolean)
Dim docAccess
Set appAccess = CreateObject(« Access.Application »)
docAccess = appAccess.OpenCurrentDatabase(« C:\My Documents\db1.mdb », True)
appAccess.Visible = True End Sub Note
-Cet
exemple de code est conçu pour ouvrir la adatabase nommée « db1.mdb » située dans le répertoire C:\My Documents et peut être modifiée selon vos besoins. L’objet appAccess doit être dimensionné dans la section Déclarations générales de sorte qu’il reste au-delà de l’étendue de l’événement de clic du bouton dans lequel le code se fait tirer.
Cet article était TechKnowknow Document ID:32879