عمل عداد بالنموذج

[alokbi]

اخواني الافاضل السلام عليكم اريد اولا ان أتوجه بالشكر لكل العاملين على اوفسنا والمشاركين فيه على هذا المجهود العملاق 

ثانيا اريد عمل عداد بالنموذج لكل ٢٥ سجل من ١ الي ٢٥ ويقلب العداد ويبدأ العد من جديد وهكذا ولكم الشكر 

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

سنفرض ان لديك جدول به حقل الترقيم باسم XID

ننشىئ استعلام باسم Query1 ونضغ فيه الجملة التالية

ID: SerID([XID];"XID")

ونضع الكود التالي في وحدة نمطية جديدة

Function SerID(mID As Variant, fldName As String) As Variant
Dim rst As Recordset
Dim Fld As Field
Dim I As Long

    
        If IsNull(mID) Then Exit Function
            Set rst = CurrentDb.QueryDefs("Query1").OpenRecordset
        If rst.RecordCount = 0 Then Exit Function
        
        Set Fld = rst!XID
        
            With rst
            .MoveFirst
            Do Until .EOF
            
            I = I + 0
            If I = 25 Then
            I = 1
            Else
            I = I + 1
            End If
        
        If Fld = mID Then Exit Do
        .MoveNext
        Loop
        End With
        
    rst.Close
    SerID = I

End Function

شغل الاستعلام وانظر النتيجة

تحياتي

[alokbi]

اشكرك شكرا جزيلا وسوف اجربه وان شاء الله سوف ابلغك بالنتيجه مباشرة ولو واجهتني مشاكل سوف أخبرك بها ولك الشكر 

[alokbi]

اخي العزيز عند كتابة الكود الاخير اللي فيه 

If fld =mid then exit do 

بعدها دوت  يعطيني خطإ فما العمل انا توقفت عند هذا الكود ولك الشكر اخي الفاضل 

[alokbi]

1 ساعه مضت, alokbi said:

اخي العزيز وعند كتابه الكود بالاستعلام

تظهر رساله بعدم وجود داله بهذا الاسم وبسببها الاستعلام لا يعمل  

 

[محمد أبوعبدالله]

مرحبا اخي الكريم

هل نسخت الكود ووضعه في وحدة نمطية كما هو ؟

هل لديك حقل XID في الجدول ؟

هل انشأت استعلام باسم Query1 ؟

وهل وضعت بالاستعلام

ID: SerID([XID];"XID")

تحياتي