جلب مجموعة أرقام (سجلات) بالتتالي

[kkhalifa1960]

هل ممكن تعديل الكود كي يجلب  في كل ضغطة 20 رقم    يعني الضغطة الأولى يجلب 20 رقم الأولى  والضغطة الثانية يجلب  20 رقم التالية  وهكذا الى نهاية الأرقام بالجدول

lab111.rar

[ابوخليل]

تم تعديل الكود

 

Option Compare Database
Dim rcos, r As Long
Private Sub Command1_Click()
On Error GoTo Err
r = rcos + 20
txtNumbers = ""
Dim s
For s = rcos To r
DoCmd.GoToRecord , , acNext
txtNumbers = txtNumbers & "973" & txtnum & " , "
rcos = rcos + 1
If rcos = r Then
Exit Sub
End If
Next s
DoCmd.GoToRecord , , acFirst
Err:
        If Err.Number = 2499 Then Exit Sub


End Sub
Private Sub Form_Load()
rcos = 1
End Sub

 

جلب ارقام كمجموعات بالتتالي.rar

[kkhalifa1960]

شكراً جزيلاً أبو خليل يا واصل للحلول نعم هو الحل لكن لماذا  لايجلب الرقم الأول ؟

[ابوخليل]

انا قمت بالتعديل فقط على عجالة لتحقيق الطلب

 

اليك الكود الآن بعد التدقيق ( تم اجراء بعض التقديم والتأخير وحذف مالا يلزم )

 

 

Dim rcos, r As Long
Private Sub Command1_Click()
On Error GoTo Err
r = rcos + 20
txtNumbers = ""
Dim s
For s = rcos To r
txtNumbers = txtNumbers & "973" & txtnum & " , "
DoCmd.GoToRecord , , acNext
rcos = rcos + 1
If rcos = r Then
Exit Sub
End If
Next s
Err:
        If Err.Number = 2499 Then Exit Sub
End Sub
Private Sub Form_Load()
rcos = 1
End Sub

[kkhalifa1960]

جزاكم الله عنا كل الخير أبو خليل نعم أحسنت هذا هو الحل وتمت بحمد الله ثم بكم 

تم تعديل مايو 5, 2014 بواسطه kkhalifa1960