سيروان زيباري قام بنشر نوفمبر 30, 2019 قام بنشر نوفمبر 30, 2019 سلام عليكم لدي طلبين لو سمحتم الاول ..كيف اجعل توسيط لكل نماذج البرنامج، ای عند فتح اي نموذج يكون في وسط الشاشة.. ثانيا.... كيف اخفي اطار برنامج الاكسس، علما انی استخدمت طريقة لبرنامج من قبل وكانت ناجحة ام برنامجي الان فلا يقبل، اعتقد ان الخلل في المراجع ولكن لا اعلم ماهي بالضبط، ،او لو عندكم طريقة اخری ،طريقتي كانت عن عند طريق ماكرو تحياتيو وشكرالكم
محمد أبوعبدالله قام بنشر نوفمبر 30, 2019 قام بنشر نوفمبر 30, 2019 وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اولاً لتوسيط النموذج تقائيا في اي شاشة تابع كما بالصورة ثانياً منذ ساعه, سيروان زيباري said: كيف اخفي اطار برنامج الاكسس ابسط كود يمكن استخدامه وهو عملي جداً ضع الكود التالي في وحدة نمطية جديدة Option Compare Database Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub ثم في النموذج الرئيسي لبرنامجك ضع الكود التالي في حدث عند التحميل Call HideAccess تحياتي 2
سيروان زيباري قام بنشر ديسمبر 1, 2019 الكاتب قام بنشر ديسمبر 1, 2019 11 hours ago, محمد ابوعبد الله said: وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اولاً لتوسيط النموذج تقائيا في اي شاشة تابع كما بالصورة ثانياً ابسط كود يمكن استخدامه وهو عملي جداً ضع الكود التالي في وحدة نمطية جديدة Option Compare Database Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub ثم في النموذج الرئيسي لبرنامجك ضع الكود التالي في حدث عند التحميل Call HideAccess تحياتي شكرا اخي العزيز، شكرا علی سرعة الاجابة ودقة الجواب ..لكن ملحوظة لا يسوي مشكلة للتقارير؟ هل ممكن التقارير تفتح وتطبع والاطار مخفي؟
Khalid Jnb قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 السلام عليكم هل تقصد طباعة مباشرة بدون ان ظهور التقرير
kha9009lid قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 33 دقائق مضت, سيروان زيباري said: ..لكن ملحوظة لا يسوي مشكلة للتقارير؟ هل ممكن التقارير تفتح وتطبع والاطار مخفي؟ في خصائص التقرير ضع منبق ومشروط 1
سيروان زيباري قام بنشر ديسمبر 1, 2019 الكاتب قام بنشر ديسمبر 1, 2019 (معدل) 11 minutes ago, خالد سيسكو said: السلام عليكم هل تقصد طباعة مباشرة بدون ان ظهور التقرير وعلیكم السلام ورحمة الله کلا الحالتین.. 7 minutes ago, kha9009lid said: في خصائص التقرير ضع منبق ومشروط الف شكر وتقدير... جزاك الله خيرا تم تعديل ديسمبر 1, 2019 بواسطه سيروان زيباري 1
Khalid Jnb قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 (معدل) السلام عليكم تفضل اخي الكريم ضع الكود في زر عند النقر DoCmd.OpenReport "اسم التقرير", acViewNormal 'لللطباعة المباشرة' DoCmd.OpenReport "اسم التقرير", acViewPreview 'معاينة قبل الطباعة' DoCmd.RunCommand acCmdPrint 'اظهار الطابعة قبل المعاينة' DoCmd.OpenReport "اسم التقرير", acViewPreview تم تعديل ديسمبر 1, 2019 بواسطه خالد سيسكو 1
سيروان الزيباري قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 1 hour ago, خالد سيسكو said: السلام عليكم تفضل اخي الكريم DoCmd.OpenReport "اسم التقرير", acViewNormal 'لللطباعة المباشرة' DoCmd.OpenReport "اسم التقرير", acViewPreview 'معاينة قبل الطباعة' DoCmd.RunCommand acCmdPrint 'اظهار الطابعة قبل المعاينة' DoCmd.OpenReport "اسم التقرير", acViewPreview بارك الله فيك اخي خالد وفقك الله
سيروان الزيباري قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 (معدل) 5 hours ago, سيروان زيباري said: شكرا اخي العزيز، شكرا علی سرعة الاجابة ودقة الجواب ..لكن ملحوظة لا يسوي مشكلة للتقارير؟ هل ممكن التقارير تفتح وتطبع والاطار مخفي؟ أستاذ العزيزا قمت بالخطوات التي تفضلت بها ولكن تم إخفاء الاكسس بالكامل ,الان البرنامج لا ينفتح كأن عند الضغط مباشرة يتم إخفاء الاطار مع البرنامج بالكامل ... برنامجي الان لا ينفتح مالحل ؟ تم تعديل ديسمبر 1, 2019 بواسطه سيروان الزيباري
kha9009lid قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 (معدل) اضغط على مفتاح الشفت بشكل مستمر وافتح البرنامج لا تترك مفتاح الشفت الى ان يفتح البرنامج الحقيقة ان افضل كود لاخفاء الاطار من اعداد الاستاذ @ابا جودى تم تعديل ديسمبر 1, 2019 بواسطه kha9009lid 1
سيروان الزيباري قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 13 minutes ago, kha9009lid said: اضغط على مفتاح الشفت بشكل مستمر وافتح البرنامج لا تترك مفتاح الشفت الى ان يفتح البرنامج الحقيقة ان افضل كود لاخفاء الاطار من اعداد الاستاذ @ابا جودى استرجعت الحمدلله واین احصل علیها؟ 1
سيروان الزيباري قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 5 minutes ago, kha9009lid said: في المشاركة السابقة ☝🏿️ عفوا تقصد الكود ل محمد أبو عبدالله نشرها؟
kha9009lid قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 (معدل) استاذي @سيروان الزيباري الكود الى وضعه الاستاذ محمد ابو عبدالله جيد والعديد يستخدمونه مع ذلك موضوع اخفاء اطار اكسس يتطلب بعض الاجراءات حتى لا تحصل مشكلات مشابهه لما حصل لديك اولا البرنامج لديك لم يفتح لوجود نسخة معلقة في النظام ويمكن انهاء التعليق من خلال ادارة المهام انظر للصورة المرفقة لذا عند استخدام كود اخفاء الاطار يفضل عدم اغلاق النموذج الرئيسي الذي وضعت به كود استدعاء الوحدة النمطية ويمكن استخدام كود اخفاء النموذج عند فتح نموذج اخر وعند الرغبة في اغلاق البرنامج استخدم docmd.Quit من خلال زر امر او في حدث عند الاغلاق للنموذج الرئيسي لاغلاق الاكسس بشكل نهائي وايضا الغاء القائمة المختصرة بزر الماوس الايمن وذلك من خصائص النموذج او من خلال خيارات قاعدة البيانات الحالية بالنسبة لي لا استخدم اخفاء الاطار وافضل استخدام كود يخفي القوائم وشريط التنقل مع بقاء خلفية اكسس الرمادية تم تعديل ديسمبر 1, 2019 بواسطه kha9009lid 1
سيروان الزيباري قام بنشر ديسمبر 1, 2019 قام بنشر ديسمبر 1, 2019 18 minutes ago, kha9009lid said: استاذي @سيروان الزيباري الكود الى وضعه الاستاذ محمد ابو عبدالله جيد والعديد يستخدمونه مع ذلك موضوع اخفاء اطار اكسس يتطلب بعض الاجراءات حتى لا تحصل مشكلات مشابهه لما حصل لديك اولا البرنامج لديك لم يفتح لوجود نسخة معلقة في النظام ويمكن انهاء التعليق من خلال ادارة المهام انظر للصورة المرفقة لذا عند استخدام كود اخفاء الاطار يفضل عدم اغلاق النموذج الرئيسي الذي وضعت به كود استدعاء الوحدة النمطية ويمكن استخدام كود اخفاء النموذج عند فتح نموذج اخر وعند الرغبة في اغلاق البرنامج استخدم docmd.Quit من خلال زر امر او في حدث عند الاغلاق للنموذج الرئيسي لاغلاق الاكسس بشكل نهائي وايضا الغاء القائمة المختصرة بزر الماوس الايمن وذلك من خصائص النموذج او من خلال خيارات قاعدة البيانات الحالية بالنسبة لي لا استخدم اخفاء الاطار وافضل استخدام كود يخفي القوائم وشريط التنقل مع بقاء خلفية اكسس الرمادية شكرا استاذي @kha9009lid كيف احصل على كود الى انت تسخدمه فهي فكرة جيدة تحياتي
kha9009lid قام بنشر ديسمبر 2, 2019 قام بنشر ديسمبر 2, 2019 انا استخدم الكود التالي في حدث عند التحميل للنموذج الاول docmd.ShowToolbar "ribbon",acToolbarNo واعدل بعض الخيارات مثل الصورة المرفق
سيروان الزيباري قام بنشر ديسمبر 4, 2019 قام بنشر ديسمبر 4, 2019 On 12/2/2019 at 5:02 PM, kha9009lid said: انا استخدم الكود التالي في حدث عند التحميل للنموذج الاول docmd.ShowToolbar "ribbon",acToolbarNo واعدل بعض الخيارات مثل الصورة المرفق شكرا اخی فكرة رائعة نفذتها وعجبنی جدا بارك الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.