TechKnowledge Content
ปัญหา
สามารถเพิ่มปุ่มลงในหน้าต่าง Great Plains และเปิดโค้ด VBA เปิดฐานข้อมูล Microsoft Access ที่มีอยู่เมื่อคลิกปุ่มนี้ได้หรือไม่
ความละเอียด
ซึ่งสามารถเสร็จสิ้นได้โดยใช้ ตัวปรับเปลี่ยน และ VBA
1. เพิ่มปุ่มใหม่ลงในหน้าต่าง Great Plains ที่ต้องการโดยใช้ ตัวปรับเปลี่ยน
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 -ตัวอย่างโค้ดนี้ถูกออกแบบมาเพื่อเปิด
adatabase ชื่อ "db1.mdb" ที่อยู่ในไดเรกทอรี C:\My Documents และสามารถเปลี่ยนแปลงได้ตามต้องการ วัตถุ appAccess ควรมีมิติในส่วน การประกาศทั่วไป เพื่อให้ยังคงอยู่เกินขอบเขตของเหตุการณ์การคลิกปุ่มซึ่งโค้ดถูกยิง
บทความนี้คือ TechKnowledge Document ID:32879