سيروان زيباري قام بنشر نوفمبر 30, 2019 مشاركة قام بنشر نوفمبر 30, 2019 سلام عليكم لدي طلبين لو سمحتم الاول ..كيف اجعل توسيط لكل نماذج البرنامج، ای عند فتح اي نموذج يكون في وسط الشاشة.. ثانيا.... كيف اخفي اطار برنامج الاكسس، علما انی استخدمت طريقة لبرنامج من قبل وكانت ناجحة ام برنامجي الان فلا يقبل، اعتقد ان الخلل في المراجع ولكن لا اعلم ماهي بالضبط، ،او لو عندكم طريقة اخری ،طريقتي كانت عن عند طريق ماكرو تحياتيو وشكرالكم رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر نوفمبر 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 رابط هذا التعليق شارك More sharing options...
سيروان زيباري قام بنشر ديسمبر 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 تحياتي شكرا اخي العزيز، شكرا علی سرعة الاجابة ودقة الجواب ..لكن ملحوظة لا يسوي مشكلة للتقارير؟ هل ممكن التقارير تفتح وتطبع والاطار مخفي؟ رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 السلام عليكم هل تقصد طباعة مباشرة بدون ان ظهور التقرير رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 33 دقائق مضت, سيروان زيباري said: ..لكن ملحوظة لا يسوي مشكلة للتقارير؟ هل ممكن التقارير تفتح وتطبع والاطار مخفي؟ في خصائص التقرير ضع منبق ومشروط 1 رابط هذا التعليق شارك More sharing options...
سيروان زيباري قام بنشر ديسمبر 1, 2019 الكاتب مشاركة قام بنشر ديسمبر 1, 2019 (معدل) 11 minutes ago, خالد سيسكو said: السلام عليكم هل تقصد طباعة مباشرة بدون ان ظهور التقرير وعلیكم السلام ورحمة الله کلا الحالتین.. 7 minutes ago, kha9009lid said: في خصائص التقرير ضع منبق ومشروط الف شكر وتقدير... جزاك الله خيرا تم تعديل ديسمبر 1, 2019 بواسطه سيروان زيباري 1 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 (معدل) السلام عليكم تفضل اخي الكريم ضع الكود في زر عند النقر DoCmd.OpenReport "اسم التقرير", acViewNormal 'لللطباعة المباشرة' DoCmd.OpenReport "اسم التقرير", acViewPreview 'معاينة قبل الطباعة' DoCmd.RunCommand acCmdPrint 'اظهار الطابعة قبل المعاينة' DoCmd.OpenReport "اسم التقرير", acViewPreview تم تعديل ديسمبر 1, 2019 بواسطه خالد سيسكو 1 رابط هذا التعليق شارك More sharing options...
سيروان الزيباري قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 1 hour ago, خالد سيسكو said: السلام عليكم تفضل اخي الكريم DoCmd.OpenReport "اسم التقرير", acViewNormal 'لللطباعة المباشرة' DoCmd.OpenReport "اسم التقرير", acViewPreview 'معاينة قبل الطباعة' DoCmd.RunCommand acCmdPrint 'اظهار الطابعة قبل المعاينة' DoCmd.OpenReport "اسم التقرير", acViewPreview بارك الله فيك اخي خالد وفقك الله رابط هذا التعليق شارك More sharing options...
سيروان الزيباري قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 (معدل) 5 hours ago, سيروان زيباري said: شكرا اخي العزيز، شكرا علی سرعة الاجابة ودقة الجواب ..لكن ملحوظة لا يسوي مشكلة للتقارير؟ هل ممكن التقارير تفتح وتطبع والاطار مخفي؟ أستاذ العزيزا قمت بالخطوات التي تفضلت بها ولكن تم إخفاء الاكسس بالكامل ,الان البرنامج لا ينفتح كأن عند الضغط مباشرة يتم إخفاء الاطار مع البرنامج بالكامل ... برنامجي الان لا ينفتح مالحل ؟ تم تعديل ديسمبر 1, 2019 بواسطه سيروان الزيباري رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 (معدل) اضغط على مفتاح الشفت بشكل مستمر وافتح البرنامج لا تترك مفتاح الشفت الى ان يفتح البرنامج الحقيقة ان افضل كود لاخفاء الاطار من اعداد الاستاذ @ابا جودى تم تعديل ديسمبر 1, 2019 بواسطه kha9009lid 1 رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 اقتباس 1 رابط هذا التعليق شارك More sharing options...
سيروان الزيباري قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 13 minutes ago, kha9009lid said: اضغط على مفتاح الشفت بشكل مستمر وافتح البرنامج لا تترك مفتاح الشفت الى ان يفتح البرنامج الحقيقة ان افضل كود لاخفاء الاطار من اعداد الاستاذ @ابا جودى استرجعت الحمدلله واین احصل علیها؟ 1 رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 في المشاركة السابقة ☝🏿️ رابط هذا التعليق شارك More sharing options...
سيروان الزيباري قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 5 minutes ago, kha9009lid said: في المشاركة السابقة ☝🏿️ عفوا تقصد الكود ل محمد أبو عبدالله نشرها؟ رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 لا اقتباس رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 (معدل) استاذي @سيروان الزيباري الكود الى وضعه الاستاذ محمد ابو عبدالله جيد والعديد يستخدمونه مع ذلك موضوع اخفاء اطار اكسس يتطلب بعض الاجراءات حتى لا تحصل مشكلات مشابهه لما حصل لديك اولا البرنامج لديك لم يفتح لوجود نسخة معلقة في النظام ويمكن انهاء التعليق من خلال ادارة المهام انظر للصورة المرفقة لذا عند استخدام كود اخفاء الاطار يفضل عدم اغلاق النموذج الرئيسي الذي وضعت به كود استدعاء الوحدة النمطية ويمكن استخدام كود اخفاء النموذج عند فتح نموذج اخر وعند الرغبة في اغلاق البرنامج استخدم docmd.Quit من خلال زر امر او في حدث عند الاغلاق للنموذج الرئيسي لاغلاق الاكسس بشكل نهائي وايضا الغاء القائمة المختصرة بزر الماوس الايمن وذلك من خصائص النموذج او من خلال خيارات قاعدة البيانات الحالية بالنسبة لي لا استخدم اخفاء الاطار وافضل استخدام كود يخفي القوائم وشريط التنقل مع بقاء خلفية اكسس الرمادية تم تعديل ديسمبر 1, 2019 بواسطه kha9009lid 1 رابط هذا التعليق شارك More sharing options...
سيروان الزيباري قام بنشر ديسمبر 1, 2019 مشاركة قام بنشر ديسمبر 1, 2019 18 minutes ago, kha9009lid said: استاذي @سيروان الزيباري الكود الى وضعه الاستاذ محمد ابو عبدالله جيد والعديد يستخدمونه مع ذلك موضوع اخفاء اطار اكسس يتطلب بعض الاجراءات حتى لا تحصل مشكلات مشابهه لما حصل لديك اولا البرنامج لديك لم يفتح لوجود نسخة معلقة في النظام ويمكن انهاء التعليق من خلال ادارة المهام انظر للصورة المرفقة لذا عند استخدام كود اخفاء الاطار يفضل عدم اغلاق النموذج الرئيسي الذي وضعت به كود استدعاء الوحدة النمطية ويمكن استخدام كود اخفاء النموذج عند فتح نموذج اخر وعند الرغبة في اغلاق البرنامج استخدم docmd.Quit من خلال زر امر او في حدث عند الاغلاق للنموذج الرئيسي لاغلاق الاكسس بشكل نهائي وايضا الغاء القائمة المختصرة بزر الماوس الايمن وذلك من خصائص النموذج او من خلال خيارات قاعدة البيانات الحالية بالنسبة لي لا استخدم اخفاء الاطار وافضل استخدام كود يخفي القوائم وشريط التنقل مع بقاء خلفية اكسس الرمادية شكرا استاذي @kha9009lid كيف احصل على كود الى انت تسخدمه فهي فكرة جيدة تحياتي رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر ديسمبر 2, 2019 مشاركة قام بنشر ديسمبر 2, 2019 انا استخدم الكود التالي في حدث عند التحميل للنموذج الاول docmd.ShowToolbar "ribbon",acToolbarNo واعدل بعض الخيارات مثل الصورة المرفق رابط هذا التعليق شارك More sharing options...
سيروان الزيباري قام بنشر ديسمبر 4, 2019 مشاركة قام بنشر ديسمبر 4, 2019 On 12/2/2019 at 5:02 PM, kha9009lid said: انا استخدم الكود التالي في حدث عند التحميل للنموذج الاول docmd.ShowToolbar "ribbon",acToolbarNo واعدل بعض الخيارات مثل الصورة المرفق شكرا اخی فكرة رائعة نفذتها وعجبنی جدا بارك الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.