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

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


Ahmed_J
إذهب إلى أفضل إجابة Solved by د.كاف يار,

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

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

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

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

 

تم تعديل بواسطه Ahmed_J
  • Like 1
رابط هذا التعليق
شارك

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

 

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

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

 

image.png.23d300b010fea0483195a9db01aa3da2.png

 

جعفر

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

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

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

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

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

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

وشكرا جزيلا

 

data.accdb

تم تعديل بواسطه Ahmed_J
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

 

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

 

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

 

جعفر

example_semo.accdb

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

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

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

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

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

 

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

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

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

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

 

تحياتي لك

تم تعديل بواسطه Ahmed_J
  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

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

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

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

فقط اخر سؤال 

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

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

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

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

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

Private Sub Form_Resize()
  DoCmd.Maximize
End Sub

 

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

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

Hawiii_Data_02.accdb

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

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

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

 

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

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

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

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

تحياتي 

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

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

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

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

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

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

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

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

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

 

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

و بالشفرة 

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

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

النتيجة

ثبات النموذج 

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

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

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

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

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

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

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

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

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