[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]