منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم لو سمحتم و تكرّمتم بمساعدتي حول إيجاد أكبر قيمة بعمود المجموع و إظهارها تلقائيا بالتاكست رقم 6
ألف شكر و بارك الله فيكم و لكم مقدّمًا
إحتراماتي
(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
تفضل يالغالي

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

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


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

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

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

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

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

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

ثم اجعل القيمة الافتراضية  = 0 
انظر الصوره

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

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

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

انظر   المرفقات
الصفحات : 1 2