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

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

اسمحولي بان اتشرف بوضع اول استفسار لي في هذا المنتدي , واتمنى من الله التوفيق للجميع .

اذا كان عندي جدول اسمه email وبياناته كألاتي

name date dd1 dd2 dd3 dd4 dd5
ali 2/1/2013 10 20 30 40 50

فالمطلوب التعديل على الاكود الاتي ليجمع الصف ( dd1 & dd2 & dd3 & dd4 & dd5) وليس العمود


وجزاكم الله كل خير

السلام عليكم

- إستخدم هذه الطريقة . مع التأكد من أن جميع الحقول التي تريد جمعها في الصف نوعها رقم وليس نص :


- تحياتي .

VB_Coder كتب :السلام عليكم

- إستخدم هذه الطريقة . مع التأكد من أن جميع الحقول التي تريد جمعها في الصف نوعها رقم وليس نص :

كود :

RS.Open "select (dd1+dd2+dd3+dd4+dd5) as ToTal FROM emails WHERE Name ='ali'", DB, adOpenStatic, adLockOptimistic

- تحياتي .

جزاك الله كل خير اخي الكريم
الف شكر لك

جاري التجربة

w1eg كتب :جزاك الله كل خير اخي الكريم
الف شكر لك

جاري التجربة

اخي الكريم بعد التجربة ظهر لي خطاء عند تنفيذ البرنامج

ومرفق المثال

السلام عليكم

- هذا كود البحث بعد تعديله :


- تحياتي .

VB_Coder كتب :السلام عليكم

- هذا كود البحث بعد تعديله :

كود :

Private Sub SEARCH_DATA()
For i = 0 To LCountDate.Caption - 1
     If RST.State = 1 Then RST.Close
     RST.Open "SELECT (d1+d2+d3+d4+d5+d6+d7+d8+d9+d10+d11+d12+d13+d14+d15+d16+d17+d18+d19+d20+d21+d22+d23+d24+d25+d26+d27+d28+d29+d30)as ToTal FROM emails WHERE dates BETWEEN " & _
    " DateSerial(" & Year(LabDate(i).Caption) & "," & Month(LabDate(i).Caption) & "," & Day(LabDate(i).Caption) & ") AND " & _
    " DateSerial(" & Year(LabDate(i).Caption) & "," & Month(LabDate(i).Caption) & "," & Day(LabDate(i).Caption) & ")", DB, adOpenStatic, adLockOptimistic

    If RST.RecordCount > 0 Then
       If IsNull(RST![ToTal]) = False Then
          LTotal(i).Caption = RST![ToTal]
       Else
          LTotal(i).Caption = "0"
       End If
    Else
       LTotal(i).Caption = "0"
    End If
    
Next
End Sub

- تحياتي .

[COLOR="#0000FF"]الف شكر لك اخي الكريم

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

وغفر لك ولوالديك

شكرا جزيلا[/COLOR]