jjafferr

واذا عندك صفوف غير "الصف الخامس جميع الدرجات" ، فيمكننا تعديل الدالة ، بحيث تستخدمها لجميع الصفوف : والدالة: Option Compare Database Option Explicit Dim rst As DAO.Recordset ' Function Pass(ID As Long, Clss As String) As String On Error GoTo err_Pass 'Clss= Class = اسم جدول الصفوف مثل: الصف الخامس جميع الدرجات 'ID = المعرف = معرف السجل 'IIf([الاسلامية الدرجة بعد الاكمال]>=49.5 And [العربية الدرجة بعد الاكمال]>=49.5 And [الانكليزية الدرجة بعد الاكمال]>=49.5 And [الرياضيات الدرجة بعد الاكمال]>=49.5 And [الحاسوب الدرجة بعد الاكمال]>=49.5 And [الفيزياء الدرجة بعد الاكمال]>=49.5 And [الكيمياء الدرجة بعد الاكمال]>=49.5 And [الاحياء الدرجة بعد الاكمال]>=49.5 And [علم الارض الدرجة بعد الاكمال];"ناجح ";"راسب") Set rst = CurrentDb.OpenRecordset("SELECT * FROM [" & Clss & "] WHERE [المعرف]=" & ID) If Len(rst![الاسلامية الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![العربية الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الانكليزية الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الرياضيات الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الحاسوب الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الفيزياء الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الكيمياء الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الاحياء الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![علم الارض الدرجة بعد الاكمال] & "") = 0 Then Pass = "" ElseIf rst![الاسلامية الدرجة بعد الاكمال] >= 49.5 And _ rst![العربية الدرجة بعد الاكمال] >= 49.5 And _ rst![الانكليزية الدرجة بعد الاكمال] >= 49.5 And _ rst![الرياضيات الدرجة بعد الاكمال] >= 49.5 And _ rst![الحاسوب الدرجة بعد الاكمال] >= 49.5 And _ rst![الفيزياء الدرجة بعد الاكمال] >= 49.5 And _ rst![الكيمياء الدرجة بعد الاكمال] >= 49.5 And _ rst![الاحياء الدرجة بعد الاكمال] >= 49.5 And _ rst![علم الارض الدرجة بعد الاكمال] >= 49.5 Then Pass = "ناجح" Else Pass = "راسب" End If Exit_Pass: rst.Close: Set rst = Nothing Exit Function err_Pass: If Err.Number = 1 Then Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Pass End If 'a = [المعرف] 'a = [تسلسل] 'a = [اسم الطالب الرباعي] 'a = [الصف] 'a = [الشعبة] 'a = [التولد] 'a = [رقم القيد] 'a = [رقم الصفحة] 'a = [اسم الام] 'a = [سنوات الرسوب] 'a = [آخر مدرسة] 'a = [الملاحظات] 'a = [اسلامية معدل النصف الاول] 'a = [اسلامية درجة نصف السنة] 'a = [اسلامية معدل النصف الثاني] 'a = [اسلامية درجة السعي السنوي] 'a = [اسلامية درجة امتحان آخر السنة] 'a = [اسلامية الدرجة النهائية] 'a = [الاسلامية درجة الاكمال] 'a = [الاسلامية الدرجة بعد الاكمال] 'a = [اسلامية] 'a = [العربية] 'a = [الكردية] 'a = [الانكليزية] 'a = [الرياضيات] 'a = [الحاسوب] 'a = [الفيزياء] 'a = [الكيمياء] 'a = [الاحياء] 'a = [علم الارض] 'a = [العام الدراسي] 'a = [نتيجة الدور الاول] 'a = [نتيجة الدور الثاني] 'a = [نتيجة الطالب] 'a = [مواد الاكمال] 'a = [رفـع بقرار بالمواد الدراسية] 'a = [الدرجة المضافة] 'a = [من] 'a = [الى] 'a = [باقي القرار] 'a = [مواد الاعفاء] 'a = [نوع الاعفاء] End Function 1570.1.test.accdb.zip

الحاسبة التي تم تنصيب اكسس 32بت عليها ، استعمل قاعدة بياناتك التي قفلتها بنواة 32بت ، والحاسبة التي تم تنصيب اكسس 64بت عليها ، استعمل قاعدة بياناتك التي قفلتها بنواة 64بت. لا يمكنك الخلط بينهم

يجب ان تكون عندك نسختين ، واحدة لنواة 32بت ، واخرى لنواة 64بت 🙂

عملت استعلام ، يرسل رقم المعرف الى الدالة Pass في وحدة نمطية ، ويحصل على النتيجة منها : . وهذه الدالة (تركت لك بقية حقول الجدول ، قد تستفيد منها لاحقا) : Option Compare Database Option Explicit Dim rst As DAO.Recordset ' Function Pass(ID As Long) As String On Error GoTo err_Pass 'IIf([الاسلامية الدرجة بعد الاكمال]>=49.5 And [العربية الدرجة بعد الاكمال]>=49.5 And [الانكليزية الدرجة بعد الاكمال]>=49.5 And [الرياضيات الدرجة بعد الاكمال]>=49.5 And [الحاسوب الدرجة بعد الاكمال]>=49.5 And [الفيزياء الدرجة بعد الاكمال]>=49.5 And [الكيمياء الدرجة بعد الاكمال]>=49.5 And [الاحياء الدرجة بعد الاكمال]>=49.5 And [علم الارض الدرجة بعد الاكمال];"ناجح ";"راسب") Set rst = CurrentDb.OpenRecordset("SELECT * FROM [الصف الخامس جميع الدرجات] WHERE [المعرف]=" & ID) If Len(rst![الاسلامية الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![العربية الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الانكليزية الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الرياضيات الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الحاسوب الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الفيزياء الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الكيمياء الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![الاحياء الدرجة بعد الاكمال] & "") = 0 Or _ Len(rst![علم الارض الدرجة بعد الاكمال] & "") = 0 Then Pass = "" ElseIf rst![الاسلامية الدرجة بعد الاكمال] >= 49.5 And _ rst![العربية الدرجة بعد الاكمال] >= 49.5 And _ rst![الانكليزية الدرجة بعد الاكمال] >= 49.5 And _ rst![الرياضيات الدرجة بعد الاكمال] >= 49.5 And _ rst![الحاسوب الدرجة بعد الاكمال] >= 49.5 And _ rst![الفيزياء الدرجة بعد الاكمال] >= 49.5 And _ rst![الكيمياء الدرجة بعد الاكمال] >= 49.5 And _ rst![الاحياء الدرجة بعد الاكمال] >= 49.5 And _ rst![علم الارض الدرجة بعد الاكمال] >= 49.5 Then Pass = "ناجح" Else Pass = "راسب" End If Exit_Pass: rst.Close: Set rst = Nothing Exit Function err_Pass: If Err.Number = 1 Then Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Pass End If 'a = [المعرف] 'a = [تسلسل] 'a = [اسم الطالب الرباعي] 'a = [الصف] 'a = [الشعبة] 'a = [التولد] 'a = [رقم القيد] 'a = [رقم الصفحة] 'a = [اسم الام] 'a = [سنوات الرسوب] 'a = [آخر مدرسة] 'a = [الملاحظات] 'a = [اسلامية معدل النصف الاول] 'a = [اسلامية درجة نصف السنة] 'a = [اسلامية معدل النصف الثاني] 'a = [اسلامية درجة السعي السنوي] 'a = [اسلامية درجة امتحان آخر السنة] 'a = [اسلامية الدرجة النهائية] 'a = [الاسلامية درجة الاكمال] 'a = [الاسلامية الدرجة بعد الاكمال] 'a = [اسلامية] 'a = [العربية] 'a = [الكردية] 'a = [الانكليزية] 'a = [الرياضيات] 'a = [الحاسوب] 'a = [الفيزياء] 'a = [الكيمياء] 'a = [الاحياء] 'a = [علم الارض] 'a = [العام الدراسي] 'a = [نتيجة الدور الاول] 'a = [نتيجة الدور الثاني] 'a = [نتيجة الطالب] 'a = [مواد الاكمال] 'a = [رفـع بقرار بالمواد الدراسية] 'a = [الدرجة المضافة] 'a = [من] 'a = [الى] 'a = [باقي القرار] 'a = [مواد الاعفاء] 'a = [نوع الاعفاء] End Function والنتيجة من البيانات التي في الجدول: 1570.test.accdb.zip

نعم لوسمحت

تقدر تعمل وحدة نمطية ، ولكن الافضل ان نرى البيانات

وعليكم السلام 🙂 اذن ، اذا لم يوجد رقم ، تريده لا يتكتب شيء ، فيمكننا استعمال الامر IsNumeric([Grade]) (هل حقل Grade رقم) ، جرب هذا الكود : iif(IsNumeric([Grade]);""; iif([Grade]<50; "راسب"; "ناجح"))

وعليكم السلام 🙂 اي شرح؟ وكم حجم قاعدة بياناتك؟ وما نوع بياناتك، تستعملها كلها ، ام بها بيانات للارشفة؟

حياك الله 🙂 ها يالشايب ، وين موضوعنا الجاي ان شاء الله 🙂 جعفر

دكتور حلبي ، الظاهر اننا مو فاهمين بعض !! هذا هو المرفق مرة اخرى. العمل تم على الكائنات التي عليها الاسهم ، فانقلها الى برنامجك ، اما بقية الكائنات ، فلم اعمل عليها اي تغيير 1565.تفعيل خانة الاختيار.accdb.zip

انت قلت ان النتائج صحيحة من استعلام ابو البشر ، فما بحثت عن هذه النقطة 😁 القصد كان السرعة 🙂 خليني ارجع للبرنامج واشوف المطلوب ان شاء الله

1. اعمل للبرنامج "ضغط واصلاح" 2. افتح الاستعلام qry_alldata_Excel_2 المفروض يكون اسرع بكثير من الطريقة السابقة 🙂 as.zip

تم انزال المرفق ، شكرا

وعليكم السلام 🙂 الرسالة تقول ان هناك اكثر من شخص يقوم بالتعديل على قاعدة البيانات في نفس الوقت ، ولحل هذه المشكلة ، افتح الاكسس "حصرا" لك: - افتح برنامج الاكسس (وليس قاعدة البيانات) ، - اختر قاعدة البيانات ، - استخدم السهم على زر "فتح" ، واختار من القائمة المنسدلة "افتح حصرا" . الموقع التالي يعطيك الطريقة بالصور ، حسب نسخة قاعدة بياناتك : https://www.cocosenor.com/articles/office/how-to-open-access-database-exclusively.html جعفر

وعليكم السلام 🙂 تفضل ، هذه طريقة العمل : وتابع الموضوع الى آخر مشاركة 🙂

شكرا جزيلا ابو احمد 🙂

لوسمحت ترفع الملف على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا

في هذه المشاركة اعلاه :

وعليكم السلام 🙂 ممكن المشكلة الوحيدة اللي شايفها هي ، يجب كتابة اسم الحقل بين قوسين مربعين [] ، وإلا فالاكسس سيعتبرها نص !! وعملت لك تغيير بسيط في الكود : [order_code] & "." & [report_No] & "." & Format([Received_date],"mm") & "." & Format([Received_date],"yy") اذا ما عمل الكود ، سؤالي سيكون: وين مكان الكود ؟

ممتاز 🙂 بس سؤال: ليش تستخدم Pos لمكان بداية الكلمات ، هل Replace ما يكفي؟ شفت الكود اطول في النسخة 4 ، بس ما عرفت شو الفرق في النتيجة ، فيا ريت تخبرنا 🙂 ويا ريت تترك لنا ملاحظاتك في الكود ،خصوصا انه قصير 😁 جعفر

السلام عليكم 🙂 لوسمحت ترفق اكبر ملف عندك ، لازم نجرب عليه 🙂 جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 للاستفادة القصوى من المنتدى ، رجاء استعمال خاصية البحث 🙂 هذا احد المواضيع جعفر

وعليكم السلام 🙂 اعمل جدول خاص لهذا ، وتحتاج عمودين على الاقل: نوع_التوصيل ، اسم_الشركة_المخزن مثلا: شركة ، شركة 1 شركة ، شركة محمد شركة ، شركة المواد الغذائية توصيل ، مخزن 1 توصيل ، مخزن 2 توصيل ، مخزن 3 توصيل ، مخزن 4 جعفر

وانزلتها الى صيغة اكسس 2000 🙂 color2.zip

تفضل يا سيدي ، تم حذف الحقول المحسوبة في الجدول 🙂 color.zip وقد تستفيد من الخطوة التي قمت بها : =IIf(IsNull([Forms]![3_JO_Search]![txtSearchText]),[اسم المريض],Replace([اسم المريض], [Forms]![3_JO_Search]![txtSearchText], "<b><font color = red >" & [Forms]![3_JO_Search]![txtSearchText] & "</font></b>"))