25-12-16, 02:27 PM
(آخر تعديل لهذه المشاركة : 25-12-16, 02:29 PM {2} بواسطة sendbad100.)
(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نصيحة :- من الافضل جعل حقل المجموع واي حقل رقمي في قاعدة البينات رقمي وليس نصي
تم التعديل على المثال
