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

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

قام بنشر

السلام عليكم

لدي نموذج يعمل في بداية تشغيل البرنامج واريد ان امنع مفتاح alt+f4 من اغلاقه

فمالطريق لذلك مع التقدير

قام بنشر

الأخ الفاضل / lordring

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

لى استفسار لو سمحت

كيف جعلت النموذج يفتح فى بداية الملف

لأن عندى قاعدة بيانات وعملت بها فورم أو نموذج ومنه يتفرع المستخدم إلى باقى الملفات الفرعية وأريده يفتح تلقائيا عند فتح قاعدة البيانات

ارجو التوضيح لو سمحت هل عن طريق كود ؟ أم له طريقة أخرى

منتظر رد معاليكم

قام بنشر
الأخ الفاضل / lordring

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

لى استفسار لو سمحت

كيف جعلت النموذج يفتح فى بداية الملف

لأن عندى قاعدة بيانات وعملت بها فورم أو نموذج ومنه يتفرع المستخدم إلى باقى الملفات الفرعية وأريده يفتح تلقائيا عند فتح قاعدة البيانات

ارجو التوضيح لو سمحت هل عن طريق كود ؟ أم له طريقة أخرى

منتظر رد معاليكم

اخي العزيز

من خصائص البرنامج اتبع مافي الصورة باختيار الفورم الي تريده يشتغل في بداية تشغيل ملف الاكسس

untitledpo.JPG

قام بنشر
جزاك الله خيرا اخى

ممكن شرح على 2003 لو تكرمت

اخي الغالي بنفس المبداء من قائمة tools

كما في الصورة التاية

startup001.png

ومن Display Form/Page حدد الي تريده

startup002.png

قام بنشر (معدل)
جزاك الله خيرا يا غالى

سؤال لو سمحت : هل عندك أكواد فجوال بيسك جاهزة للأكسس ؟

ولو عندى كود كيف أستفيد منه ؟ وكيف أجمع وأستخرج النسبة المئوية فى الاستعلام ؟؟؟

جزاك الله خيرا مقدما

السلام عليكم

بالنسبة لاكواد الجاهزة فالمنتدى فيه الكثير بهذا الشأن تستطيع مراجعة قسم ارشيف الاكواد

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

كنت اتمنى ان اجيبك بالتفصيل لكني ايظا جديد على الاكسس واحاول تطوير نفسي

دمت بود

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

اخي العزيز

لتعطيل خاصية الاغلاق عن طريق ALT + F4 عليك القيام بالاتي

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

Private F4Close As Boolean
Option Compare Database
Option Explicit
2 - في الحدث عند مفتاح للاسفل ادخل هذا الكود
'Respond to Ctrl-F4
      If Shift And acCtrlMask Then
          If KeyCode = vbKeyF4 Then F4Close = True
      End If

'Respond to Alt-F4
      If Shift And acAltMask Then
          If KeyCode = vbKeyF4 Then F4Close = True
      End If
3- في الحدث عند الغاء التحميل ادخل هذا الكود
If F4Close = True Then
   Cancel = True
   F4Close = False
End If

واتمنى لك التوفيق والمثال التالي يوضح ذلك

Ex2.rar

قام بنشر

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

الاخ اسامة شرح رائع فعلا

لكن للأسف عند تطبيقه واتباع الخطوات لم يطبق معى

1- قمت بنسخ الأكواد من ملفك وادراجه فى محرر الاكواد عن طريق EXPORT و IMPORT فأعطانى الخطأ فى الصورة رقم 1 فى المرفقات

2- قمت بنسخ الاكواد كاملة من ملفك COPY و PAST فى محرر الاكواد فأعطانى الخطأ فى الصورة رقم 2 فى المرفقات

وغليك الصور والملف خاصتى الذى جربت عليه ياريت تعرفنى الخطأ فين

جزاك الله خيرا مقدما على حرصك على تعليم غيرك

وأسأل الله ألا يجعلك ممن يلجمون بعلم كتموه يوم القيامة

بالتوفيق للجميع

post-27358-1234898747.jpg

قام بنشر

اخي تايجر

الافضل ان ترفق المثال لان الصورة لا توضح الخطا بالنسبة لي وفي الحقيقة لم ارى هذا الخطا سابقا ولذلك لا اريد الاجتهاد بالحلول

قام بنشر

اخي تايجر

الاسباب التي ادت الى هذه المشكلة هي

1 - توجد وحدتين نمطيتين في البرنامج class2 + class3 وعليك ازالتهما

2- في النموذج1 السطر الاول عند فتح محرر الكود وهو (Option Compare Database) عليك حذفة لانه يتكرر في السطر الثالث

3- كون التركيز يكون على الرقم المعرف عليك ان تضع في الحدث عند مفتاح للاسفل الكود الذي وضعناه في النموذج اي ان اي شيء في النموذج من مربع نص او زر او .... الخ اذا كان يحتفظ بالتركيز فان المفاتيح ALT+F4 ستقوم باغلاق البرنامج لذلك يجب ان نضع فية الكود الخاص ب عند مفتاح للاسفل

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

db1.rar

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

فعلا ما قلته حدث جزاك الله خيرا يا أخى

عندى كود لإخفاء وإظهار جدول ما هى كيفية الاستفادة منه

الكود المسؤول عن إخفاء الجدول

CurrentDb.TableDefs("Table_namel").Attributes = dbHiddenObject

الكود المسؤول عن إظهار الجدول

CurrentDb.TableDefs("table1").Attributes = 0

تم تعديل بواسطه تايجر نت

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