Foksh

أعتذر منك أخي الكريم ، تفضل هذا التعديل ولكني أنصحك دائماً بفتح موضوع جديد ، وهذا من حقك 4.accdb

أيضاً تأكد مما إذا كان الحل كما تريد أم لا ؟؟ قرض.accdb

لإضافة اسمك ، اكتبه واضغط انتر ، الحدث في الكومبوبوكس مختلف عن زر التشغيل أو بدء اللعبة

عند ادخال اسمك كمستخدم جديد اكتب الاسم واضغط انتر !!

لا يا صديقي ، لا تختصر حتى تتوضح الصورة

يعني لو انت حذفت السجل رقم 40 ، وبعدها بوقت ثاني جيت وضفت سجل جديد . تريد السجل الجديد يكون رقمه 40 بدلاً من 51 !!!!!!!!

اذا كانت الفكرة هي انشاء استعلامات لما طلبت ، فجرب المرفق إن كان ما فهمته صحيح !! قرض.zip

جواب السؤال اللولبي الأول ، دي طعم ومش هينفع تاخدها 🤣 والتانية انت لو خرجت هتروح فين ؟؟؟؟؟؟؟🤪 ولا انت عاوز تخسر وخلاص 😂 يبقى نرجع من مكان ما جينا 😉

الإصدار الأول ( 4 مراحل حالياً ) النسخة للتجربة والتعليقات

حركة جميلة بضبط ارتفاع العناصر .. أبدعت أستاذ موسى

مهندسنا الغالي ،، لولا المسافة ولا أبشروا بأحلى منسف 😇 التصميم للأمانة منقول مع إجراء تعديلاتي حسب حاجتي . أما سر الخلطة في الأكواد فهي مجرد خربشات 🤪 يسعدني تعليقاتك ومن قام بالتجربة حتى أطور على هذه التجربة للأفضل 🤭

ان شاء الله قريباً سيتم ادراج أول نسخة من الإصدار الجديد ( 5 مراحل ) ان شاء الله ، ويهمني رأي من يتابع الفكرة ليست لأنها لعبة ، بل بتوظيف آكسيس فوق ما هو معهود عليه من قدرات ويسعدني ردك مهندس عمر

في التحديث الجديد ، تم اعتماد نفس نمط المتاهة ولكن مع تغيير وتحديث المستوى من 1 - 30 ، حيث سيكون في كل مستوى متقدم لغز جديد يختلف عن السابق وبتصاعد وتيرة التحدي من السهل الى الصعب في آخر مستوى ( المستوى 30 ) . جميع التعديلات في نمط المتاهة من تعديلي وتصميمي وهذا شكل التصميم الذي تم اعتماده تقريباً ؛ ما لم يطرأ أي تحديث للأفضل .

مرفق ملف للإصدارات الـ 32 Haze Game (32 Bit).zip

معك حق في هذه النقطة ( لكن حالياً انا عندي النظام 64 ، ولكن ثق تماماً أني سأرفق لك ولأصحاب الإصدارات الـ 32 بت نسخة مخصصة ) ، والهدف هو ليس التقييم ، وإنما للملاحظات والتطويرات ليس أكثر . أشكرك على الكلام اللطيف صديقي المهندس عمر .. تمام الحمد لله ، مع العلم ان هذه النسخة فقط بدائية وقيد التطوير بنظام أجمل ومراحل تصل إلى 30 مرحلة ..

تفضل يا صديقي ,, التعديل على جميع الجمل الشرطية في التقرير Option Compare Database Private Sub Report_Open(Cancel As Integer) If Forms!form1.Check1 = False And Forms!form1.Check2 = False Then MsgBox "NoChose" DoCmd.CancelEvent ElseIf Forms!form1.Check1 = True And Forms!form1.Check2 = False Then Me.date2.Width = 0 ElseIf Forms!form1.Check2 = True And Forms!form1.Check1 = False Then Me.date1.Width = 0 End If End Sub Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer) If Forms!form1.Check1 = True And Forms!form1.Check2 = True Then Me.R.Value = Me.AccessTotalsdate1 + Me.AccessTotalsdate2 ElseIf Forms!form1.Check1 = True And Forms!form1.Check2 = False Then Me.R.Value = Me.AccessTotalsdate1 ElseIf Forms!form1.Check2 = True And Forms!form1.Check1 = False Then Me.R.Value = Me.AccessTotalsdate2 End If End Sub 2.accdb

من خلال الجملة الشرطية تستطيع تنفيذها يا صديقي 🤗

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) هذه المرة دعوة لتجربة لعبة المتاهة Maze لأول مرة من خلال آكسيس ميزات اللعبة :- التحكم الكامل من خلال الأسهم في لوحة المفاتيح . تجميع النقاط كلما التهمت الشخصية عدداً أكبر من ( ) . تخسر إذا لامست هذا الكائن في اللعبة ( ) عند طلب المساعدة باستخدام ( ) فإنه سيتم خصم 10 نقاط من رصيد النقاط التي قمت بتجميعها . اللعبة في إصدارها الأول حالياً وسيكون قريباً الكثير من المستويات في اللعب ، وهذه فقط دعوة لتجربتها وإفادتي بآرائكم حول تطويرها وتحديثها وأترككم مع ملف التحميل : Maze Game.zip

بالعكس أستاذنا الغالي ، يشرفنا ردكم و وجودكم . واشتقنا لمشاركاتكم ومداخلاتكم التي منها نستفيد ونتعلم

وعليكم السلام ورحمة الله وبركاته ،، استخدم الكود التالي لتقسيم التاريخ الحالي وتوزيعه الى مربعات النص :- Private Sub oktxt_Click() Me.yn.Value = Year(Date) Me.mn.Value = Month(Date) Me.dn.Value = Day(Date) Me.mt.Value = Format(Date, "mmmm") Me.dt.Value = Format(Date, "dddd") End Sub ملفك بعد التعديل : time.accdb