مسلسل للصنف في النموذج

[husseinharby]

السلام عليكم

في التقرير لدي قمت بعمل مسلسل للصنف باستخدام خاصية running sum وجعلت مصدر الحقل = 1

اريد طريقة لعمل مسلسل للصنف في النموذج

بديلا ل autonumber لان بها مشاكل كثيرة

باختصار اريد بديل يقوم بوظيفة autonumber

[ابوبسمله]

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

اتفضل اخى @husseinharby الترقيم للنموذج والرصيد السابق فالتقرير

بالتوفيق

yasser_10_1.rar

[husseinharby]

وبعد بحث وعناء هنا وهناك يأتي ابو بسملة بمودل تحل لنا مشكلة عويصة ظلت معنا لسنين

شكرا ياغالي

تم تعديل نوفمبر 22, 2022 بواسطه husseinharby

[Moosak]

بارك الله فيك أستاذنا العزيز @ابوبسمله 🙂 

فعلا كود رائع ويحل معضلة عويصة 😅

وأستأذنك في وضع الكود هنا ليسهل البحث عنه واستخدامه ..

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
    'Purpose:   Numbering the rows on a form.
    'Usage:     Text box with ControlSource of:  =RowNum([Form])
    
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
    
Exit_RowNum:
    Exit Function
    
Err_RowNum:
    If Err.Number <> 3021& Then  'Ignore "No bookmark" at new row.
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function

 

[ابوبسمله]

8 ساعات مضت, husseinharby said:

وبعد بحث وعناء هنا وهناك يأتي ابو بسملة بمودل تحل لنا مشكلة عويصة ظلت معنا لسنين

شكرا ياغالي

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

53 دقائق مضت, Moosak said:

بارك الله فيك أستاذنا العزيز @ابوبسمله 🙂 

فعلا كود رائع ويحل معضلة عويصة 😅

وأستأذنك في وضع الكود هنا ليسهل البحث عنه واستخدامه ..

وفيك بارك الله اخى موسى من غير استئذان افعل ما تريد

وبالنسبه للموديول فانه من الدرر المدفونه بالمنتدى ولذلك نشير دائما للبحث اولا

تمنياتى للجميع بالتوفيق

[husseinharby]

@ابوبسمله الاخ الغالي

ماذا ان اردت الترقيم في الاستعلام وليس النموذج

[Ahmed_J]

السلام عليكم

اخي العزيز

استخدم الكود التالي في الاستعلام

Num: DCount("[ID]","[tblNames]","[ID]<=" & [ID])

تحياتي

[ابوبسمله]

في 10‏/12‏/2022 at 14:50, Ahmed_J said:

استخدم الكود التالي في الاستعلام

اخى احمد ضيف معاه شرط رقم الفاتوره