Ibrahim IQ قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 السلام عليكم الاصدقاء اعزاء ، لدى قاعدة البيانات المدرسية واريد اذا الطالب أو طالبة واحد من مواده من بين 40 - 50 اكتب crossed او عبور فقط واحد من بين كل مواد الدراسى - اذا واحد من مواده اقل من 40 او اكثر من المواد اقل من 50 اكتب راسب واذا كل من موادة اكثر من 50 اكتب ناجح .... شكرا للاجابة crossed.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 20 ساعات مضت, Rebaz Bahram said: السلام عليكم الاصدقاء اعزاء ، لدى قاعدة البيانات المدرسية واريد اذا الطالب أو طالبة واحد من مواده من بين 40 - 50 اكتب crossed او عبور فقط واحد من بين كل مواد الدراسى - اذا واحد من مواده اقل من 40 او اكثر من المواد اقل من 50 اكتب راسب واذا كل من موادة اكثر من 50 اكتب ناجح .... شكرا للاجابة crossed.rar اتفضل ما تريد ان شاء الله بيكون هو المطلوب ملفك بعد تعديل مع الشرح بالصور شوف عملنا استعلام للجدول باسم كويري 1 واضفنا الى هذا الاستعلام ثلاث حقول اخر بالاكواد كما مبينة بالصور شوف الاكواد لكل حقل وهذ كود الحقل الاول اللي باسم Expr1 Expr1: IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [sport]>=40 And [sport]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [sport]>=50 And [geography]>=40 And [geography]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [sport]>=50 And [geography]>=50 And [history]>=40 And [history]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [sport]>=50 And [history]>=50 And [geography]>=50 And [science]>=40 And [science]<50;"عبور";IIf([arabic]>=50 And [sport]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [english]>=40 And [english]<50;"عبور";IIf([sport]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [arabic]>=40 And [arabic]<50;"عبور";"shivan")))))) وكما مبينة الكود في الصورة وهذا هو الكود الحقل الثاني اللي باسم Expr2 Expr2: IIf([arabic]<50 And [english]<50 Or [arabic]<50 And [science]<50 Or [arabic]<50 And [history]<50 Or [arabic]<50 And [geography]<50 Or [arabic]<50 And [sport]<50;"راسب";IIf([english]<50 And [science]<50 Or [english]<50 And [history]<50 Or [english]<50 And [geography]<50 Or [english]<50 And [sport]<50;"راسب";IIf([science]<50 And [history]<50 Or [science]<50 And [geography]<50 Or [science]<50 And [sport]<50;"راسب";IIf([history]<50 And [geography]<50 Or [history]<50 And [sport]<50;"راسب";IIf([geography]<50 And [sport]<50;"راسب";IIf([arabic]<40 Or [english]<40 Or [science]<40 Or [history]<40 Or [geography]<40 Or [sport]<40;"راسب";"ناجح")))))) كما مبينة بالصور الادناه كود لحقل التقييم تقييم: IIf([Expr1]="عبور";"عبور";IIf([Expr1]<>"عبور" And [Expr2]="ناجح";"ناجح";"راسب")) وكما في الصورة ادناه والنتيجة الاخيرة شوف بالصور واتفضل مع قاعدة بيانات مع تحياتي crossed.rar 1 رابط هذا التعليق شارك More sharing options...
Ibrahim IQ قام بنشر يناير 31, 2017 الكاتب مشاركة قام بنشر يناير 31, 2017 (معدل) 5 ساعات مضت, Shivan Rekany said: اتفضل ما تريد ان شاء الله بيكون هو المطلوب ملفك بعد تعديل مع الشرح بالصور شوف عملنا استعلام للجدول باسم كويري 1 واضفنا الى هذا الاستعلام ثلاث حقول اخر بالاكواد كما مبينة بالصور شوف الاكواد لكل حقل وهذ كود الحقل الاول اللي باسم Expr1 Expr1: IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [sport]>=40 And [sport]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [sport]>=50 And [geography]>=40 And [geography]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [sport]>=50 And [geography]>=50 And [history]>=40 And [history]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [sport]>=50 And [history]>=50 And [geography]>=50 And [science]>=40 And [science]<50;"عبور";IIf([arabic]>=50 And [sport]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [english]>=40 And [english]<50;"عبور";IIf([sport]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [arabic]>=40 And [arabic]<50;"عبور";"shivan")))))) وكما مبينة الكود في الصورة وهذا هو الكود الحقل الثاني اللي باسم Expr2 Expr2: IIf([arabic]<50 And [english]<50 Or [arabic]<50 And [science]<50 Or [arabic]<50 And [history]<50 Or [arabic]<50 And [geography]<50 Or [arabic]<50 And [sport]<50;"راسب";IIf([english]<50 And [science]<50 Or [english]<50 And [history]<50 Or [english]<50 And [geography]<50 Or [english]<50 And [sport]<50;"راسب";IIf([science]<50 And [history]<50 Or [science]<50 And [geography]<50 Or [science]<50 And [sport]<50;"راسب";IIf([history]<50 And [geography]<50 Or [history]<50 And [sport]<50;"راسب";IIf([geography]<50 And [sport]<50;"راسب";IIf([arabic]<40 Or [english]<40 Or [science]<40 Or [history]<40 Or [geography]<40 Or [sport]<40;"راسب";"ناجح")))))) كما مبينة بالصور الادناه كود لحقل التقييم تقييم: IIf([Expr1]="عبور";"عبور";IIf([Expr1]<>"عبور" And [Expr2]="ناجح";"ناجح";"راسب")) وكما في الصورة ادناه والنتيجة الاخيرة شوف بالصور واتفضل مع قاعدة بيانات مع تحياتي crossed.rar نعم هذا ما اريد اخى شفان ، لا اعرف كيف اشكرك .... زۆرسوپاس بۆ ههموو يارمهتيا ته تم تعديل يناير 31, 2017 بواسطه Rebaz Bahram اخى سفان اشكرك على هذا العمل رائع ويعمل كما اريد ولكن اريد اضف (Isnull) لانه في بعض الصفوف ليس لهما كل المادة ، بمعنى اخر بعض الحقول ربما فارغ في بعض الصفوق 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 1, 2017 مشاركة قام بنشر فبراير 1, 2017 11 ساعات مضت, Rebaz Bahram said: نعم هذا ما اريد اخى شفان ، لا اعرف كيف اشكرك .... زۆرسوپاس بۆ ههموو يارمهتيا ته الحمد لله تم الوصول الى المطلوب ... پێدڤى ب سوپاسیێ ناکەت 1 رابط هذا التعليق شارك More sharing options...
Ibrahim IQ قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 في 2/1/2017 at 08:38, Shivan Rekany said: الحمد لله تم الوصول الى المطلوب ... پێدڤى ب سوپاسیێ ناکەت هل ممكن اضافة (IsNull) لانه بعض الحقول سيكون فارغ ؟؟؟؟ رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 2, 2017 مشاركة قام بنشر فبراير 2, 2017 (معدل) 2 ساعات مضت, Rebaz Bahram said: هل ممكن اضافة (IsNull) لانه بعض الحقول سيكون فارغ ؟؟؟؟ نعم اذا ما اكدرت ان تضيفه انا راح اضيفها تم تعديل فبراير 2, 2017 بواسطه Shivan Rekany رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 رأيت هذه المشاركة منك اخي الكريم وكرم استاذنا ابو حسين بمشاركة عليه و عرض الاسباب بهذه المشاركة وايضا رأيت موضوعك هذا لذا فكرت ان اعمل لك وحدة نمطية لهذا الموضوع على الرغم ان هذه اول وحدة نمطية انا اعمله واحتمال بيكون فيه كثير من النقصان او بيكون طرق اقصر منه لكن عملت هذا وبينطي نتيجة المطلوبة واطلب من استاذنا اذا بيكون طرق مختصرة يوافيني به هذا هو وحدة نمطية Option Compare Database Function ShRebaz(Sp As Integer, En As Integer, Ar As Integer, Ge As Integer, Hi As Integer, Sc As Integer) Dim NAjmar As Integer NAjmar = 0 If Nz([Sp]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Sp]) < 40 Then NAjmar = NAjmar - 6 End If If Nz(En) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([En]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Ar]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Ar]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Ge]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Ge]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Hi]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Hi]) < 40 Then NAjmar = NAjmar - 6 End If If Nz(Sc) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Sc]) < 40 Then NAjmar = NAjmar - 6 End If If NAjmar >= 6 Then ShRebaz = "ناجح" ElseIf NAjmar >= 5 Then ShRebaz = "عبور" ElseIf NAjmar < 5 Then ShRebaz = "راسب" End If End Function وفي استعلام كتبت هذا SSS: ShRebaz(Nz([sport]);Nz([english]);Nz([arabic]);Nz([geography]);Nz([history]);Nz([science])) وهذا هو الملف شوف الاستعلام Query2 crossed.rar 1 رابط هذا التعليق شارك More sharing options...
Ibrahim IQ قام بنشر فبراير 7, 2017 الكاتب مشاركة قام بنشر فبراير 7, 2017 رأيت هذه المشاركة منك اخي الكريم وكرم استاذنا ابو حسين بمشاركة عليه و عرض الاسباب بهذه المشاركة وايضا رأيت موضوعك هذا لذا فكرت ان اعمل لك وحدة نمطية لهذا الموضوع على الرغم ان هذه اول وحدة نمطية انا اعمله واحتمال بيكون فيه كثير من النقصان او بيكون طرق اقصر منه لكن عملت هذا وبينطي نتيجة المطلوبة واطلب من استاذنا اذا بيكون طرق مختصرة يوافيني به هذا هو وحدة نمطية Option Compare Database Function ShRebaz(Sp As Integer, En As Integer, Ar As Integer, Ge As Integer, Hi As Integer, Sc As Integer) Dim NAjmar As Integer NAjmar = 0 If Nz([Sp]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Sp]) < 40 Then NAjmar = NAjmar - 6 End If If Nz(En) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([En]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Ar]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Ar]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Ge]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Ge]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Hi]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Hi]) < 40 Then NAjmar = NAjmar - 6 End If If Nz(Sc) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Sc]) < 40 Then NAjmar = NAjmar - 6 End If If NAjmar >= 6 Then ShRebaz = "ناجح" ElseIf NAjmar >= 5 Then ShRebaz = "عبور" ElseIf NAjmar < 5 Then ShRebaz = "راسب" End If End Function وفي استعلام كتبت هذا SSS: ShRebaz(Nz([sport]);Nz([english]);Nz([arabic]);Nz([geography]);Nz([history]);Nz([science])) وهذا هو الملف شوف الاستعلام Query2 crossed.rar شكرا اخى شڤان هذا عمل جميل جدا انت دائما مساعدا للكل ، اذا ممكن اضف بعض المادة في هذا الوحدة النمطية عدد المادة في المدارس اقليم ( 14 ) مادة ولا المشكلة اذا استعملت الحروف ( a-b-c-d-e-f-g-h-i-j-k-l-m-n) ، اذا في بعض الصفوف ليس لديهما 14 المادة يعنى بعض المادة سيكون الفارغ اذا ممكن اضافة (isnull) فى هذا الوحدة سيكون بلا مشكلة ، اذا الحقل الفارغ لن يكتب راسب .... زۆرسوپاس براكهم رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 شكرا اخى شڤان هذا عمل جميل جدا انت دائما مساعدا للكل ، اذا ممكن اضف بعض المادة في هذا الوحدة النمطية عدد المادة في المدارس اقليم ( 14 ) مادة ولا المشكلة اذا استعملت الحروف ( a-b-c-d-e-f-g-h-i-j-k-l-m-n) ، اذا في بعض الصفوف ليس لديهما 14 المادة يعنى بعض المادة سيكون الفارغ اذا ممكن اضافة (isnull) فى هذا الوحدة سيكون بلا مشكلة ، اذا الحقل الفارغ لن يكتب راسب .... زۆرسوپاس براكهم اليوم خلاص دوامي لكن غدا ان شاء الله راح احاول تحياتي 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 9, 2017 مشاركة قام بنشر فبراير 9, 2017 شكرا اخى شڤان هذا عمل جميل جدا انت دائما مساعدا للكل ، اذا ممكن اضف بعض المادة في هذا الوحدة النمطية عدد المادة في المدارس اقليم ( 14 ) مادة ولا المشكلة اذا استعملت الحروف ( a-b-c-d-e-f-g-h-i-j-k-l-m-n) ، اذا في بعض الصفوف ليس لديهما 14 المادة يعنى بعض المادة سيكون الفارغ اذا ممكن اضافة (isnull) فى هذا الوحدة سيكون بلا مشكلة ، اذا الحقل الفارغ لن يكتب راسب .... زۆرسوپاس براكهم ما بها مشكلة راح نزداد مواده ايظا لكن شوف هذا بعد 6 مواد فقط لكن شوف وجرب اذا ما تكتب لمواد مثلا مواد اللغة الانكليزية اذا ما تكتبه شي فيها راح يحسبه ان المواد هو 5 مواد وليس 6 مواد وما راح يكتب له راسب شوف الوحدة النمطية Option Compare Database Function ShRebaz(Sp As Integer, En As Integer, Ar As Integer, Ge As Integer, Hi As Integer, Sc As Integer) Dim MaddeNacih As Integer Dim MaddeRasib As Integer Dim MaddeIbor As Integer Dim AddMewad As Integer MaddeNacih = 0 MaddeRasib = 0 MaddeIbor = 0 AddMewad = 6 If [Sp] = -1 Then AddMewad = AddMewad - 1 ElseIf [Sp] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Sp] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Sp] > 39 And [Sp] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [En] = -1 Then AddMewad = AddMewad - 1 ElseIf [En] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [En] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [En] > 39 And [En] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Ar] = -1 Then AddMewad = AddMewad - 1 ElseIf [Ar] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Ar] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Ar] > 39 And [Ar] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Ge] = -1 Then AddMewad = AddMewad - 1 ElseIf [Ge] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Ge] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Ge] > 39 And [Ge] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Hi] = -1 Then AddMewad = AddMewad - 1 ElseIf [Hi] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Hi] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Hi] > 39 And [Hi] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Sc] = -1 Then AddMewad = AddMewad - 1 ElseIf [Sc] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Sc] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Sc] > 39 And [Sp] < 50 Then MaddeIbor = MaddeIbor + 1 End If If MaddeRasib > 0 Then ShRebaz = "راسب" ElseIf MaddeRasib = 0 And MaddeIbor = 1 Then ShRebaz = "عبور" ElseIf MaddeIbor > 1 Then ShRebaz = "راسب" ElseIf MaddeNacih = AddMewad Then ShRebaz = "ناجح" End If End Function وفي استعلام كتبت هذا SSS: ShRebaz(Nz([sport];-1);Nz([english];-1);Nz([arabic];-1);Nz([geography];-1);Nz([history];-1);Nz([science];-1)) ونرجوا من استاذنا جعفر او ابو خليل او اي واحد بها معلومات على الوحدات النمطية ان يشوفه لعل بها شي نقصان وهذا ملف بعد تعديل اسم الوحدة الوحدة النمطية هو iborornacihorrasib واسم الاستعلام هو Query2 تحياتي للجميع crossed.rar 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.