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
