Foksh

هو انت فتحت الملف المرفق ، وفتحت الاستعلام 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 .... وهكذا

ربي يسعدك يا دكتور ، تسلم

اعتذر ، تم تعديل المرفق السابق ، كانت إحدى التجارب لفكرة أخرى هههههههه

دي فكرتي برضو ,, جرب كده التوريد.accdb

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

دي كانت موجودة في التعديل الأخير اللي بعتهولك هنا والسبب ان المرفق بتاع حضرتك بيدي اخطاء كتيرة على الدوال والوظائف اللي في النموذج وتم ازالتها .

مش هتحتاجي غير بس قيمة الخصم في discount و ED Private Sub discount_AfterUpdate() If Me.discount > 100 Then MsgBox "لا يمكن ان تكون قيمة الخصم اعلى من الاجمالى", , "" Me.discount = 0 Exit Sub Else Recheck End If End Sub Private Sub ED_AfterUpdate() If Me.ED > Me.service_price Then MsgBox "لا يمكن ان تكون قيمة الخصم اعلى من الاجمالى", , "" Me.ED = 0 Exit Sub Else Recheck End If End Sub

جرب هذه الفكرة صديقي @الحلبي ، مشاركةً مع معلمي الفاضل @ابوخليل .. التوريد.accdb

لا تحتاج لأكواد يا صديقي ، ولا اعلم ما السبب ، نتناقش دون ملف 2016 تعمل معه بكفائة لا اعلم ما علاقة تحديد الأيقونة في النماذج والأكواد

بالضبط ، فعلى أي شروط سيتم جلب البيانات لهذا الصنف ؟؟؟ أم أن للدكتور مغزى من هذا الطلب !!

اذا كانت الفرصة ما زالت متاحة لك ، الغ افضل اجابة عن نفسك أولاً ، ثم اختر اجابة الإستاذ @kkhalifa1960 ، أنت عضو فضي ومن المفترض أنك تعلم هذه الأمور