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

[ishak19]

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

 

 

Database27.accdb

[أبوبسمله]

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

اجعل الحقل فالجدول رقم

وفالنموذج  الفرعى فى حدث فالحالى

Me.Id.Value = CurrentRecord

غير Id لاسم الحقل

[أبوبسمله]

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

قم بالدخول على Table2 فى وضع التصميم

قف على حقل IDD3 المطلوب وغير نوع البيانات رقم والخاصيه مفهرس بالاسفل نعم التكرار مقبول احفظ الجدول

افتح النموذج Formulaire1 فى وضع التصميم ادخل على الاحداث للنموذج اختر حدث فالحالى

Me.IDD3.Value = CurrentRecord

ان شاء الله تشتغل وتظبط معك

ان لم يكن فلعل احد اخواننا او اساتذتنا يستطيع مساعدتك

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[ishak19]

شكرا اخي . العملة نجحت .لاكن تظهر رسالة عند بداية  في كل فاتورة.

[أبوبسمله]

ارفق لك مثال

ليتضح لك افتح tblNames

اضغط عالزر جديد لتسجيل اسم جديد اكتب الاسم ثم انتقل للتاريخ واختار التاريخ مجرد ما تختار التاريخ هيرقم السجل فالحقل اللى جمبه

بالتوفيق

13(1).accdb

الحمدلله الذى بنعمته تتم الصالحات

اجعل الكود فى حدث بعد التحديث لحقل رقم الباركود فالنموذج Formulaire1  وان شاء الله تظبط من غير مشاكل

بالتوفيق

[ishak19]

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

[ishak19]

بقي مشكل واحد فقط هوا تريتب. غير مرتبة

[ishak19]

[أبوبسمله]

فالا ستعلام

اجعل الفرز تصاعدى اجعل الفرز تصاعدى لهذا الحقل

 

[ishak19]

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

[أبوبسمله]

 

[ishak19]

شكر نجحى امر وفي حالة حدف هل يمكن اعادة ترقيم يبدا من 1

[أبوبسمله]

مجرد ما تقف عالصف هيعيد ترقيمه لحاله جرب

[ishak19]

مانفع وقوف عند سطر بقية الارقام

[ishak19]

مشكل اخر عندحدف اي رقم يقوم بتكرار الرقم  الدي يليه مثال عند حدف اسجيل سابع يقوم بتكرار تسجيل 8 مرتين

[ishak19]

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

[أبوبسمله]

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

ضع الكود التالى تحت الكود السابق مباشره

Dim RS As DAO.Recordset
    Dim Counter As Integer
    
    Set RS = Me.Recordset
    If RS.RecordCount = 0 Then
        Exit Sub
    End If
    
    RS.MoveFirst
    Counter = 0
    
    While Not RS.EOF
    Counter = Counter + 1
    RS.Edit
    RS!Idd3 = Counter
    RS.Update
    RS.MoveNext
  
    Wend

بالتوفيق ان شاء الله

تم تعديل فبراير 11, 2020 بواسطه أحمد الفلاحجى

[ishak19]

كرا .الكود صحيح لكن انا ضهرلي مشكل. وتغلق قاعدة بينات

 

 

تم تعديل فبراير 11, 2020 بواسطه ishak19

[أبوبسمله]

جرب الحل السحرى لاخى واستاذنا العزيز جعفر @jjafferr جزاه الله كل خير

خد نسخه احتياطيه من البرنامج قبل عمل اى شىء

وان شاء الله الدنيا تظبط معاك

 

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[ishak19]

سلام. عليكم اخي فاضل والله جربت الحل الذي ارسلته لي سيد جعفر لاكن بدون جدوى. يبقى نفس المسكل. مع العلم انني غير جهاز الكمبيوتر وقمت بعمل ضغط واصلاح للقاعدة وتحقق من اكواد كل شيء مضبوط الى انني اعاني من تلك المشكلة عندا ضافة كود منع تكرار.وشكرا 

[ishak19]

شكرا اخي الحل هوا اني وضعت زر ام ووضعت فيه الكود حيث عند ضغط على زر يقوم باعادة ترتيب . تحياتي لك اخي العزيز وبارك الله فيك.

[أبوبسمله]

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

ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم جزاه الله خيرا

بالتوفيق اخى

 

[عبدالقدوس48]

حل بسيط  يأخي 

في التقرير ضف الرقم 1= إذهب إلى ورقة الخصائص  التنسيق بعدها تركماني وجعلها شامل