منع ظهور جزء التنقل وانماذج والجداول بعد ربط البيانات

[ابو عمار القدسي]

السلام عليكم ورحمة الله وبركانه اخواني المشرفين في المثال المرفق عندما يتم الضغط على زر الربط فانه يتم ربط الجداول ولاكن المشكلة انه يظهر شريط كافة كائنات اكسس وتظهر جميع الجداول والنماذج مباشرة بعد الانتهاء من ربط البيانات فهل ممكن التخلص من هذه المشكلة مع العلم اني اريد النموذج يكون من خصائصه منبثق=لا وشكلي = لا وجزاكم الله خيرا

ربط بيانات.rar

[ابو عمار القدسي]

اعادة الرفع للموضوع اخواني

[ابوخليل]

وعليكم السلام

السؤال غير واضح  ، حيث ان المرفق يحتوي على نموذج  لجلب الجداول فقط

ويتم جلبها بصمت ولا يظهر شيء مما ذكرت

يجب تفصيل المطلوب

[رمهان]

جرب التالي وبعد مناداة الدالة  ولا اعلم هل سيعمل على mdb حيث جربته على accdb  وتمام

Call zAutoLink1
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide

بالتوفيق

هنا يمكن ل mdb

DoCmd.SelectObject acTable, , True
     RunCommand acCmdWindowHide

 

[ابو عمار القدسي]

اولا اشكر استاذي ابو خليل على تجاوبه ثم اشكر استاذي رمهان على الكوذ الثاني الذي يعمل بشكل جيد ولاكن عند الضغط على المفتاح ربط تظهر جميع الجداول ثم عند الضغط مرة اخرى يعمل بشكل جيد بمعنة ان الكود لا يعمل الا عنذ الضغط على الزر مرتين ولا ادري اين المشكلة استاذي العزيز

[رمهان]

لم تظهر المشكلة معي ولكن جرب تكرار الكود

DoCmd.SelectObject acTable, , True
     RunCommand acCmdWindowHide
DoCmd.SelectObject acTable, , True
     RunCommand acCmdWindowHide

بالتوفيق

[ابو عمار القدسي]

أسأل الله ان يبارك فيك أخي رمهان ويزيدك من فضله

[رمهان]

23 ساعات مضت, ابو عمار القدسي said:

أسأل الله ان يبارك فيك أخي رمهان ويزيدك من فضله

ولك بالمثل

هل افهم تمت العمليه ؟

[ابو عمار القدسي]

نعم اخي رمهان جزاك الله خيرا وبارك فيك وفي علمك