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

[أبو حوده]

السلام عليكم محتاج مساعدة في ترقيم السجلات على النموذج وجربت كتير لكن مظبطتش مرفق قاعدة للتوضيح

Database111.rar

[عبد اللطيف سلوم]

9 دقائق مضت, هانى الحلاج said:

السلام عليكم محتاج مساعدة في ترقيم السجلات على النموذج وجربت كتير لكن مظبطتش مرفق قاعدة للتوضيح

Database111.rar 93.33 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

وضح السؤال ؟؟ مشان نعرف نساعدك ؟؟

النموذج فارغ 

[أبو حوده]

حضرتك اختار من القوائم المنسدله فوق والنموذج راح يتملى

 

[عبد اللطيف سلوم]

14 دقائق مضت, هانى الحلاج said:

حضرتك اختار من القوائم المنسدله فوق والنموذج راح يتملى

 

هيك طلبك 

والا بدك المسلسل يبدأ م نرقم 1 ؟؟

Database111.accdb

[أبو حوده]

حضرتك احنا مش عاوزين يكون مرتبط بالحقول انا عوزة مستق على شاشة الفورم فقط زية زى التقرير كدة بيديك لمسلسل فقط يعنى 1 2 3 4 ...... وكدة

تم تعديل يونيو 25, 2019 بواسطه هانى الحلاج

[أبو حوده]

  

يعني زى الصورة كدة يكمل لغاية 119 اللى هو عدد السجلات بس 

[عبد اللطيف سلوم]

13 دقائق مضت, هانى الحلاج said:

  

يعني زى الصورة كدة يكمل لغاية 119 اللى هو عدد السجلات بس 

حسب معلوماتي هذه الطريقة تصلح فقط للتقارير ولا تصلح للنموذج 

اذا حدا من الاخوة يقدر يساعدك  رح نستفيد جميعنا من الموضوع 

اعتذر منك 

[أبو حوده]

شكرا لحضرتك وذوقك واهتمامك  وان شاء الله نوصل لحل 

[الضياء2008]

تفضل أخى الكريم

الكود لأحد عمالقة المنتدى

 

Database111.rar

[الحلبي]

والله يااستاذ / @الضياء2008

من زمان وانا ابحث عن مثل هذا الكود الجميل ياريت نعرف صاحبه عشان نشكره غفر الله له ورحم الله والديه وبارك الله فيه

جزاك الله خير يا اخ ضياء وجعله في ميزان حسناتك

[عبد اللطيف سلوم]

3 ساعات مضت, الضياء2008 said:

تفضل أخى الكريم

الكود لأحد عمالقة المنتدى

 

Database111.rar 83.42 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

اخي الكريم لم اجد كود ؟؟  هل تقصد  بالكود ما بين المستطيل الاحمر بالصورة المرفقة ؟؟

[الضياء2008]

دالة مع الملف يحتوى على الكود

Option Explicit
' ### Provided By Nart Lebzo For www.officena.net ###

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  'Ignore "No bookmark" at new row.
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function

ثم عنصر التحكم الذى اشرت اليه واضح من الكود استاذنا اللى كتبه

تم تعديل يونيو 26, 2019 بواسطه الضياء2008

[أبو حوده]

الف الف شكر استاذنا الغالي هو كدة المطلوب ان شاء الله