TechKnowledge Content
Problém: Je možné přidat tlačítko do okna Great Plains a při kliknutí na toto tlačítko otevřít kód jazyka VBA existující databázi Microsoft Accessu? Řešení: Můžete to udělat pomocí modifikátoru a jazyka VBA.1. Pomocí modifikátoru přidejte do požadovaného okna Great Plains nové tlačítko. 2. Dejte tomuto tlačítku popisný název, například btnOpenAccessDb. 3. Udělte zabezpečení tomuto změněné oknu a pak otevřete samotné okno ve Velkých pláních. 4. Přidejte okno do jazyka VBA a potom přidejte nové tlačítko do jazyka VBA.5. Otevřete editor jazyka VBA a přejděte do oddílu kódu pro toto okno Great Plains. Následuje ukázka kódu, kterou můžete použít tady: 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 -This code sample is designed to open adatabase named "db1.mdb" located in the C:\My Documents directory and can be changed as needed. Objekt appAccess by měl být v části Obecné deklarace dimenzován tak, aby se zachoval nad rámec události kliknutí na tlačítko, ve které se kód odpaluje.Tento článek byl TECHKnowledge Document ID:32879
