كود ايقاف عمل DblClick في نموذج الاكسس

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

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

مع الشكر والتقدير

 

تم تعديل يوليو 23, 2021 بواسطه Ahmed_J

[jjafferr]

وعليكم السلام 🙂

 

وبسبب انك ما اعطيتنا معلومات كافية ، فاختر المثال الاول او الثاني ، وكلاهما على حدث "النقر المزدوج"  :

الاول للنقر المزدوج للنموذج ، والثاني للحقل :

 

 

جعفر

[Ahmed_J]

السلام عليكم استاذ @jjafferr

ان شاء الله تكون بافضل حال

الموضوع هو للاخ  @AboBahaa لكنة نقس المشكلة لدي في قاعدة البيانات

المشكلة كما في المرفق هي عند الضغط دبل كليك بالشريط الاعلى بالنموذج  يتم تكبير النموذج كنموذج منبثق ووعند الضغط مرة ثانية على النموذج بالشريط الاعلى يتم تصغير النموذج

المطلوب الغاء او عدم تمكين الدبل كلك بالشريط الاعلى

وشكرا جزيلا

 

data.accdb

تم تعديل يوليو 23, 2021 بواسطه Ahmed_J

[jjafferr]

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

 

جعفر

[Ahmed_J]

السلام عليكم استاذي ومعلمي @jjafferr

الموضوع انا اذكره جيدا  (تكبير النموذج بدون تغطية شريط قائمة إبدأ) وعملت منه قاعدة بيانات متكاملة

بارك الله فيك وجعلها في ميزان حسناتك

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

وشكرا لك استاذي العزيز

 

[jjafferr]

 

بدل الشريط (لأن الكود في النموذج سيخفيه) ، اعمل مربع تسمية ، مما سيعطيك انطباع بأن الشريط موجود ، ولكن لن تستطيع تحريكه 🙂

 

استعمل الماكرو autoexec_Login_Boarder_n_Buttons_Show 🙂

 

جعفر

example_semo.accdb

[د.كاف يار]

13 ساعات مضت, Ahmed_J said:

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

طلبك غير واضح DblClick على ايش بالضبط

تقدر تضع حدث عن الضغط المزدوج على اي عنصر و بطبيعة الحال جميع العناصر DblClick لا يوجد بها اي حدث

 

[Ahmed_J]

السلام عليكم استاذ @د.كاف يار

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

وهذا هو اصل الموضوع 

 

تحياتي لك

تم تعديل يوليو 24, 2021 بواسطه Ahmed_J

[محمد أبوعبدالله]

السلام عليكم

جرب الكود التالي

Private Sub Form_Resize()
    DoCmd.Maximize
End Sub

تحياتي

[Ahmed_J]

السلام عليكم استاذ @محمد أبوعبدالله

هذا هو الملف الاصلي

الكود لم يفعل شيء حول دبل كلك

تحياتي

data.accdb

[د.كاف يار]

اخي في حدث عند الفتح ضع الكود التالي

Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long
 
    With Me
        DoCmd.Maximize
        lngWT = .WindowTop
        lngWL = .WindowLeft
        lngWH = .WindowHeight
        lngWW = .WindowWidth
        DoCmd.Restore
        Call .Move(lngWL, lngWT, lngWW, lngWH)
    End With

سيتم تثبت مقاسات الفورم و ان لا تكون قابلة للتغيير

[Ahmed_J]

شكرا لك استاذ @د.كاف يار

النموذج ضبط معي تماما

فقط اخر سؤال 

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

او ممكن تشرح لي ذلك فضلا منك

نحياتي لك استاذي العزيز

[د.كاف يار]

راح ياخذ حجم اي شاشة من جميع الاتجاهات

[Hawiii]

هناك حل آخر ولكنه عند النقر المزدوج ستلحظ رمشة خفيقة
- أولا قلل من عرض النموذج ، فعرض النموذج مبالغ فيه.
- ثانيا فعل حدث Form_Resize ليكون بالشكل التالي:

Private Sub Form_Resize()
  DoCmd.Maximize
End Sub

 

[Hawiii]

هذا حل سيناسبك ويرضيك
 

Data_Hawiii_01.accdb

تم تعديل يوليو 27, 2021 بواسطه Hawiii

[Ahmed_J]

شكرا لك استاذ @Hawiii على اهتمامك

لكن انظر الى اصل الموضوع 

تحياتي 

 

 

[Hawiii]

ممكن توضح لي أيش هو شريط المهام 🙂 ، أنا الحقيقة أضيع مع المسميات العربية
ارفع لي صورة وأشر لي على شريط المهام.

[Ahmed_J]

استاذي العزيز @Hawiii

هو Taskbar شريط المهام

 

تم تعديل يوليو 31, 2021 بواسطه Ahmed_J

[Hawiii]

تقصد شريط مهام النظام (الويندوز) ، أنا راح بالي للأكسس.
أعتقد لها حل ، الليلة سأحاول إن شاء الله.

[Hawiii]

حل مؤقت ، هناك رقم في الكود 200 ، بدل به بالزيادة أو النقصان حتى يتناسب مع جهازك.
أنا كنت عامل دراسة على التحويلات وطبقته على أحد برامجي ولكن أحتاج أبحث عنه.
 

Hawiii_Data_02.accdb

[د.كاف يار]

1 دقيقه مضت, Hawiii said:

حل مؤقت ، هناك رقم في الكود 200 ، بدل به بالزيادة أو النقصان حتى يتناسب مع جهازك.
أنا كنت عامل دراسة على التحويلات وطبقته على أحد برامجي ولكن أحتاج أبحث عنه.
 

Hawiii_Data_02.accdb 504 kB · 0 downloads

لا زلت تحاول و الموضوع انتهى

شف هذا حله

بأنك تاخذ اطراف النموذج Form و تجعلها صفر 0

يعني تثبت المقاس على اقصى طول و عرض و ارتفاع في جميع الاتجاهات

في ٢٤‏/٧‏/٢٠٢١ at 17:55, د.كاف يار said:

اخي في حدث عند الفتح ضع الكود التالي

Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long
 
    With Me
        DoCmd.Maximize
        lngWT = .WindowTop
        lngWL = .WindowLeft
        lngWH = .WindowHeight
        lngWW = .WindowWidth
        DoCmd.Restore
        Call .Move(lngWL, lngWT, lngWW, lngWH)
    End With

سيتم تثبت مقاسات الفورم و ان لا تكون قابلة للتغيير

 

[Hawiii]

6 ساعات مضت, Ahmed_J said:

شكرا لك استاذ @Hawiii على اهتمامك

لكن انظر الى اصل الموضوع 

تحياتي 

أنا فهمت من هذه المشاركة أن الموضوع لم ينتهي.
وسأرجع لك بملاحظاتي الليلة إن شاء الله.

[Hawiii]

شكل النموذج باستعمال فكرتك.

وشكل النموذج باستعمال فكرتي

تم تعديل يوليو 31, 2021 بواسطه Hawiii

[د.كاف يار]

1 دقيقه مضت, Hawiii said:

شكل النموذج باستعمال فكرتك.

وشكل النموذج باستعمال فكرتي

الموضع باختصار

الرجال كان يحتاج ان النموذج يكبر ياخذ اقصى حد في الحجم

لكن واجه مشكلة انه اذا المستخدم ضغط ضغط مزدوج على رأس النموذج يقوم يتغيير الحجم و يصغر

و كذلك شريط ابدء يختف في حال تم الغاء حدود النموذج

 

لكن افضل حل تبقى حدود النموذج كماهي و نلغي عنصر التكبير و التصغير

و بالشفرة 

Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long
 
    With Me
        DoCmd.Maximize
        lngWT = .WindowTop
        lngWL = .WindowLeft
        lngWH = .WindowHeight
        lngWW = .WindowWidth
        DoCmd.Restore
        Call .Move(lngWL, lngWT, lngWW, lngWH)
    End With

نثبت مقاس النموذج بأقصى مقاس في كل اتجاه

النتيجة

ثبات النموذج 

ظهور شريط ابدء 

ظهور عنوان النموذج في شريط النموذج

[Hawiii]

حياك الله استاذنا الدكتور 
هذا آخر رد لي في هذا الموضوع حتى لا يتحول النقاش إلى جدال.
سأسمي نموذج البيانات/الإدخال بالنموذج ونموذج تغطية الخلفية بالخلفية حتى لا يحدث خلط وأضطر للتوضح مرات عديدة.

نتيجة الحل من جهتكم ممتارة ولكني أشبهها بقسم الطوارئ في المستشفى بحيث يتدخل في وقف النزيف ولكن لا يعالج الأسباب وكمن أوجد حلا في إبقاء برج بيزا المائل صامدا حتى لا يهوي.
- نعم ثبت النموذج وبقى شكله مشوها والسبب بسييط يتمثل في عمل خلفية تخفي شاشة النظام/سطح المكتب وتفاصيله.
- نعم ظهر شريط المهام ولكن منعت من المبرمج من استخدام ثلاثة أنواع من أصل أربعة من أنواع النماذج ، طبعا أنا اكتشفتها لما رفقت لكم صورة لحلك بدون ظهور الشريط فاستغربت من ردودك الأخيرة أن الشريط يظهر عندك.

على كل حال أنا اقتراحي يتضمن نتيجة عملك وزيادة عليه لم أحرم المبرمج من باقي أنواع النماذج وقمت بحل المشكلة جذريا فيمكن توسيط النماذج وكذلك منعها من النقر المزدوج (يحتاج فحص إضافي لجميع انواع) كما يمكن تحريك النموذج بكل بساطة وحذفه "زحفه" إلى إحدى الزوايا والتمتع برؤية بريج بيزا وهو مائل.
- يمكن تطوير الفكرة أكثر من مزيد من الاختبارات ، هذا لمن يرغب في تغطية الخلفية ، بالنسبة لي لا أحب عمل خلفية وتغطية سطح المكتب.

أرجو تقبل تعليقي بصدر رحب وأذكر هذا ردي الأخير مهما كان تعليقك أو تعليق الأعضاء.
موفقين.