20-04-13, 10:36 AM
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]
