Foksh

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

بص يا صديقي .. الآن انت عندك 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 .... وهكذا

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

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

دي فكرتي برضو ,, جرب كده التوريد.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