منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[ تمّ الحل ] : إيجاد أكبر قيمة بالعمود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود (/showthread.php?tid=18573)

الصفحات: 1 2

[ تمّ الحل ] : إيجاد أكبر قيمة بالعمود - عبد العزيز البسكري - 25-12-16

السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم لو سمحتم و تكرّمتم بمساعدتي حول إيجاد أكبر قيمة بعمود المجموع و إظهارها تلقائيا بالتاكست رقم 6
ألف شكر و بارك الله فيكم و لكم مقدّمًا
إحتراماتي


RE: إيجاد أكبر قيمة بالعمود - sendbad100 - 25-12-16

(25-12-16, 02:06 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم لو سمحتم و تكرّمتم بمساعدتي حول إيجاد أكبر قيمة بعمود المجموع و إظهارها تلقائيا بالتاكست رقم 6
ألف شكر و بارك الله فيكم و لكم مقدّمًا
إحتراماتي

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

كود :
Sub MaxTotal()

Dim F99 As New ADODB.Recordset

SQL = "SELECT MAX (ÇáãÌãæÚ) AS MTO FROM USERS "

'  SQL = "SELECT MAX(" & FLD1 & ") AS MTO FROM " & TP & "  "


F99.Open SQL, DB, adOpenStatic, adLockOptimistic, adCmdText
 
 If F99.RecordCount < 1 Then
 Text6.Text = "0"
F99.Close
 Exit Sub
Else
Text6.Text = F99![mto]

End If

F99.Close

End Sub
تفضل يالغالي
نصيحة :-  من الافضل جعل حقل المجموع واي حقل رقمي في قاعدة البينات رقمي وليس نصي 

تم التعديل على المثال

RE: إيجاد أكبر قيمة بالعمود - عبد العزيز البسكري - 25-12-16

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك عزيزي SENDBAD100
جزاك الله خير الجزاء يا طيّب .. تمام مئة بالمئة و لله الحمد و الشّكر
زادك الله علما و نفع بك الاسلام و المسلمين
جعلك الله في الطليعة وسدد خطاك
وأوصلك الى مبتغاك وحماك وحفظك ورعاك
وهدى الله بك وهداك
وجعلك من أحباب حبيبه المصطفى إن شاء الله
حقًّا تستحق كل خير و تستحق أكثر من الشّكر
فقط لديًّ إستفسار لو تكرّمت ..بخصوص ملاحظتك حول جعل الحقول رقمية ..عملت ذلك لكن وجدت أنّه عندما أجعل الحقول رقميّة تصبح غير قابلة للأعداد العشريّة مثلاً عندما أكتب 8.86 تظهر بالحقل 9 .
إحتراماتي


RE: [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود - sendbad100 - 25-12-16

الله يعطيك العافية  تسلم  على الدعوة


حول الحقل الى رقم  

ثم اذهب الى الحجم وغيره الى مزدوج كما بالصوره

والله الموفق

RE: [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود - عبد العزيز البسكري - 25-12-16

السلام عليكم و رحمة الله و بركاته
تشكر يا غالي ..هل المقصود بالمزدوج مثلما يشير السّهم لو سمحت ..
إحتراماتي


RE: [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود - sendbad100 - 25-12-16

اعتقد نعم

جرب القيم العشرية اذا قبلها تمام

RE: [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود - عبد العزيز البسكري - 25-12-16

عزيزي SENDBAD100
معذرة على كثرة التساؤلات لكن لاحظت أنّه عندما يكون حقل المجموع فارغ تماما يظهر خطأ :
Invalid Use Off Null
و الإشارة إلى سطر التاكست رقم 6
Text6.Text = F99![mto]
هل من الممكن تصحيح هذا الخلل لو تكرمت
إحتراماتي أخي الغالي


RE: [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود - sendbad100 - 25-12-16

هذا واحد من الاسباب الذي جعلني اطلب منك ان يكون الحقل رقم

يجب ان لا يترك فارغاً اجعل قيمته = 0
حول الحقل الى رقمي 

ثم اجعل القيمة الافتراضية  = 0 
انظر الصوره
عليك ايضا ان تعدل المعلومات السابقة يدوياً اي حقل المجموع فارغ اجعله = 0

وما سيتم اضافته بعد عمل القيمة الافتراضية = 0 سيكون صفر تلقائي
والله الموفق

RE: [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود - عبد العزيز البسكري - 25-12-16

لاحظ أخي الكريم .. قمت بما تكرّمت بشرحه من جعل الحقل رقمي و القيمة الافتراضية 0 ..

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



RE: [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود - sendbad100 - 25-12-16

انظر   المرفقات