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

[الحلبي]

اخواني السلام عليكم

ارجو هذه المرة ان اجد اجابة

بحثت هنا وهناك ولم اجد اجابة لسؤالي

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

المطلوب الحقل "SR" الموجود في الفرعي ان يكون رقم متسلسل : 1-2-3-4 الخ لكل فاتورة

يعني الفاتورة رقم 1 يكون الفرعي فيها تسلسلي يبدأ من رقم 1-2-3 الخ

الفاتورة رقم 2 تبدأ من رقم 1  -2-3 الخ

استخدمت الدالة DSUM+1  والدالة  DCOUNT ولم تنجح معي ارجو ان اجد الاجابة عندكم 

جزاكم الله خيرا

ترقيم تسلسلي.accdb

[Shivan Rekany]

5 ساعات مضت, حلبي said:

المطلوب الحقل "SR" الموجود في الفرعي ان يكون رقم متسلسل : 1-2-3-4 الخ لكل فاتورة

اتفضل اليك هذا

=Nz(DMax("[sr]";"t2";"[fatorano]='" & [Forms]![t1]![fatorano] & "'");0)+1

 

ترقيم تسلسلي.accdb

تم تعديل نوفمبر 1, 2018 بواسطه Shivan Rekany

[الحلبي]

 

اقتباس

تفضل اليك هذا

جزاك الله خير 

حاول ان تفرغ جميع البيانات وابدأ في ادخال بيانات الفاتورة الاولي

تلاحظ تكرار المتسلسل 

دائما اتعبك معي 

[Shivan Rekany]

11 دقائق مضت, حلبي said:

حاول ان تفرغ جميع البيانات وابدأ في ادخال بيانات الفاتورة الاولي

عفوا لم انتبهت لذلك اليك هذا
 

Private Sub catname_AfterUpdate()
    If Len(Me.sr & vbNullString = 0) Then Me.sr = Nz(DMax("[sr]", "t2", "[fatorano]='" & [Forms]![t1]![fatorano] & "'"), 0) + 1
End Sub

 

ترقيم تسلسلي.accdb

[kanory]

مشاركه مع أخي @Shivan Rekany انظر المرفق ...

ترقيم تسلسلي (1).accdb

[الحلبي]

اخواني الافاضل

اقتباس

عفوا لم انتبهت لذلك اليك هذا

الاستاذ/ shivan

عند افراغ جميع البيانات

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

وعند حذف اي مسلسل في المنتصف (حذف صف كامل ) لا يكمل التسلسل بالشكل الصحيح  طبعا الحذف وارد لانها فاتورة شراء او بيع

اقتباس

مشاركه مع أخي

استاذ / kanory

جزاك الله خيرا علي المداخلة ونفس المشكلة عند الادخال في الفاتورة الثانية او الثالثة اما يكرر رقم التسلسل واما يظهر الرسالة بعدم الاضافة لوجود علاقة

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

علي حال انا منتظر ردكم واشكركم علي تعاونكم معي جعله الله في ميزان حسناتكم

تم تعديل نوفمبر 1, 2018 بواسطه الحلبي

[Shivan Rekany]

30 دقائق مضت, حلبي said:

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

اولا يجب ان تكتب رقم الفاتورة 

33 دقائق مضت, حلبي said:

وعند حذف اي مسلسل في المنتصف (حذف صف كامل ) لا يكمل التسلسل بالشكل الصحيح  طبعا الحذف وارد لانها فاتورة شراء او بيع

اذا اليك هذا

Option Compare Database


Private Sub btnDelete_Click()
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
    Me.Refresh
    Set rs = Me.RecordsetClone
    rs.MoveLast: rs.MoveFirst
    RC = rs.RecordCount
    rs.MoveFirst
    DoCmd.GoToRecord , , acFirst
    For i = 1 To RC
        Me.sr = Me.ID1
        DoCmd.GoToRecord , , acNext
    Next i
    DoCmd.SetWarnings True
End Sub

Private Sub catname_AfterUpdate()
'Me.sr = Nz(DMax("[sr]", "t2", "[fatorano]='" & [Forms]![t1]![fatorano] & "'"), 0) + 1
DoCmd.RunCommand acCmdSaveRecord
Me.sr = Me.ID1
End Sub

 

ترقيم تسلسلي (1).accdb

[الحلبي]

اقتباس

اذا اليك هذا

الله الله الله عليك

فعلا هو المطلوب

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

كما اشكر  الاستاذ / kanory جزاه الله خيرا 

اكرر تحياتي واحترامي لكم