نجوم المشاركات

أخواني وأساتذتي ومعلمينا ( دون استثناء ) الموضوع باين من عنوانه ، الفكرة هي تجسيد للعبة كانسة الألغام القديمة التي كانت من إنتاج شركة مايكروسوفت ، والتي ظهرت لأول مرة عام 1990 في نظام التشغيل Windows 3.1 . 💣 الهدف من اللعبة : هو اجتياز لوحة مليئة بالمربعات دون تفجير الألغام المخفية ، باستخدام المنطق والأرقام التي تشير إلى عدد الألغام المجاورة لكل مربع مكشوف . 💣 عدد الألغام : في كل مستوى يبدأ من 1 للمستوى الأول ، والثاني لُغمين اثنين ، والثالث 3 ألغلام وهكذا إلى المستوى الأخير ( المستوى 11 ) ويحتوي 15 لغم . 💣 صورة من واقع اللعبة (المستوى 11 والأخير قبل زرع الألغام الحقيقة طبعاً 😁 ) :- 💣 تحميل اللعبة للنواتين :- 64 :- Minesweeper 64.zip 32 :- Minesweeper 32.zip في هذه المشاركة هنا 👉 في هذه المشاركة هنا 👉 في هذه المشاركة هنا 👉

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

عفوا انا قمت بتعديل الرد بعد ما لاحظت أنه يتم قفل السجل في الحالتين ولكن مع إختلاف الوقت الذي يستمر فيه الإقفال هناك نفس الخيار ولكن عن طريق خصائص النموذج بالتالي فأي شخص فاتح للنموذج عبر الشبكة سيقوم بقفل السجل

في طلبك الاول TextBox8 فقط والان تغير الطلب الى الكمبوبكس يمكن اظافة التالي الى UserForm_Initialize Dim ctrl As Control For Each ctrl In Me.Controls If TypeName(ctrl) = "ComboBox" Then ctrl.Style = fmStyleDropDownList ctrl.Locked = False End If Next ctrl برنامج المراكز الطبية 30 اغسطس.xlsm

مهندستا @Eng.Qassim ماانتبهت للحقل الحسابي .... وجزاكم الله كل الخير . تفضل استاذ @RAIANESAMI المرفق وبه النسختان . BRAHIMBenAissa-3.rar

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

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

هل يوجد فديو تعليمي يشرح الطريقة من البداية إلى النهاية جزاك الله خير

السلام عليكم اخي العزيز... حاول ان تجعل الحقول الحسابية calculated في الاستعلام وليس في الجدول حتى يسهل تحويلها الى mdb 2003

العفو أخي مراد .. 🌹🙂 أيش رايك تجرب تضيف الحقل عشان تتعلم وأنا راح أساعدك.. - أول شي اضف الحقل من نوع تاريخ في الجدول . ـ وبعدين تضيف الحقل في النموذج . - وبعدين في الأستعلام مصدر بيانات النموذج تكتب تحت حقل التاريخ في المعيار : <= Date()

استاذ @احمد العدوى الرسالة التي تظهر في الصورة تقول: "يتبيّن عن التعبير عند الفتح الذي أدخلته كإعداد خاصية الحدث الخطأ التالي: Return without GoSub." المعنى: يوجد خطأ في كود VBA داخل أحد أحداث النموذج أو التقرير (غالبًا في حدث On Open أو On Close أو On Load)، حيث يحتوي الكود على عبارة Return بدون أن يكون هناك أمر GoSub قبلها. 1- في أحد أكواد الأحداث، هناك سطر مثل: Return لكنه غير تابع لأي كتلة GoSub ... Return. وهذا غير مسموح في VBA (يُستخدم GoSub وReturn فقط معًا داخل نفس الروتين). 2-أو قد يكون حدث النموذج (مثل On Close أو On Load) يشير إلى ماكرو أو دالة لم تعد موجودة أو تمت إعادة تسميتها. أحيانًا يظهر هذا الخطأ إذا تم كتابة اسم الماكرو أو الدالة في خاصية الحدث (Event Property) خطأ، مثل: =MyMacro() بينما الماكرو نفسه تم حذفه أو تغيّر اسمه. ✅ الحلول المقترحة خطوة بخطوة: افتح النموذج (أو التقرير) الذي يظهر عند إغلاق الملف أو فتحه (غالبًا Form_Main أو Form_Login). من طريقة العرض التصميم (Design View)، حدد النموذج واضغط F4 لفتح "ورقة الخصائص (Property Sheet)". راجع الخصائص التالية في تبويب حدث (Event): عند الفتح (On Open) عند التحميل (On Load) عند الإغلاق (On Close) عند إلغاء التحميل (On Unload) 🔧 مثال توضيحي: إذا وجدت أن هناك اسم دالة أو ماكرو مكتوب فيها (مثل =MyFunction() أو MyMacro😞 اضغط على الزر […] بجانبها، وافتح محرر الكود، وتأكد أن الكود موجود وسليم. إذا لم تكن تستخدم هذا الحدث، احذفه (اجعلها فارغة). ابحث في الكود داخل النموذج أو الماكرو عن أي سطر فيه Return بدون GoSub. إما احذفه أو استبدله بـ Exit Sub أو Exit Function حسب السياق. 🔧 مثال توضيحي: ❌ الكود الخطأ: Private Sub Form_Close() If Me.Dirty Then Me.Dirty = False End If Return End Sub ✅ التصحيح: Private Sub Form_Close() If Me.Dirty Then Me.Dirty = False End If Exit Sub End Sub إذا أردت، أرسل لي الكود الموجود في حدث Form_Close أو Form_Unload من النموذج الذي يظهر عند الإغلاق، وسأحدد لك السطر المسبب للخطأ بالضبط.

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

سعيد بمشاركتي معكم .

تفضل استاذي . takhrij-2.rar

السلام عليكم قام أخي أنس دروبي بنشر موضوع ( فورم بحث بأكثر من ثلاث خيارات ) ، و بناءا على طلبه وضعت هذا الفورم في موضوع مستقل ليسهل الوصول اليه اثناء البحث في المنتدى أخبركم إخواني أنه إستغرق منى أكثر من 10 ساعات عمل ( متقطعة ) و و الله انها الحقيقة و رغم ذلك ربما سيكون فيه بعض الاخطاء ( فجل من لا يسهو ) و ان كانت هناك اخطاء فيمكن استدراكها بعد ملاحظاتكم و تجربتكم للفورم . ألا يستحق هذا دعاءا في ظهر غيب ؟ طريقة تصميم فورم بحث عن طريق لست بوكس2.rar

تحياتى لاعضاء المنتدى للاستفادة و للساده الاعضاء الذين عندهم اكواد بحث بدبل كليك مشابهه رفعها بنفس الموضوع لتعم و تتنوع الاستفادة مرفق نموذج بحث و اضافة بدبل كليك من اعمال الاستاذ_ عبدالله باقشير مزايا الكود سهولة استدعاء الفورم سرعة البحث بحساسية الاحرف جزاكم الله خيرا_تحياتى نموذج بحث بدبل كليك_KH.rar