Foksh

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

يعني لو انت حذفت السجل رقم 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

لا يحتوي على العدد 5 ضمن منزلة محددة كما هو في أول الموضوع ؟ أم في أي منزلة !!!!!!! واذا كان اسم النموذج Open فهذا غير منطقي لأن الاسم من الأسماء المحجوزة في آكسيس ! ! على كل حال ارفق ملف أخي الكريم ..

اخي العزيز @Abdelaziz Osman ، انت عضو مميز ما شاء الله عليك ، وأكيد لا حاجة لتذكيرك بالشرح الوافي لمفهومك الذي تريد توصيله كمعلومة اعطنا امثلة على كلمة يحتوي التي تريدها كقيمة . كمثال ( 50000000001 تحتوي على الرقم الذي ذكرته و 5000000000000 ايضاً تحتوي على الرقم الذي ذكرته ) شكراً للتوضيح

محاولة متواضعة في المرفق بعد التعديل ، تم الغاء التخطيط Layout للعناصر ( Name , id1 ) وابقائها فقط على ( Date1,Date2 ) ، وإضافة سطر يجعل عرض العمود = 0 عند الإخفاء . 1.accdb

أخي الكريم ، أولاً أهلا وسهلا بك معنا في عالمنا الصغير المتواضع .. ثانياً وبما أنك جديد معنا فمن حقك لفت انتباهك لما يلي :- ضرورة إرفاق ملف مع الطلب ، ولا تنتظر أحد يطلبه منك . ( اقرأ قواعد المشاركة في المنتدى ) التفسير والإيضاح للمطلوب بشكل وافي وكافي وشافي ( ولا تبخل على نفسك بالشرح ) حاول الابتعاد عن الأسماء التي تكون باللغة العربية ( للحقول والجداول والنماذج ومكوناتها والإستعلامات ..... إلخ ) ، أو حتى أرقام ورموز أو مسميات محجوزة مثل ( Name , Date , .... إلخ ) هناك الكثير من الإخواة والأساتذة المتواجدين هنا ؛ ولكن هذا لا يعني أن الجميع قد يكون متفرغاً بأي وقت . استخدم كلمات مثل ( للرفع ، للمتابعة ، Up ... إلخ ) كي يبقى الموضوع متابعاً ،لا ان تغيب عنه اسبوعين وتعود له لتلقى الإجابة التي تريدها جاهزة . خذ كلامي بسعة صدر ورحابة ( وثق تماماً أن ما ذكرته لك هو لمصلحتك حتى تتخطى الكثير من العقبات والمشاكل لاحقاً أثناء تصميمك لبرامجك ومشاريعك )