تكرار الترقيم في نموذج لاحصائيات الاجازات لعموم الموظفين

[SAROOK]

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

لدي في المرفقات قاعدة بيانات خاصة بالاجازات ولدي فيها نموذج اسمه emp-hol-between-twodates يختص ببيان اجازات الموظفين الواقعة بين تاريخين  ويتم استدعاء هذا النموذج عن طريق نموذج اخر اسمه w_moka_mid11

ومشكلة هذا النموذج تتلخص في ترقيم النموذج نفسه فاءذا اخد الموظف اجازاتين او اكثر يكرر نفس الترقيم وحاولت ان اعدل ولم اتمكن من ذلك 

hol.accdb

[Foksh]

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

حل مشكلتك إن شاء الله بسيط . في المديول اللي في مشروعك الرئيسي ، انقل الدالة التالية :-

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With

Exit_RowNum:
    Exit Function
    
Err_RowNum:
    If Err.Number <> 3021& Then
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function

 

الآن في النموذج استدعي الدالة التالية في مربع النص الذي تريد الترقيم فيه بدلاً من القديمة :-

=RowNum([Form])

وأخبرنا بالنتيجة 

[SAROOK]

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

تسلم بشمهندس foksh نجحت العملية بارك الله فيك  وجزاك الله خيرا