TechKnowledge saturs
Problēma Vai iespējams pievienot pogu logam Great Plains un izmantot VBA kodu, lai atvērtu esošu Microsoft Access datu bāzi, noklikšķinot
uz šīs pogas?
Risinājums
To var izdarīt, izmantojot modifikatoru un VBA.
1. Pievienojiet jaunu pogu vajadzīgajam logam Lieliskas vienkāršas ziņas, izmantojot modifikatoru.
2. Piešķiriet šai pogai aprakstošu nosaukumu, piemēram, btnOpenAccessDb.
3. Piešķiriet drošību šim modificētam logam un pēc tam atveriet pašu logu, izmantojot lielo līdzenumu.
4. Pievienojiet logu VBA un pēc tam pievienojiet arī jauno pogu VBA.
5. Atveriet VBA redaktoru un naviģējiet uz šī Lielās vienkāršās darbības loga koda sadaļu. Lūk, koda piemērs, kuru var izmantot šeit: Opcija Tieša
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 Note -Šis
koda piemērs ir paredzēts, lai atvērtu adatabase ar nosaukumu "db1.mdb", kas atrodas direktorijā C:\Mani dokumenti, un pēc nepieciešamības to var mainīt. Objektam appAccess ir jābūt dimensijā sadaļā Vispārīgās deklarāciju, lai tas joprojām ietu ārpus pogas noklikšķināšanas notikuma, kurā kods dejot, tvērums.
Šis raksts bija TechKnowledge dokumenta ID:32879