ترقيم تلقائي في نموذج ( سجلات متصلة )

[علي المصري]

لدي فورم في الوضع  continuous form

به مربه نص اريد ان يظهر فيه رقم السجل الحالي

اذا كانت الفورم في شكل single form  استخدمت   =[CurrentRecord]

وشغالة تمام

استخدمتها في الوضع الثاني    continuous form  وجدت الناتج هو رقم 1 في جميع السجلات

 

فهل من حل :

 

بالبحث وجدت ما يلي ( وكنها بطيئة )

اولا : اسم مربع النص =  RowNum

ثانيا ً :  مصدر البيانات =  =RowNum([Forms]![Data])    حيث Data  هو اسم الفورم

 

ثم في مديول جديد

هذه الوظيفة

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([Forms]![theNameoftheForm])

     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

ولكن عند التنفيذ تكون بطيئة تشاهدها اثناء كتابة 1  2  3  4   مثل طفل بيتعلم العد  ههههههههههههه

 

فها من حل لتسريع هذا الموضوع

[ابوخليل]

 اسم مربع النص =  RowNum

 اسم الوحدة النمطية =  RowNum

   كيف ؟؟

[علي المصري]

استاذ أبو خليل

شكرا على الاهتمام

 

حصلت على الكود من احد المواقع عن طريق البحث في جوجل ( موقع اجنبي )

وجدت اسم مربع النص كان مرتبط بوحدة نمطية اخرى لعمل لون تبادلي لكل صف

ولكني لم استطع فهمه

 

فاسم مربع النص غيرته لاسم تاني مع الكود السابق ولم يتأثر بشئ الوحدة النمطية تعمل

ولكن كما اوضحت سابقا انه عند فتح الفورم تشاهد الأرقام اثناء كتابتها