اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

سلام عليكم

لدي طلبين لو سمحتم 

الاول ..كيف اجعل توسيط لكل نماذج البرنامج، ای عند فتح اي نموذج يكون في وسط الشاشة..

ثانيا.... كيف اخفي اطار برنامج الاكسس، علما انی استخدمت طريقة لبرنامج من قبل وكانت ناجحة ام برنامجي الان فلا يقبل، اعتقد ان الخلل في المراجع ولكن لا اعلم ماهي بالضبط،

،او لو عندكم طريقة اخری ،طريقتي كانت عن عند طريق ماكرو 

تحياتيو وشكرالكم

قام بنشر

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم

اولاً لتوسيط النموذج تقائيا في اي شاشة تابع كما بالصورة

101.jpg.b092330c97e1b062772e00a9a927c420.jpg

ثانياً

منذ ساعه, سيروان زيباري 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

تحياتي

  • Like 2
قام بنشر
11 hours ago, محمد ابوعبد الله said:

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم

اولاً لتوسيط النموذج تقائيا في اي شاشة تابع كما بالصورة

101.jpg.b092330c97e1b062772e00a9a927c420.jpg

ثانياً

ابسط كود يمكن استخدامه وهو عملي جداً

ضع الكود التالي في وحدة نمطية جديدة


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

تحياتي

شكرا اخي العزيز، شكرا علی سرعة الاجابة ودقة الجواب

..لكن ملحوظة   لا يسوي مشكلة للتقارير؟ هل       ممكن التقارير تفتح وتطبع

والاطار مخفي؟

قام بنشر
33 دقائق مضت, سيروان زيباري said:

..لكن ملحوظة   لا يسوي مشكلة للتقارير؟ هل       ممكن التقارير تفتح وتطبع

والاطار مخفي؟

في خصائص التقرير ضع منبق ومشروط

 

تقرير.PNG

  • Like 1
قام بنشر (معدل)
11 minutes ago, خالد سيسكو said:

السلام عليكم

هل تقصد طباعة مباشرة بدون ان ظهور التقرير

وعلیكم السلام ورحمة الله

کلا الحالتین..

 

7 minutes ago, kha9009lid said:

في خصائص التقرير ضع منبق ومشروط

 

تقرير.PNG

الف شكر وتقدير...

جزاك الله خيرا

تم تعديل بواسطه سيروان زيباري
  • Like 1
قام بنشر (معدل)

السلام عليكم

تفضل اخي الكريم

ضع الكود في زر عند النقر

DoCmd.OpenReport "اسم التقرير", acViewNormal   'لللطباعة المباشرة'
DoCmd.OpenReport "اسم التقرير", acViewPreview 'معاينة قبل الطباعة'

DoCmd.RunCommand acCmdPrint              'اظهار الطابعة قبل المعاينة'
DoCmd.OpenReport "اسم التقرير", acViewPreview

 

تم تعديل بواسطه خالد سيسكو
  • Like 1
قام بنشر
1 hour ago, خالد سيسكو said:

السلام عليكم

تفضل اخي الكريم


DoCmd.OpenReport "اسم التقرير", acViewNormal   'لللطباعة المباشرة'
DoCmd.OpenReport "اسم التقرير", acViewPreview 'معاينة قبل الطباعة'

DoCmd.RunCommand acCmdPrint              'اظهار الطابعة قبل المعاينة'
DoCmd.OpenReport "اسم التقرير", acViewPreview

 

بارك الله فيك اخي خالد

وفقك الله

قام بنشر (معدل)
5 hours ago, سيروان زيباري said:

شكرا اخي العزيز، شكرا علی سرعة الاجابة ودقة الجواب

..لكن ملحوظة   لا يسوي مشكلة للتقارير؟ هل       ممكن التقارير تفتح وتطبع

والاطار مخفي؟

أستاذ العزيزا

قمت بالخطوات التي تفضلت بها ولكن تم إخفاء الاكسس بالكامل ,الان البرنامج لا ينفتح كأن عند الضغط مباشرة يتم إخفاء الاطار مع البرنامج بالكامل ... برنامجي الان لا ينفتح مالحل ؟

تم تعديل بواسطه سيروان الزيباري
قام بنشر (معدل)

اضغط على مفتاح الشفت بشكل مستمر وافتح البرنامج لا تترك مفتاح الشفت الى ان يفتح البرنامج

الحقيقة ان افضل كود لاخفاء الاطار من اعداد الاستاذ @ابا جودى

تم تعديل بواسطه kha9009lid
  • Like 1
قام بنشر
13 minutes ago, kha9009lid said:

اضغط على مفتاح الشفت بشكل مستمر وافتح البرنامج لا تترك مفتاح الشفت الى ان يفتح البرنامج

الحقيقة ان افضل كود لاخفاء الاطار من اعداد الاستاذ @ابا جودى

استرجعت الحمدلله 

واین احصل علیها؟

  • Like 1
قام بنشر (معدل)

استاذي @سيروان الزيباري الكود الى وضعه الاستاذ محمد ابو عبدالله جيد والعديد يستخدمونه

مع ذلك موضوع اخفاء اطار اكسس يتطلب بعض الاجراءات حتى لا تحصل مشكلات مشابهه لما حصل لديك

اولا البرنامج لديك لم يفتح لوجود نسخة معلقة في النظام ويمكن انهاء التعليق من خلال ادارة المهام انظر للصورة المرفقة

 

لذا عند استخدام كود اخفاء الاطار يفضل عدم اغلاق النموذج الرئيسي الذي وضعت به كود استدعاء الوحدة النمطية ويمكن استخدام كود اخفاء النموذج عند فتح نموذج اخر

وعند الرغبة في اغلاق البرنامج استخدم

docmd.Quit

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

بالنسبة لي لا استخدم اخفاء الاطار وافضل استخدام كود يخفي القوائم وشريط التنقل مع بقاء خلفية اكسس الرمادية

انهاء البرنامج.PNG

اخفاء القوائم.PNG

تم تعديل بواسطه kha9009lid
  • Like 1
قام بنشر
18 minutes ago, kha9009lid said:

استاذي @سيروان الزيباري الكود الى وضعه الاستاذ محمد ابو عبدالله جيد والعديد يستخدمونه

مع ذلك موضوع اخفاء اطار اكسس يتطلب بعض الاجراءات حتى لا تحصل مشكلات مشابهه لما حصل لديك

اولا البرنامج لديك لم يفتح لوجود نسخة معلقة في النظام ويمكن انهاء التعليق من خلال ادارة المهام انظر للصورة المرفقة

 

لذا عند استخدام كود اخفاء الاطار يفضل عدم اغلاق النموذج الرئيسي الذي وضعت به كود استدعاء الوحدة النمطية ويمكن استخدام كود اخفاء النموذج عند فتح نموذج اخر

وعند الرغبة في اغلاق البرنامج استخدم


docmd.Quit

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

بالنسبة لي لا استخدم اخفاء الاطار وافضل استخدام كود يخفي القوائم وشريط التنقل مع بقاء خلفية اكسس الرمادية

انهاء البرنامج.PNG

اخفاء القوائم.PNG

شكرا استاذي @kha9009lid

كيف احصل على كود الى انت تسخدمه فهي فكرة جيدة 

تحياتي

قام بنشر
On 12/2/2019 at 5:02 PM, kha9009lid said:

انا استخدم الكود التالي في حدث عند التحميل للنموذج الاول


docmd.ShowToolbar "ribbon",acToolbarNo

واعدل بعض الخيارات مثل الصورة المرفق

822827200_.PNG.60290cf4ed8f614249164639ac893977.PNG

شكرا اخی

فكرة رائعة نفذتها وعجبنی  جدا 

بارك الله

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information