تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] سؤال chaabane 0 235 04-07-20, 01:09 AM
آخر رد: chaabane
  [vb6.0] سؤال في الإستعلام بالتاريخ VB New 5 678 18-11-19, 12:59 PM
آخر رد: asemshahen5
  سؤال عن قص الصورة للخبراء محمد حمد محمد سليمان 0 422 30-07-19, 11:51 PM
آخر رد: محمد حمد محمد سليمان
  عايز سؤال ازاي عملية قراء الاعداد باللغة الانجليزية حامد محمد 4 785 18-01-19, 02:19 PM
آخر رد: حامد محمد
  [سؤال] سؤال يتعلق بموضوع الارشيف الالكتروني ناصر شير 0 670 05-12-18, 03:43 AM
آخر رد: ناصر شير
  اساتذتي الاحبة ارجو منكم المساعدة بنت الشام 2 919 07-10-18, 11:58 AM
آخر رد: بنت الشام
Video [نقاش] ارجو الرد على السؤال الفلترة والفرز amer2000 4 926 01-10-18, 01:20 AM
آخر رد: amer2000
  [سؤال] الى الاخوة في المنتدى ارجو مساعدتي في هذا المشروع sher 2 936 08-09-18, 09:41 PM
آخر رد: جاسم عبد
  سؤال عن إستخدام الصور المتحركة الدالة على التحميل حامد محمد 5 1,133 22-05-18, 04:39 AM
آخر رد: حامد محمد
  ارجو المساعدة في سكوال سيرفر عمور2016 11 1,826 15-04-18, 03:05 AM
آخر رد: عبد العزيز البسكري

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


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