TechKnowledge Content
Vấn đề Có thể thêm nút vào cửa sổ Great Plains và để mã VBA mở một cơ sở dữ liệu Microsoft Access hiện có khi bấm
nút này không?
Giải
pháp Điều này có thể được thực hiện bằng cách sử dụng Bộ điều chỉnh và VBA.
1. Thêm nút mới vào cửa sổ Great Plains mong muốn bằng Bộ điều chỉnh.
2. Đặt cho nút này một tên mang tính mô tả chẳng hạn như btnOpenAccessDb.
3. Cấp bảo mật cho cửa sổ đã sửa đổi này rồi mở cửa sổ trong Great Plains.
4. Thêm cửa sổ vào VBA, rồi thêm nút mới cho VBA.
5. Mở trình soạn thảo VBA và dẫn hướng đến phần mã cho cửa sổ Great Plains này. Sau đây là một mẫu mã có thể được sử dụng ở đây:
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. Đối tượng appAccess phải được định kích thước trong mục Khai báo Chung để đối tượng vẫn nằm ngoài phạm vi của sự kiện bấm nút khi mã được kích hoạt.
Bài viết này đã được TechKnowledge Document ID:32879