@אוריי ייתכן שזה יפתור את הבעיה:
Set MyAccess = CreateObject("Access.Application")
MyAccess.Visible = True
MyAccess.OpenCurrentDatabase CurrentProject.Path & "\" & "Catalog 1.0.0.accdb"
MyAccess.RunCommand acCmdAppMaximize
מקווה מאוד שזה לא שטויות
עריכה: התווים בשורה 5 יוצאים ככה משום מה
זה לא קשור לקוד
תעתיק רק את שורות 1-4
אני רוצה להודות
ל
, על רצון טוב
, אדיבות
, מסירות
, וסקרנות
, וזמן רב
שהשקיע בניסיון לפתור את הבעיה (היא עוד לא נפתרה..). ירבו כמותו בישראל, התרשמתי מאוד!!! פשוט בן אדם נפלא. שיהיה לך בוקר טוב ויום טוב ותמיד תהנה מלעזור לאנשים!!
נראה לי הגזמת...