omran2015

54 دقائق مضت, ابوخليل said:

اخي الكريم  تكرما اقرأ موضوع الاستاذ جعفر  اعلاه تجده مع المثبتات 

لا يوجد صعوبة في كتابة المطلوب هنا

تصور ان المرفقات تمت ازالتها .. ماذا سنجد في الموضوع

بارك الله فيك أستاذ (أبو ) أبا خليل فقد أطلعت على قواعد المشاركة، والنقطة الثالثة عشرة هى التي تقصدها:

13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية

ولهذا فإنني أتأسفُ أشد الأسف لعدم انتباهي لهذه النقطة؛ لأن المحاولات المتكررة التي أجريتها وفشلت أفقدتني صوابي

اساتذتي الكرام

أريد التعديل على الاستعلام حسب الشرح المرفق في ملف وورد مع قاعدة البيانات

..........................                 

عندي 4)) جـداول وهى:

1: جدول الطلاب (TBL_Student)

2: جدول الدرجات (TBL_grades)

 :3جدول المواد الدراسية (TBL_Subject)

:4 جدول الفصول الدراسية – السمستر - (TBL_Semester)

 الشرح:

لدي قاعدة بيانات تحتوي على مجموعة من الجداول وعلى افتراض الآتي:

:1 نفترض أن عدد المواد الدراسية (8) كما في الملف المرفق (قابلة للزيادة والنقصان).

2: كذلك نفترض أن عدد الصفوف الدراسية (9) (قابلة للزيادة والنقصان).

:3 وكذلك معلوماً أن عدد الفصول الدراسية (2😞 الفصل الأول + الفصل الثاني.

 المطلوب:

بعد فشل المحاولات الكثيرة للوصول إلى النتيجـة فأرجــو التعديل على استعلام (Q_grades) بحيث وفق الشرح المرفق في ملف word

المقصود:

·        عند اختيار الصف من كومبوكس الصف الدراسي

·        واختيار المادة الدراسية للصف الدراسي

·        وكذلك اختيار رقم الفصل الدراسي

·        يتم تعبئة الداتا قريدفيو باسم الصف والمادة الدراسية ورقم الصف فقط كما في الاستعلام

·        في حالة لم يتم تسجيل درجات مـادة معينة لطالب معين في صف مـا فإن حقول الاستعلام (ON – TO - TR) تظهر فارغة أو صفر

·        كما في موضح باللون الأصفر في الجدول لمـادة اللغة الإنجليزية – الفصل الأول

هذا الشرح يشمل جميع الطلبـة .

تعديل الاستعلام.rar

لو طلبت تنشيط منتدى الدوت نت لكان أفضل، فأنا أعمل على الفيجوال بيسك6 لسنوات عديدة.

وهى لغة جميلة وستظل لغة سهلة وجميلة حتى لو تم رفع الدعم عنها.

ولكن يجب تنشيط منتدى الدوت نت فهو بحاجة لإزالة الغبار عن جدرانه المهترئة.

وعندما تدخل لعالم الدوت نت ستجد الفرق الكبير بينها وبين الفيجوال بيسك6 وهذا عن تجربة.

ولعلمك كنت سابقا أرفض الانتقال من لغتي المحببة الفيجوال بيسك6؛ ولكنني بعد دخولي إليها وجدت عالما مختلفا جدا حتى صرت انظر للغتي الأم أنها لغة باهتة شاحبة.

عذرا إليك لغتي الجميلة؛ ولكن المصلحة البرمجية تقتضي التطوير 

جعله الله في ميزان حسناتك يوم القيامة 

وهذا مثال عملته بالفيجوال بيسك6 شغال 100 %

لكنني فشلت في برمجته بالدوت نت 2013

https://top4top.io/downloadf-2587zzq0v1-rar.html

السلامُ عليكم ورحمةُ اللهِ وبركاتُهُ

بعد محاولاتِ عديدةٍ  فإنه ليس لي بعد الله تعالى إلا هذا المنتدى النشيط بأعضائه الكرام

والمشكلة تتلخص في الآتي:

أريد عند اختيار الصف الدراسي من الليست بوكس يتم تعبئة الداتا قريدفيو بأسماء الطلبـة فقط بدون أن تظهر درجـات المـواد الدراسية ورقم الفصل الدراسي

إلا عندما يتم اختيار المـادة والفصل الدراسي.

لأن الحفظ يتم حسب المادة ولا يمكن أن تظهر درجات المادة بدون تحديد اسم المادة والفصل الدراسي

فأتمنى التعديل على المثال، وأنا متأكد إن شاء الله من مساعدتكم

جـزاكم اللـــهُ كلَّ خير وبارك اللــهُ فيكم، وفتح اللــهُ عليكم فتوحَ العارفين

Exam.rar

أستاذ خليل تعديل جميل جدا وفي غاية الروعة، مشكلتي الوحيدة أنني اشتغل على الفيجوال دوت نت ولا يمكنني أن أدخل إلى قاعدة البيانات وأقوم بالضغط على البوتن في الموجود في النموذج.

واتمنى أن هذا الكود الرائع والذي هو بمثابة كنز لي أن يشتغل بدون تدخل مني ويكون من خلال استعلام.

وللعلم أخذت بنصيحتك في طريقة تصميم الجدول 

في 27‏/1‏/2023 at 17:48, ابوخليل said:

 

مشاركة مع اخي ابو احمد .. 

كنت عملت عملا مشابها ايام الشباب .. يعني يوم انا ولد .. وقد بحث عنه حتى وجدته ، وقمت بالتعديل عليه بما يتوافق وطلب اخونا عمران

اولا نصيحة وتوجيه حول تصميم قواعد البيانات عامة :

تكرار البيانات في اكثر من جدول غير صحي بل هو مخالف للطرق التي ينصح بها عند تصميم الجداول

فمثلا يوجد في القاعدة جدولا لبيانات الطلاب كاملة : المعرف والاسم والصف والعنوان .... الخ ، وعند الاطلاع على جدول الدرجات نرى مجموعة من هذه البيانات مكررة

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

فإذا اردنا عرض بعض بيانات الطالب  مع درجاته فالاستعلام كفيل بعرض كل شيء

كتبت هذه المقدمة للفائدة وللتنبيه اني تصرفت في جدول الدرجات كما ينبغي ان يكون .

الكود يرتب البيانات داخل جدول جديد مؤقت حسب الطلب

آمل ان يحظى باستحسانكم

ملحوظة : اخي عمران اذا لم يرق لك تعديلي على الجدول فيمكن للكود العمل على الجدول الأصلي ... فقط نعدل على ارقام داخل الكود

Dim Rs, Rst, rsq As Recordset, Dbs As Database
Dim r, x, i, q, j, j2   As Integer
Set Dbs = CurrentDb
Set Rs = Dbs.OpenRecordset("TBL_grades")
Set Rst = Dbs.OpenRecordset("tbl_temp")
Set rsq = Dbs.OpenRecordset("SELECT DISTINCT TBL_grades.IDStudent FROM TBL_grades")
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE tbl_temp.* FROM tbl_temp")
DoCmd.SetWarnings True
Rs.MoveFirst
rsq.MoveFirst
r = Rs.RecordCount
q = rsq.RecordCount
For i = 0 To q
Rst.AddNew
Rst.Fields(1) = rsq.Fields(0)
x = 2
For j = 1 To 8
j2 = 2
For j2 = 2 To 5
Rst.Fields(x) = Rs.Fields(j2)
x = x + 1
Next j2
Rs.MoveNext
Next j
Rst.Update
rsq.MoveNext
Next i
MsgBox "تم اعداد الجدول"

 

تحويل اعمدة الى صف.rar 28.72 kB · 2 downloads

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

اطلع عليه عند العودة للمنزل وأخبرك رائي 

في 24‏/1‏/2023 at 01:32, AbuuAhmed said:

جرب هذه الفكرة ، هذا اللي في بالي الآن ، قد تكون أفكار أفضل عند الزملاء.
أعتقد الاستعلام الوحيد الذي يحتاج تدخل يدويا عند زيادة أو نقص عدد المواد هو استعلام Q_Grades_Result وهذه المشكلة ممكن التغلب عليها بتصميم الاستعلام بالكود عند الرغبة.
اترك التجارب عليك ، احذف أو زد مادة وافحص النتائج.

Gradedata_03.accdb 464 kB · 8 downloads

أعذرني كنت في سفر خارج بنغازي، وما وصلت إلا أمس الخميس ليلا، وقد شاهدت الملف منذ قليل وتبين لي أنه يؤدي الغرض المطلوب مع بعض التعديلات الطفيفة التي لا تذكر.

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

في 14‏/1‏/2023 at 15:38, مبرمج متقاعد said:

هل هذا المطلوب

Data_Base.mdb 436 kB · 9 downloads

نعم هذا هو بارك الله فيك وجزاك كل خير أخي الحبيب 

8 ساعات مضت, AbuuAhmed said:

جرب هذه الفكرة ، هذا اللي في بالي الآن ، قد تكون أفكار أفضل عند الزملاء.
أعتقد الاستعلام الوحيد الذي يحتاج تدخل يدويا عند زيادة أو نقص عدد المواد هو استعلام Q_Grades_Result وهذه المشكلة ممكن التغلب عليها بتصميم الاستعلام بالكود عند الرغبة.
اترك التجارب عليك ، احذف أو زد مادة وافحص النتائج.

Gradedata_03.accdb 464 kB · 1 download

عملٌ ممتازٌ وجهدٌ جبارٌ شاكراً لك اهتمامك الكبير أخي الفاضل abuuahmed said 

ولكن أريد  أيضا إدراج درجات الأعمال (ON) ودرجات الامتحان (TO) في الاستعلام حتى يتم إظهارها في التقرير

وكذلك استخراج النسبة المئوية والتقدير والنتيجة (راسب - ناجح) وعدد مواد الرسوب

منذ ساعه, omran2015 said:

 

37 دقائق مضت, AbuuAhmed said:

جرب استخدام استعلام Crosstab وسوف تجد فيه الكثير من المتعة والمنفعة.
أضفت لك هذا الاستعلام إلى مثالك ، مع ملاحظة أنه يمكنك التعديل على الاستعلام بعد انشائه.
موفقين.

Gradedata_02.accdb 452 kB · 2 downloads

الان, omran2015 said:

 

بارك الله فيك وجزاك كل خير أنا الآن خارج المنزل واتصفح من الجوال وعندما أعود للمنزل اطلع على المثال واخبرك بالنتيجة 

سبحان الله !!! كلما صادفتني مشكلةً معقدةً لجأتُ إلى هذا المنتدى الرائع,

والذي ساعدني كثيراً في حل جميع المشاكل البرمجية في برامجي اكسس واكسل

وصراحةً إلى هذه الساعة لم أصادف منتدى رائعاً كهذا المنتدى.

ولا أقول هذا تزلفاً أو مجاملة؛ فإنني قد استفدت كثيراً منه وتعلمت أشياء كنتُ أجهلها تماماً.

واليوم أواجهُ مشكلة صعبةٌ علىَّ وسهلةٌ عليكم وهى:

أريد أن أقوم بتجزئة عمود المواد الدراسية  إلى عدة أعمدة بحيث أن كل مادة تكون في عمود حتى أستطيع أن أظهر التقرير أفقياً ويكون في استعلام

الجدول المطلوب العمل عليه هو (TBL_grades) والحقل هو (Subject)

للعلم قمتُ بمحاولة تتمثل في عمل استعلام لكل مادة ثم إنشاء استعلام واحدة من جميع استعلامات المواد الدراسية؛ ولكن هذه الطريثة أراها غير ذات جدول

لا سيما إن تغيرت مادة أو تم زيادة مادة دراسية.

عموماً المحاولة التي قمتُ بها موجودة في القاعدة والاستعلام المجمع هو (Q_result)

فهل يوجد طريقة أفضل من هذه الطريقة بارك الله فيكم وجزاكم كلّ خير ؟

Gradedata.rar

5 ساعات مضت, ابوخليل said:

وعليكم السلام

الخلل لديك في خصائص العلاقة بين الجدولين

اذا ربطت جدول الاسماء بجدول الدرجات ، اجعل العلاقة رأس لأطراف واجعل الخصيصة : (سجل في جدول الاسماء لجميع السجلات في جدول الدرجات )

يمكنك عمل العلاقة في الاستعلام فقط ولا يلزم عملها في الجداول

أستاذ أبو خليل هل تتكرم  بارك الله فيك وجزاك كل خير بالتعديل على الملف المرفق بحيث تظهر البيانات في الاستعلام

Data_Base.rar

السلام عليكم ورحمة الله وبركاته أرجو 

سؤال حيرني جدا وربما أجد الإجابة الشافية عندكم وهو:

اعمل بمشروع على الفيجوال دوت نت ومشكلتي في جلب بيانات من الجدولين وعرضها في الداتا قريدفيو بسبب أن جدول بيانات الطلاب يوجد به بيانات بعكس جدول رصد الدرجات لا يوجد به بيانات وهو مرتبط مع جدول الطلاب.

وعند انشاء استعلام لا تظهر البيانات.

السؤال: كيف امشي استعلام من جدولين أحدهما يوجد به بيانات والآخر فارغ بحيث تظهر البيانات في الاستعلام؟

علما انني قمت بإضافة سجل افتراضي واحد فنجح الاستعلام وتم عرض البيانات؛ ولكن هذا حل غير منطقي باعتبار السجل المضاف وهمي.

ارجو ان اجد عندكم الحل عن طريق الاستعلام حتى أطبقه في مشروعي  

تم بحمد الله وفضله حل الإشكالية 

وجزى الله كل خير من قدم نصيحة أو استشارة فنية

انتظر ردك د. كاف يار

6 دقائق مضت, د.كاف يار said:

للأسف لغة الفيجوال بسيك الاصدار 6 لا يتوفر لدي 

لكن انصحك بأن تقوم بترقية المشروع لأصدار احدث و ستجدنا في خدمتك 

 

و لكي لا نخرج عن الموضوع قم بإدارج الكود لكي يتم التعديل عليه

 بارك الله فيك أخي الحبيب وزادك الله من فضله, وجارٍ ترقية المشروع ولكن هذا المشروع كبير في جحمه وعملتُ عليه أكثر من ثلاث سنوات

وهو بمثابة البرنامج الرئيسي في المعهد.

وهذا هو الكود بدون جزئية استخراج عدد مواد الرسوب

Private Sub Command1_Click()
''''''''''''''''''''''''''''
Dim RsSum As New ADODB.Recordset
Dim RsShow As New ADODB.Recordset
Dim s As String
s = "100"
If RsShow.State = 1 Then RsShow.Close

RsShow.Open "select * from TBL_Final1", DB, adOpenKeyset, adLockPessimistic
If RsShow.RecordCount > 0 Then
Do While Not RsShow.EOF

If RsSum.State = 1 Then RsSum.Close
RsSum.Open "select ID,tag,TOTAL,result,FINAL,takdeer,iif([result]='راسب',0,(tr1+tr2+tr3+tr4+tr5+tr6)), " _
& " IIf([tr1]<50 And [tr2]<50 And [tr3]<50 And [tr4]<50 And [tr5]<50 And " _
& " [tr6]<50,'راسب',IIf([tr1]<50 Or [tr2]<50 Or [tr3]<50 Or [tr4]<50 Or [tr5]<50 Or [tr6]<50,'راسب','ناجح')), " _
& " IIf([result]='راسب',0,[TOTAL]/600*100), " _
& " IIf([result]='راسب',0,IIf([TOTAL]>=550,'ممتاز',IIf([TOTAL]>500,'جيد جداً',IIf([TOTAL]>400,'جيد',IIf([TOTAL]>300,'مقبول',IIf([TOTAL]<78,'/','/')))))) " _
& " from TBL_Final1 where ID=" & RsShow.Fields(0).Value & " and tag=" & RsShow.Fields(33).Value, DB, adOpenKeyset, adLockPessimistic

RsSum.Fields(2).Value = RsSum.Fields(6).Value
RsSum.Fields(3).Value = RsSum.Fields(7).Value
For I = 0 To 1
RsSum.Fields(4).Value = RsSum.Fields(8).Value * 1
RsSum.Fields(5).Value = RsSum.Fields(9).Value

RsSum.Update
RsSum.Requery
Next
RsSum.Update
RsSum.Requery
RsShow.MoveNext
Loop
'
End If
'
End Sub

وهذا هو الكود توجد به مشكلة بعد إضافة جزئية استخراج عدد مواد الرسوب

Private Sub Command2_Click()
Dim RsSum As New ADODB.Recordset
Dim RsShow As New ADODB.Recordset
Dim s As String
s = "100"
If RsShow.State = 1 Then RsShow.Close

RsShow.Open "select * from TBL_Final1", DB, adOpenKeyset, adLockPessimistic
If RsShow.RecordCount > 0 Then
Do While Not RsShow.EOF

If RsSum.State = 1 Then RsSum.Close
RsSum.Open "select ID,tag,TOTAL,result,FINAL,takdeer,iif([result]='راسب',0,(tr1+tr2+tr3+tr4+tr5+tr6)), " _
& " IIf([tr1]<50 And [tr2]<50 And [tr3]<50 And [tr4]<50 And [tr5]<50 And " _
& " [tr6]<50,'راسب',IIf([tr1]<50 Or [tr2]<50 Or [tr3]<50 Or [tr4]<50 Or [tr5]<50 Or " _
& " [tr6]<50,'راسب','ناجح')),IIf([result]='راسب',0,[TOTAL]/600*100), " _
& " IIf([tr1]>=50,0,1)+IIf([tr2]>=50,0,1)+IIf([tr3]>=50,0,1)+IIf([tr4]>=50,0,1)+IIf([tr5]>=50,0,1)+IIf([tr6]>=50,0,1) AS mcount, IIf([mcount]>3,'راسب',IIf([mcount]<=0,'ناجح',IIf([mcount]<4,'مكمل')))  AS result, " _
& " IIf([result]='راسب',0,IIf([TOTAL]>=550,'ممتاز',IIf([TOTAL]>500,'جيد جداً',IIf([TOTAL]>400,'جيد',IIf([TOTAL]>300,'مقبول',IIf([TOTAL]<78,'/','/')))))) " _
& " from TBL_Final1 where ID=" & RsShow.Fields(0).Value & " and tag=" & RsShow.Fields(33).Value, DB, adOpenKeyset, adLockPessimistic

RsSum.Fields(2).Value = RsSum.Fields(6).Value
RsSum.Fields(3).Value = RsSum.Fields(7).Value
For I = 0 To 1
RsSum.Fields(4).Value = RsSum.Fields(8).Value * 1
RsSum.Fields(5).Value = RsSum.Fields(9).Value

RsSum.Update
RsSum.Requery
Next
RsSum.Update
RsSum.Requery
RsShow.MoveNext
Loop
'
End If
'
End Sub

الا يوجد أحد ملم بلغة الفيجوال بيسك6 

الأساتذة الكرام

تقبل اللهُ منا ومنكم صالح الأعمال 

وبعد: هذا مشروع بالفيجوال بيسك6 يتم تسجيل الدرجـات في الجدول TBL_Final1

وفي الفورم  Form_Semester1 يوجد بوتن لجمع الدرجات tr1 + tr2 + tr3 + tr4 + tr5 + tr6

واستخراج المعدل والتقدير وعدد مواد الرسوب والنتيجة النهائية

المشروع قديم حاولت التعديل عليه ولكن هناك مشكلة تتمثل في الآتي:

عندما اضغط بوتن الجمع يقوم بالجمع واستخراج المعدل تمام ولكن عدد مواد الرسوب يتم حفظه خطأ في حقل التقدير ويبقى حقل عدد مواد الرسوب فارغ

كذلك لا يتم تحقق الشروط التالية في حقل النتيجة النهائية:

1/ إذا كان عدد مواد الرسوب (0) فهو ناجح

2/ إذا كان عدد مواد الرسوب (3) فأقل فهو مكمل

3/ إذا كان عدد مواد الرسوب  أكثر من  (4) فهو راسب

للعلم اليوتن رقم (1) : الكود يعمل تمام بدون إضافة جزئية كود استخراج عدد مواد الرسوب

ولكن البوتن رقم (2) عند إضافة جزئية كود استخراج عدد مواد الرسوب تظهر المشكلة

أسف لم أجد القسم المناسب لأضع فيه السؤال؟ 

School.rar

5 ساعات مضت, Moosak said:

الأمور شغالة تمام معانا 🙂 

تم الحل بارك الله فيك ورحم والديك 

بارك الله فيكم أساتذتي الكرام والإخوة الأفاضل ولكن لماذا الاستعلامات عندي ما تفتح

بارك الله فيك أخي الفلاحجي على ردك الطيب ولكن ليس هذا ما أريد

أريد أن اتخلص من إظهار المجموع الكلي والمعدل والتقدير وعدد مواد الرسوب والنتيجة النهائية (ناجح / دور ثان / مكمل / راسب) حسب الشرح السابق 

في منشئ التعبير والاحتساب يكون عن طريق الكود ثم يتم الاستدعاء الى الاستعلام فقط.

هذا أفضل تقريباً من منشئ التعبير ولهذا أرفقت المثال للتعديل عليه

ملاحظة: أنا أتعامل مع الفيجوال بيسك وأعتقد أن العمليات الحسابية في الاستعلام أكثر مرونة وأدق من الفيجوال بيسك

42 دقائق مضت, Moosak said:

الملف المرفق فارغ أخي عمران ..
لا تظهر الجداولا ولا الاستعلامات ..

أسف أخي الحبيب تم إظهار الجداول والاستعلامات

ملاحظة: درجة النجاح: الحصول على النهاية الصغرى 50

الاحتساب يكون عن طريق  TR1 - TR2 - TR3 - TR4 - TR5 - TR6  

أما TR7 فغير داخلة في المجموع

Data_Base.rarData_Base.rar