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 でした
