haniameen قام بنشر ديسمبر 24, 2019 مشاركة قام بنشر ديسمبر 24, 2019 (معدل) اخواني لديا استعلام به ست حقول مادة العربي حقولها ( [es_ar_1] ) استحقاق تظلم عربي بقيمة نعم اولا ( [zey_ar_1] ) الزيادة في درجة العربي بقيمة رقم مادة اللغة الانجليزية ( [es_en_1] ) استحقاق تظلم اللغة الأجنبية بقيمة نعم اولا ( [zey_en_1] ) الزيادة في درجة تظلم اللغة الأجنبية بقيمة رقم مادة الدراسات الأجتماعية ( [es_dr_1] ) استحقاق تظلم الدراسات بقيمة نعم اولا ( [zey_dr_1] ) الزيادة في درجة الدراسات بقيمة رقم المطلوب التعديل على الوحدة النمطية بحيث تكون دالة if كالأتي في حقل " byan " في الاستعلام 1 - اذا كان حقل ( [zey_ar_1] ) في العربي أكبر من صفر يبقى " زيادة في اللغة العربية "&[zey_ar_1]&" درجة " ويتم تكملة الجملة في نفس الحقل و اذا كان حقل ( [zey_en_1] ) في اللغة الأجنبية أكبر من صفر يبقى " زيادة في اللغة الأجنبية "&[zey_en_1]&" درجة " و اذا كان حقل ( [zey_dr_1] ) في الدراسات أكبر من صفر يبقى " زيادة في الدراسات "&[zey_adr_1]&" درجة " و اذا كان حقل ( [es_ar_1] ) في العربي = لا يبقى " لم يزد في اللغة العربية " و اذا كان حقل ( [es_en_1] ) في اللغة الأجنبية = لا يبقى " لم يزد في اللغة الأجنبية " و اذا كان حقل ( [es_dr_1] ) في الدراسات = لا يبقى " لم يزد في الدراسات " حاولت تصميم الوحدة النمطية ولكن يظهر شرط واحد ولا يظهر باقي الشروط كما ستشاهدون مثال مطلوب كما بالصورة tzalom.mdb تم تعديل ديسمبر 24, 2019 بواسطه haniameen رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 24, 2019 مشاركة قام بنشر ديسمبر 24, 2019 السلام عليكم اخى الحبيب هل تقصد مثل الصوره التاليه اذا كان هذا ما تقصده اكمل باقى شروطك فى الوحده النمطيه على قد فهمى للسؤال واعتذر لك احاول المساعده على قدر فهمى فما زلت اتعلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم tzalom.mdb 1 رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر ديسمبر 24, 2019 الكاتب مشاركة قام بنشر ديسمبر 24, 2019 للأسف أخي احمد الفلاحي ليس هذا المطلوب الكود لم يطبق على باقي الطلاب لأنه اشترط الثلاث مواد مع بعض العربي واللغة الاجنبية والدراسات ولكم المطلوب إذا ذادت اللغة العربية أو أي مادة أخرى بكتب الزيادة لها دون التقيد بباقي المواد لان هنام طلاب زيدت في العربي ولم تزد في الدراسات مثلا وهناك من زاد في الدراسات ولم يزد في العربي وهكذا ارجو ان تكون قد وصلت الفكرة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 25, 2019 مشاركة قام بنشر ديسمبر 25, 2019 وعليكم السلام 🙂 تفضل : . وهذه الوحدة النمطية بعد التعديل : Option Compare Database 'حساب مستوى الدرجة Function zyd_1(a, b, c, d, e, f) As String 'a = المجموعة النوعية Dim A_1, E_1, D_1 As String 'اللغة العربية If a > 0 Then A_1 = "زيادة في اللغة العربية " & a & " درجة" ElseIf d = "لا" Then A_1 = " لم يزد في اللغة العربية " End If 'اللغة الأجنبية If b > 0 Then E_1 = "زيادة في اللغة الأجنبية " & b & " درجة" ElseIf e = "لا" Then E_1 = " لم يزد في اللغة الأجنبية " End If 'الدراسات If c > 0 Then D_1 = "زيادة في الدراسات " & c & " درجة" ElseIf f = "لا" Then D_1 = " لم يزد في الدراسات " End If 'الدمج zyd_1 = "" If Len(A_1) > 0 Then zyd_1 = A_1 End If If Len(E_1) > 0 Then zyd_1 = zyd_1 & " و " & E_1 End If If Len(D_1) > 0 Then zyd_1 = zyd_1 & " و " & D_1 End If 'اذا في واو في بداية الجملة فلا تقرأها If Left(zyd_1, 3) = " و " Then zyd_1 = Mid(zyd_1, 4) End If End Function جعفر 1162.tzalom.mdb.zip 2 رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر ديسمبر 25, 2019 الكاتب مشاركة قام بنشر ديسمبر 25, 2019 (معدل) 1 ساعه مضت, jjafferr said: وعليكم السلام 🙂 تفضل : . وهذه الوحدة النمطية بعد التعديل : Option Compare Database 'حساب مستوى الدرجة Function zyd_1(a, b, c, d, e, f) As String 'a = المجموعة النوعية Dim A_1, E_1, D_1 As String 'اللغة العربية If a > 0 Then A_1 = "زيادة في اللغة العربية " & a & " درجة" ElseIf d = "لا" Then A_1 = " لم يزد في اللغة العربية " End If 'اللغة الأجنبية If b > 0 Then E_1 = "زيادة في اللغة الأجنبية " & b & " درجة" ElseIf e = "لا" Then E_1 = " لم يزد في اللغة الأجنبية " End If 'الدراسات If c > 0 Then D_1 = "زيادة في الدراسات " & c & " درجة" ElseIf f = "لا" Then D_1 = " لم يزد في الدراسات " End If 'الدمج zyd_1 = "" If Len(A_1) > 0 Then zyd_1 = A_1 End If If Len(E_1) > 0 Then zyd_1 = zyd_1 & " و " & E_1 End If If Len(D_1) > 0 Then zyd_1 = zyd_1 & " و " & D_1 End If 'اذا في واو في بداية الجملة فلا تقرأها If Left(zyd_1, 3) = " و " Then zyd_1 = Mid(zyd_1, 4) End If End Function جعفر 1162.tzalom.mdb.zip 37.88 kB · 0 تنزيلات جزاك الله خيرا أخي جعفر الكود يعمل بامتياز جهد مشكور أخي لكن هناك طلب بسيط هل ممكن جعل زيادة المواد في أول الجملة والمواد التي لم تزد في الأخر بمعنى مثال : زيادة في اللغة الأجنبية وزيادة في الدرسات ولم يزد في اللغة العربية يقرأ المواد التي زادت أولا ثم يقرأ المواد التي لم تزد بعد ذلك وشكرا أخي جعفر على سعة صدرك تم تعديل ديسمبر 25, 2019 بواسطه haniameen رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 25, 2019 مشاركة قام بنشر ديسمبر 25, 2019 تفضل ، بتغيير في الوحدة النمطية ، بحيث الزائد صار له متغير مختلف عن الـ لا 🙂 . Option Compare Database 'حساب مستوى الدرجة Function zyd_1(a, b, c, d, e, f) As String 'a = المجموعة النوعية Dim A_1, E_1, D_1, A_2, E_2, D_2 As String 'اللغة العربية If a > 0 Then A_1 = "زيادة في اللغة العربية " & a & " درجة" ElseIf d = "لا" Then A_2 = " لم يزد في اللغة العربية " End If 'اللغة الأجنبية If b > 0 Then E_1 = "زيادة في اللغة الأجنبية " & b & " درجة" ElseIf e = "لا" Then E_2 = " لم يزد في اللغة الأجنبية " End If 'الدراسات If c > 0 Then D_1 = "زيادة في الدراسات " & c & " درجة" ElseIf f = "لا" Then D_2 = " لم يزد في الدراسات " End If 'الدمج 'الزيادة zyd_1 = "" If Len(A_1) > 0 Then zyd_1 = A_1 End If If Len(E_1) > 0 Then zyd_1 = zyd_1 & " و " & E_1 End If If Len(D_1) > 0 Then zyd_1 = zyd_1 & " و " & D_1 End If 'لم تزد If Len(A_2) > 0 Then zyd_1 = zyd_1 & " و " & A_2 End If If Len(E_2) > 0 Then zyd_1 = zyd_1 & " و " & E_2 End If If Len(D_2) > 0 Then zyd_1 = zyd_1 & " و " & D_2 End If 'اذا في واو في بداية الجملة فلا تقرأها If Left(zyd_1, 3) = " و " Then zyd_1 = Mid(zyd_1, 4) End If End Function جعفر 1162.1.tzalom.mdb.zip 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 25, 2019 مشاركة قام بنشر ديسمبر 25, 2019 واقتراح : الوحدة النمطية بحاجة الى الحقول اللي فيها ارقام فقط مثل zey_en_1 ، وليست بحاجة الى الحقول اللي فيها نعم لا مثل es_en_1 ، فإذا الحقول zey فيها قيمة ، فهي زيادة ، واذا مافيها قيمة ، فهي لا 🙂 جعفر 2 1 رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر ديسمبر 25, 2019 الكاتب مشاركة قام بنشر ديسمبر 25, 2019 1 ساعه مضت, jjafferr said: واقتراح : الوحدة النمطية بحاجة الى الحقول اللي فيها ارقام فقط مثل zey_en_1 ، وليست بحاجة الى الحقول اللي فيها نعم لا مثل es_en_1 ، فإذا الحقول zey فيها قيمة ، فهي زيادة ، واذا مافيها قيمة ، فهي لا 🙂 جعفر اولا استاذي جعفر اشكرك على هذا المجهود الرائع ثانيا بالنسبة اقتصار الوحدة النمطية فقط على الرقم في حقل زيادة غير ممكن لأن القيمة الفارغة في خقل زيادة قد تكون إما طالب لم بتظلم أصلا في المادة ، او طالب تظلم ولم يستحق الزبادة وللتفريق بين الطالب المتظلم ولم يستحق والطالب الغير متظلم في المادة لجات للحقل نعم ولا فكلمة (نعم او لا) في الحقل بغض النظر عن معناهم الحرفي تعني هذا الطالب تظلم في هذه المادة ووجود الحقل فارغ الخاص( بنعم و لا ) تعني ان هذا الطالب لم يتقدم للتظلم في هذه المادة فلا تحسب له زيادة او عدم زيادة ارجو ان اكون قد اوصلت الفكرة وشكرا على سعة صدرك مرة اخرى 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 25, 2019 مشاركة قام بنشر ديسمبر 25, 2019 شكرا على التوضيح 🙂 جعفر 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 25, 2019 مشاركة قام بنشر ديسمبر 25, 2019 جزاك الله خيرا اخى واستاذى @jjafferr 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.