اذهب الي المحتوي
أوفيسنا

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

قام بنشر

أخي العزيز

بدل البحث عن الموضوع السابق، و الدخول بتعقيدات إختلاف الحاجات ،، قمت بإنشاء تطبيق سريع أظن أنه سيفي بحاجتك.

النقطة الرئيسية تعتمد على أن التقارير لا تظهر إلا من خلال نافذة الأكسيس ، لذا لا بد من الوصول لهذه النقطة ببعض الذكاء و التلاعب البرمجي Manipulation .

نقوم بجعل النماذج والتقارير Pop Up.

ننشيئ ماكرو للإخفاء وماكرو للإظهار

ننشيئ وحدة نمطية للسيطرة

نوزع عمليات تشغيل الماكرو حسب الحاجة ، ووفقا للشرط الرئيسي أعلاه (إظهار نافذة الأكسيس للتقارير) وذلك بين النماذج والتقارير

المرفق أظن أنه يفي بالغرض .... أو على الأقل يوصل الفكرة الرئيسية .... ,ولم أقصد به تطبيقا متكاملا فهو يحتاج للضبط وإكثار تجربة الإحتمالات لسد الثغرات

والله أعلم

تفضل ..........

............

NA_ShowHideAndReports.rar

  • Like 1
  • Thanks 1
قام بنشر

:wow: ردودك أخي نارت دوما تتلج الصدر :wow:

بارك الله فيك وفي علمك

يسرني ان أخبرك أنني وجدت الحل بالفعل

مع جعل النمودج Pop Up

يكفي ان ندخل على الماكرو الدي سينفد العملية

ونختار طريقة الاظهار الى مربع حوار Boit Dialog بكل بساطة

مشكور أخي نارت جزيل الشكر

  • Thanks 1
قام بنشر

بسم الله الرحمن الرحيم

استاذي الفاضل لقد استفدت في إخفاء النموذج وتطبيق المرفق الذي افدتنا به ،، ربنا يكتب اجرك ويزيدك علماً ومعرفة

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

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

أخواني اسمحوا لي بأن أرفق لكم طريقة اخرى دون اظهار شاشة الاكسس أو استخدام أي ماكرو

الطريقة تعتمد :

نفتح التقرير في وضع التصميم ونذهب لخصائص التقرير ونجعل

1 - منبثق= نعم

2- شكلي أو مشروط = نعم

ننشئ حدث عند الفتح:

DoCmd.Maximize

نحفظ ثم نغلق التقرير

نفتح النموذج في وضع التصميم نذهب لزر تشغيل التقرير ونعدل على الكود تعديلاً بسيط وهو باللون الاحمر ليصبح:

On Error GoTo Err_Command3_Click

Dim stDocName As String

stDocName = "tblImagetable"

DoCmd.OpenReport stDocName, acPreview, , , acDialog

Exit_Command3_Click:

Exit Sub

Err_Command3_Click:

MsgBox Err.Description

Resume Exit_Command3_Click

وبعد ذلك نحفظ

و نجرب

بارك الله فيكم اخواني اعذروني على الاطالة

أخوكم : يوسف

YM_ShowHideAndReports.rar

تم تعديل بواسطه youssef103
  • Like 1
  • 4 months later...

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