كيفية عمل ترقيم تلقائي لنموذج فرعي ليس له جدول ID

[محمود أبوسيف]

كيفية عمل ترقيم تلقائي لنموذج فرعي خاص بإدخال درجات التلاميذ  .

حين أن هذا النموذج ليس له جدول ID أو جدول ترقيم . فكيف يتم ذلك 

للدخول إلي النموذج المقصود ( ok   ثم    نصف العام     ثم    إدخال الإنجاز نصف العام )

 

لتجهيز الانجاز 2015 .rar

تم تعديل ديسمبر 4, 2014 بواسطه Mahmoud330

[عبدالرحمن هاشم]

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

 

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

New_Num: Format(DCount("stu_code";"amal_alsanaنصف";"stu_code <=" & [stu_code]);"0")

لتجهيز الانجاز 2015 .rar

[محمود أبوسيف]

أخي الكريم

عبدالرحمن هاشم  أنا أيضاً لم أفهم ماذا تريد أن توضح . ولكن عموماً أنا قمت  بإظهار جميع الجداول والإستعلامات والنماذج المخفية . ويتبقي لك التعديل لتجهيز الانجاز 2015 -2.rar

[علي المصري]

استخدم الدالة التالية

اكتب مصدر الحقل المراد الترقيم فيه كما يلي 
=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

[محمود أبوسيف]

أستاذ علي جزاك الله كل خير . ولكن كل ما أقوم بتركيب الكود والدالة لا تظبط معي فرجاءاً ممكن حضرتك تقوم بإجراء التعديل اللازم وإرفاقة مرة أخري

[أبو ليمونه]

 

استخدم الدالة التالية

اكتب مصدر الحقل المراد الترقيم فيه كما يلي 
=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

 

 

اخي علي

 

شكرا لك على الكود ...

 

انا اعاني نفس المشكلة ...

 

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

 

ولكن لا يعمل مع النماذج الفرعية 

 

في عند الفتح النموذج الاساسي الذي يحتوي على نموذج فرعي تكون النتيجة هكذا #Type!

 

هل من حل لهذه المشكلة ؟؟؟

 

وشكرا لكم ،،،

[أبو ليمونه]

الحل هو بوضع مصدر الحقل :

=rownum([Form])

تم تعديل ديسمبر 14, 2014 بواسطه أبو ليمونه

[محمود أبوسيف]

الأخ الكريم

أبو ليمونه    شكرأ لإهتمامك ولكن الكود لم يقم بالمطلوب ويظهر #Name? فهل من الممكن لحضرتك أن  تقوم بإجراء التعديل اللازم وإرفاقة مرة أخري .

[أبو ليمونه]

هلا فيك

 

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

Option Compare Database

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

[أبو ليمونه]

هلا فيك ...

 

القاعدة المرفقة مدرج فيها كم هائل من الاكواد منها حماية ومنها اخفاء ...

 

يجب تحرير القاعدة من الاكواد المدرجة وتحويلها الى صيغة (.accdb)

 

وسوف يعمل الكود معاك...

 

مجرد تخمين ... لانني مبتدأ مثلك ..

 

تحياتي لك

[محمود أبوسيف]

هلا فيك ...

 

القاعدة المرفقة مدرج فيها كم هائل من الاكواد منها حماية ومنها اخفاء ...

 

يجب تحرير القاعدة من الاكواد المدرجة وتحويلها الى صيغة (.accdb)

 

وسوف يعمل الكود معاك...

 

مجرد تخمين ... لانني مبتدأ مثلك ..

 

تحياتي لك

شكراً لك أخي أبو ليمونه . وجاري المحاولة

[alisadeg]

بارك الله فيك يأخ على وياليمونة جزاكم الله خيرا وزادكم من علمه