تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال حيرني في حلقة التكرار Do ارجو المساعده
#1
الحلقه غير نهائية و لا اعرف ما هو السبب
كود :
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
Blush و ما توفيقي إلا بالله Blush
الرد }}}
تم الشكر بواسطة:
#2
أهلا أخي الكريم , الكود أعتقد فيه أخطاء , مالذي تريد الوصول إليه وأرفق مثال يوضح المكشلة ليتم التعديل عليه .
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , mohd_sader , sendbad100



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم