TechKnowledge コンテンツ
問題
このボタンをクリックすると
、ボタンを [大平原] ウィンドウに追加し、VBA コードで既存の Microsoft Access データベースを開く可能性はありますか。解決
方法 修飾子と VBA を使用して行います。
1. 修飾子を使用して、目的の [大平原] ウィンドウに新しいボタンを追加します。
2. このボタンには、btnOpenAccessDb などのわかりやすい名前を付けします。
3. この変更されたウィンドウにセキュリティを付与し、ウィンドウ自体を Great Plains で開きます。
4. ウィンドウを VBA に追加し、新しいボタンを VBA にも追加します。
5. VBA エディターを開き、この [Great Plains] ウィンドウのコード セクションに移動します。 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 -このコード サンプルは
、C:\My Documents ディレクトリにある "db1.mdb" という名前の adatabase を開く設計であり、必要に応じて変更できます。 appAccess オブジェクトは、コードが発生するボタン クリック イベントの範囲を超えて保持される [全般宣言] セクションでディメンションを設定する必要があります。
この記事は TechKnowledge Document ID:32879 でした
