TechZnáme obsah
Problém Je možné pridať tlačidlo do okna Veľké obyčajných súborov a kód VBA otvorí existujúcu databázu Microsoft Accessu po kliknutí
na toto tlačidlo?
Rozlíšenie
Dá sa to urobiť pomocou modifikátora a jazyka VBA.
1. Pridajte nové tlačidlo do požadovaného okna Veľké obyčajných textov pomocou modifikátora.
2. Zadajte popisný názov pre toto tlačidlo, napríklad btnOpenAccessDb.
3. Zabezpečte toto upravené okno a potom otvorte samotné okno vo veľkých obyčajných textoch.
4. Pridajte okno do jazyka VBA a potom pridajte nové tlačidlo aj do jazyka VBA.
5. Otvorte editor VBA a prejdite do sekcie kódu pre toto okno Veľké obyčajných súborov. Toto je ukážka kódu, ktorú možno použiť tu:
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 -Táto
ukážka kódu je navrhnutá na otvorenie databázy s názvom db1.mdb, ktorá sa nachádza v adresári C:\Moje dokumenty a je možné ju podľa potreby zmeniť. Objekt appAccess by sa mal dimenzie upraviť v časti Všeobecné deklarácie, aby nepretrvajú nad rozsahom udalosti kliknutia tlačidla, v ktorej sa kód odinštaluje.
Tento článok bol TechZnámená identifikácia dokumentu:32879