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
