תוכן TechKnowledge
בעיה
האם ניתן להוסיף לחצן לחלון 'רגילים נהדרים'
ולהוסיף קוד VBA לפתיחת מסד נתונים קיים של Microsoft Access בעת לחיצה על לחצן זה? פתרון
ניתן לעשות זאת באמצעות Modifier ו- VBA.
1. הוסף לחצן חדש לחלון המישורים הגדול הרצוי באמצעות Modifier.
2. תן ללחצן זה שם תיאורי כגון btnOpenAccessDb.
3. הענק אבטחה לחלון שונה זה ולאחר מכן פתח את החלון עצמו ב-Great Plains.
4. הוסף את החלון ל- VBA ולאחר מכן הוסף גם את הלחצן החדש ל- VBA.
5. פתח את עורך ה- VBA ונווט אל מקטע הקוד עבור חלון זה של 'רגילים נהדרים'. להלן דוגמה של קוד הניתנית לשימוש כאן: 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:32879