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

مفتاح alt+f4


lordring

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

اخي العزيز

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

untitledpo.JPG

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

السلام عليكم

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

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

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

دمت بود

تم تعديل بواسطه 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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information