Foksh

ههههه 😂 اذا كان الاستعلام قام بفرز النتائج كما نريد ، فمن خلال استعلام تحديث نستطيع توزيع القيم على 3 حقول . ولكني تركت الأمر لصاحب الموضوع ليعود لي بالنتيجة على كل حال ، الفكرة هي وضع التعبيرات السابقة في خانة Update to في استعلام التحديث والباقي عليه 😇

اشكرك معلمي الفاضل @ابوخليل على مشاركتك .. قد تكون المشكلة في الملف ولا اعلم ذلك الا انني جربته على اصدار 2010 = 32 بت ولم تظهر هذه المشكلة. سأتحقق منه مرة أخرى واقوم برفعه

من خلال استعلام جديد ، اختر الجدول ، وبالافتراض ان الحقل اسمه "رصيد" اضف التعبيرات الثلاثة التالية في الحقول :- دائن: IIf([رصيد] < 0, [رصيد], Null) مدين: IIf([رصيد] > 0, [رصيد], Null) منتهى: IIf([رصيد] = 0, [رصيد], Null) جرب واخبرني بالنتيجة

مشاركة مع الاستاذ @Barna جرب هذا المرفق ، اختر الجدول ثم اسم الحقل ثم اضغط الزر Delete Col.accdb

في الصورة التالية فكرة لتحريك صور معينة باتجاهات معينة ، وكما هو ملاحظ يوجد ترميش ( وميض ) في بعض الأحيان . الموضوع للنقاش بخصوص هل من أفكار أو طرق للتقليل أو لمنع هذا الترميش أو الوميض ؟؟ * طبعاً عدد الصور المتحركة ليس له علاقة بالترميش أو الوميض

ما شاء الله ، معلومة قيمة وجديدة علي وأعتقد على الأغلبية أيضاً .. بارك الله فيك أستاذنا الشايب

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

المهم انك اكتشفت و وجدت الحل

أكيد هناك طرق أخرى ، ولكن هنا كانت الفكرة على عدد اعمدة بسيط

أعتذر منك أخي الكريم ، تفضل هذا التعديل ولكني أنصحك دائماً بفتح موضوع جديد ، وهذا من حقك 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