Foksh

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) طبعاً المكتوب باين من عنوانه . هي اللعبة المعروفة والتي لعبها منا على الأغلب الجميع في طفولته .. من يبدأ اللعب هو من يحصل على أعلى رقم من القرعة . اللعبة يلعبها لاعبين اثنين فقط . يتم تسجيل النقاط لكل لاعب في خانة منفصلة . طريقة التحرك بنمط حجر النرد ( ولا أعلم إن كان البعض سيقول لي أن النرد حرام ) لكنه هنا ليس حجر نرد حقيقي وإنما فكرة اختيار عشوائي لصور أوجه حجر النرد ) الأرقام ) تدل على خطوات التقدم . الصعود لأعلى عند وصول اللاعب إلى أول السلم حتى الخانة التي تمثل رأس السلم . وكما الصعود !! سيكون لدينا النزول عند وصول اللاعب إلى رأس الثعبان سينزل باتجاه الذيل نزولاً .. تسجيل الحركات الإنتقالية لكل لاعب في مربع الحركات أسفل اللعبة . في حال الوصول إلى 95 سيحتاج اللاعب للوصول إلى الهدف 100 إلى 6 نقاط أو أقل ، فلو تقدم الى 99 كمثال هنا سيحتاج الى نقطة واحدة للتحرك وللفوز . فلو كان الاختيار العشوائي للصورة فرضاً 4 فلا يتم تحقيق الفوز إلا بالرقم 1 .... وهكذا . عند فوز أحد اللاعبين ، سيتحول الزر إلى لعبة جديدة . إمكانية تكبير النموذج لملئ الشاشة أو لا ، حسب رغبتك صور من اللعبة :- ملف اللعبة مفتوح المصدر Snake3.accdb

موضوع تحديد القياسات مشكلة عند تحديدها ,, اقرأ هذا الموضوع قد يفيدك لأخونا @طير البحر ..

ولا يهمك يا أخي ، ولكني انصحك بأن لا تبخل في وصف المطلوب حتى لا يبخل عليك أحد في الإجابة

هنا المشكلة يا صديقي ، تكمن في اختلاف الدقة من كمبيوتر إلى آخر ,, على العموم مشكور على المحاولة اللطيفة ,, بعد تجربته على ملف خاص كانت نسبة النجاح في تحقيق الهدف 85% مقارنة مع الكود الذي أشرت إليه سابقاً ..

تفضل أخي @2saad ، نفس الدالة تم تنفيذها على استعلامك .. mas.zip

بارك الله فيك ، تعديل جميل ويحقق فكرة الأخ @سيد رجب

بص يا صديقي .. الآن انت عندك List Box وأكيد مصدر بياناته استعلام على ما أعتقد !! انت تستبدل اسم F_Name بالاسم ده في كود الرسالة.. Me.F_Name.Column(1) جرب واديني خبر

انت عايز دالة بوحدة نمطية تقوم بهذه المهمة ، واستدعائها من خلال استعلام ؟؟؟؟؟؟ يا رب أكون فهمت صح المرا دي

مش فاهم طيب على أمل اني أكون فهمتك صح .. شوف كده mas.zip

هو انت فتحت الملف المرفق ، وفتحت الاستعلام Update ؟؟؟؟؟؟

أخي @jo_2010 ، ارجو اضافة الكود كتابة باستخدام علامتي <> بدلاً من صورة ، لأن اعتقد البعض لن يضطر لاعادة كتابة الكود بشكل يدوي نقلاً عن صورة ..

هل هذا ما تقصده أخي الكريم @العبيدي رعد :- سلف.accdb

ولا يهمك أخي الكريم @2saad .. بص أول حاجة لازم نفهمها إن الاستعلام اللي انت كاتبه يحتوي الكثير من الشروط ؛ وده ممكن يكون معقد شوية ، فإحنا هنحاول أول حاجة إننا نقسم الشروط دي بطريقة تانية . إحنا بدل ما نستخدم الجملة IIF المتكررة والمتداخلة !! ممكن نستخدم مكانها الدالة Switch اللي بتشبة الى حد ما الدالة Case .. على العموم جرب الكود ده ويا رب خير :- SELECT [eltkeem_elam], [elnoa], [elsaf], Switch( [eltkeem_elam] = "غ" And [elnoa] = "ذكر" And [elsaf] = "الأول", "ومنقول للصف الثاني الابتدائي", [eltkeem_elam] = "غ" And [elnoa] = "انثي" And [elsaf] = "الأول", "ومنقولة للصف الثاني الابتدائي", [eltkeem_elam] <> "غ" And [elnoa] = "ذكر" And [elsaf] = "الأول", "ومنقول للصف الثاني الابتدائي", [eltkeem_elam] <> "غ" And [elnoa] = "انثي" And [elsaf] = "الأول", "ومنقولة للصف الثاني الابتدائي", [eltkeem_elam] = "غ" And [elnoa] = "ذكر" And [elsaf] = "الثاني", "ومنقول للصف الثالث الابتدائي", [eltkeem_elam] = "غ" And [elnoa] = "انثي" And [elsaf] = "الثاني", "ومنقولة للصف الثالث الابتدائي", [eltkeem_elam] <> "غ" And [elnoa] = "ذكر" And [elsaf] = "الثاني", "ومنقول للصف الثالث الابتدائي", [eltkeem_elam] <> "غ" And [elnoa] = "انثي" And [elsaf] = "الثاني", "ومنقولة للصف الثالث الابتدائي", [eltkeem_elam] = "غ" And [elnoa] = "ذكر" And [elsaf] = "الثالث", "ومنقول للصف الرابع الابتدائي", [eltkeem_elam] = "غ" And [elnoa] = "انثي" And [elsaf] = "الثالث", "ومنقولة للصف الرابع الابتدائي", [eltkeem_elam] <> "غ" And [elnoa] = "ذكر" And [elsaf] = "الثالث", "ومنقول للصف الرابع الابتدائي", [eltkeem_elam] <> "غ" And [elnoa] = "انثي" And [elsaf] = "الثالث", "ومنقولة للصف الرابع الابتدائي" ) AS Result FROM result_end_1; الإستعلام Update .. mas.zip وكإضافة أخرى ، هذا الاستعلام نفسه ولكن باستعمال الجملة الشرطية IIF :- SELECT [eltkeem_elam], [elnoa], [elsaf], IIf([eltkeem_elam]="غ" And [elnoa]="ذكر" And [elsaf]="الأول", "ومنقول للصف الثاني الابتدائي", IIf([eltkeem_elam]="غ" And [elnoa]="انثي" And [elsaf]="الأول", "ومنقولة للصف الثاني الابتدائي", IIf([eltkeem_elam]<>"غ" And [elnoa]="ذكر" And [elsaf]="الأول", "ومنقول للصف الثاني الابتدائي", IIf([eltkeem_elam]<>"غ" And [elnoa]="انثي" And [elsaf]="الأول", "ومنقولة للصف الثاني الابتدائي", IIf([eltkeem_elam]="غ" And [elnoa]="ذكر" And [elsaf]="الثاني", "ومنقول للصف الثالث الابتدائي", IIf([eltkeem_elam]="غ" And [elnoa]="انثي" And [elsaf]="الثاني", "ومنقولة للصف الثالث الابتدائي", IIf([eltkeem_elam]<>"غ" And [elnoa]="ذكر" And [elsaf]="الثاني", "ومنقول للصف الثالث الابتدائي", IIf([eltkeem_elam]<>"غ" And [elnoa]="انثي" And [elsaf]="الثاني", "ومنقولة للصف الثالث الابتدائي", IIf([eltkeem_elam]="غ" And [elnoa]="ذكر" And [elsaf]="الثالث", "ومنقول للصف الرابع الابتدائي", IIf([eltkeem_elam]="غ" And [elnoa]="انثي" And [elsaf]="الثالث", "ومنقولة للصف الرابع الابتدائي", IIf([eltkeem_elam]<>"غ" And [elnoa]="ذكر" And [elsaf]="الثالث", "ومنقول للصف الرابع الابتدائي", IIf([eltkeem_elam]<>"غ" And [elnoa]="انثي" And [elsaf]="الثالث", "ومنقولة للصف الرابع الابتدائي", "")))))))))))) AS Result FROM result_end_1;

الرسالة مفادها انك تستخدم أوفيس 64 ، والكود مصمم للنواة 32 ، فقط استبدل الجزء الأحمر بالتالي :- Declare PtrSafe Function CLTAPI_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _ pOpenfilename As CLTAPI_WINOPENFILENAME) As Boolean Declare PtrSafe Function CLTAPI_GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" ( _ pOpenfilename As CLTAPI_WINOPENFILENAME) As Boolean Declare PtrSafe Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" ( _ ByVal hwnd As LongPtr, rgb As Long) جرب وأخبرني ،

اجعل قيمة الحقل الافتراضية "الرقم" في الجدول = 0