Foksh

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

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

هنا المشكلة يا صديقي ، تكمن في اختلاف الدقة من كمبيوتر إلى آخر ,, على العموم مشكور على المحاولة اللطيفة ,, بعد تجربته على ملف خاص كانت نسبة النجاح في تحقيق الهدف 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

انا عن نفسي قمت باستخدام مشاركة الأخت @safaa salem5 في هذه المشاركة والأمر ناجح معي بنسبة 99%

أخي @2saad ، لا اريد أن أكون سلبي في ردودي صدقني ، ولكني أوجهك للأفضل بإذن الله .. استخدم علامتي الكود <> عند ادراجك لأي كود في مواضيعك مستقبلاً . فهذا أولا يسهل على القارئ قراءة الكود . أيضاً سيظهر بشكل جميل ويظهر كأنه كود وليس نص . على العموم ما اسم الجدول بما أنه سيكون في استعلام ؟؟؟؟ وهل على ما يبدو أنك تريد عمل ترفيع للصفوف

أخي @moho58 ، لا اعلم ان كنت قد فهمتك صح .. جرب هذا المرفق baseL.accdb

تفضل اخي @qathi ، هل هذا طلبك ؟؟ ScanPro.zip

اعتذر منك أخي الكريم @2saad ، فعلاً العنوان لا يدل على سؤالك وطلبك في المشاركة الثانية على العموم . هل هذا طلبك mas.zip

اعتذر منك أخي الكريم ، يبدو أنك قمت بتطبيق الفكرة قبل أن أقوم بتصحيح الخطأ الصادر مني . تفضل هذا التعديل Prog1.accdb

هذا سيعطيك السجلات الأكبر قيمة في حقل العمر .

كلام لا غبار عليه ، وأتفق معك معلمي الجليل

وعليكم السلام ورحمة الله وبركاته أخي @hassan123 .. تحتوي أكبر قيمة من ماذا أخي الكريم أكبر من ( يجب أن تكون القيمة محددة ) كمثال في استعلامك :- اذا اردت عرض الذين أعمارهم أكبر من 15 ، اكتب في الحقل xAGE في الاستعلام عند الشروط ( >15 ) أو كمثال أيضاً إذا أردت عرض الذين أعمارهم تكون 18 ، اكتب الشرط = 18 .... وهكذا