اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الحلبي

الردود الموصى بها

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

 

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

تم تعديل بواسطه Shivan Rekany
  • Like 1
رابط هذا التعليق
شارك

 

اقتباس

تفضل اليك هذا

جزاك الله خير 

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

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

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

رابط هذا التعليق
شارك

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

  • Like 2
رابط هذا التعليق
شارك

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

اقتباس

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

الاستاذ/ shivan

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

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

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

اقتباس

مشاركه مع أخي

استاذ / kanory

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

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

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

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

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 جزاه الله خيرا 

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

رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information