TechKendt indhold
Problem Er det muligt at føje en knap til et stort vindue i plains og få VBA-kode til at åbne en eksisterende
Microsoft Access-database, når der klikkes på denne knap?
Løsning
Dette kan gøres ved hjælp af Modifikator og VBA.
1. Føj en ny knap til det ønskede Store almindelige vindue ved hjælp af Modifikator.
2. Giv denne knap et beskrivende navn som f.eks. btnOpenAccessDb.
3. Giv sikkerhed til dette ændrede vindue, og åbn derefter selve vinduet i Store plains.
4. Tilføj vinduet til VBA, og tilføj derefter den nye knap til VBA.
5. Åbn VBA-editoren, og gå til kodesektionen i dette vinduet Gode plains. Følgende er et kodeeksempel, der kan bruges her:
Option Explicit
Dim appAccess As Object
Private Sub btnOpenAccessDb_BeforeUserChanged(KeepFocus As Boolean, CancelLogic As Boolean)
Dim docAccess
Set appAccess = CreateObject("Access.Application")
docAccess = appAccess.OpenCurrentDatabase("C:\My Documents\db1.mdb", True)
appAccess.Visible = True End Sub Note
-Dette
kodeeksempel er designet til at åbne endatabase med navnet "db1.mdb" placeret i mappen C:\Mine dokumenter og kan ændres efter behov. AppAccess-objektet skal dimensioneres i sektionen Generelle erklæringer, så det bevares uden for knapklikhændelsen, hvor der trykkes på koden.
Denne artikel var TechKendt dokument-id:32879