kha9009lid

في المرفقات ا٠٠تغ٠ر (1).accdb

يمكن وضعه في التقرير من خلال اضافة حقل غير منضم وضع الكود في مصدر السجل لهذا الحقل ويمكن تحديد عدد خانات الترقم من خلال عدد خانات الرقم وعدد الاصفر =Format(Int(Rnd()*12345+1);"00000")

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

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

IIf([Movement]="بيع" Or "مرتجع بيع" Or "اخرى";DLookUp("[CustomerName]";"CustomersT";"[CustomerID]= " & [Expr4]))

طريقة اخرى [رقم العقد] = Format(Int(Rnd * 123456 + Me.id), "000000")

اضف حقل غير منضم وفي مصدر البيانات ضع التعبير التالي n تساوي اسم الحقل ورتب الحقول حسب رغبتك في ظهور النتيجة =[n1] & "" & [n2] & "" & [n3] & "" & [n4] & "" & [n5] & "" & [n6] اوضع مثال ليتم تعديله

ممتاز استاذ جعفر لذا من الافضل ان تكون الدالة من خلال الكود وليس من خلال تعبير كما عملنا في الملف المرفوع سابقا او كما فعل الاستاذ جو مثلا في اول حقل في النموذج في حدث بعد التحديث نضع الكود بعد تعديله ليناسب الفي بي , بدلا من ; Me.id = Nz(DMax("[id]", "monsrf", "Month([c_date])=Month(date())")) + 1 DoCmd.RunCommand acCmdSaveRecord

الحقل هنا يقبل التكرار واعتقد انه سيكون هناك رقم ايصال متكرر يوجد موضوع للاستاذ محمد طاهر ومجموعة من عمالقة الموقع اثروا الموضوع https://www.officena.net/ib/topic/1049-استخدام-الدالة-dmax-لعمل-ترقيم-مسلسل/

في حقل تاريخ المنصرف انت كنت عامل مايكرو رفريش انا الغيت المايكرو وعمل كود يقوم اولا ريفرش الى انت كنت عملها وثانيا وضعت قيمة المنصرف تساوي حقل الترقيم Me.Refresh Me.no_esal = Me.نص92 العفو استاذي

جرب المرفق بدون اجراء اي تعديل فقط اسندت قيمة الايصال في الجدول للحقل الغير منظم في النموذج HANY_OK.accdb

حمل المثال في ردي السابق تجد الحل في حقل id في النموذج علما باني لم استخدم حقل غير منضم وانما اضفت حقلين على الجدول الاول تاريخ وقيمته تاريخ اليوم ويفترض ان يكون محمي لان تعديله يغير في صحة الترقيم والحقل الاخر حقل id ونوعة رقم وفي النموذج وضعنا القيمة الافتراضية للحقل وليس مصدر البيانات =Nz(DMax("[id]";"monsrf";"Month([c_date])=Month(date())"))+1 تحياتي وتقديري

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

علم يا استاذنا والف شكرا فعلا كذا الكود واضح

اعلم ان هذا لا يحقق طلب الاستاذ jo ولكن قد يستفيد احد الزملاء من المثال jo.accdb

بعد اذنك استاذ جعفر انا استخدمت التعبير التالي ويعمل بشكل ممتاز =Nz(DMax("[id]";"monsrf";"Month([c_date])=Month(date())"))+1

هل هذا المطلوب مع ملاحضة انك استخدمت لنوع الحقول الكمية الواردة والصادرة نوع عملة ولم تستخدم حقول رقمية ?!

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

في البداية قمت باضافة حقل نصي غير منظم مخفي ووضعت مصدر البيانات لهذا الحقل =DCount("[ID]";"Mastr Table";"[PO]='" & [PO] & "'") والهدف هو عدد مرات تكرار قيمة الحقل po ثم قمت بعمل تنسيط شرطي للحق po على اساس اذا كانت قيمة الحقل الغير منظم اكبر من 1 يتم تغيير لون وخط الحقل المكرر اما بشان الرسالة فعن طريق If DCount("[po]", "Mastr Table", "[po] = '" & Me!PO & "'") > 0 Then MsgBox "هذة القيمة مكررة", vbCritical, "تنبية" Else End If

تم اضافة رسالة عند ادخال قيمة مكررة للحقل po حسب طلبك مع قبول التكرار حسب ما رايتة في بيانات الجدول تم اضافة تنسيق شرطي بتغيير لون الحقل للسجلات المكررة المبيعات.rar

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

بخصوص الترتيب من الاقدم الى الاحدث موجود من الاساس

بالتوفيق اخي العزيز

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

جرب المرفق 5.accdb