09-12-16, 08:23 PM
الحلقه غير نهائية و لا اعرف ما هو السبب
كود :
Public Function AQarNT(txt As String)
aqar1 = 0
aqar2 = 0
I = 0
SQLE = "SELECT * FROM Aqarat WHERE datet"
Set RenE1 = Dbd.OpenRecordset(SQLE, dbOpenDynaset)
If RenE1.EOF = False Then
Do While Not RenE1.EOF
If Day(Date) >= Day(RenE1("datet")) >= (Day(Date) - 7) Then
I = I + 1
SQLE1 = "SELECT * FROM Maneg WHERE sn = " & RenE1("sn")
Set RenE2 = Dbd.OpenRecordset(SQLE1, dbOpenDynaset)
If RenE2.EOF = False Then
Do While Not RenE2.EOF
If Month(Date) = Month(RenE2("mdate")) Then
aqar1 = aqar1 + 1
End If
RenE2.MoveNext
Loop
Else
aqar2 = aqar2 + 1
End If
RenE1.MoveNext
Else
End If
Loop
End If
AQarNT = "ÚÏÏ ÇáÚÞÇÑÇÊ ÇáÊí ÇÓÊÍÞÊ : " & I & " , ãäåÇ : " & aqar2 & " ÛíÑ ãÏÝæÚ æ : " & aqar1 & " ãÏÝæÚ "
End Function
و ما توفيقي إلا بالله