السلام عليكم
أريد أن اجعل حقل ( الرقم الخاص ) تلقائياً بمجرد أن أدخل له التاريخ والمنطقة .. بحيث أن لكل سنة ولكل منطقة تسلسل خاص ...
والمثال مرفق لمزيد من الأيضاح .
والسلام عليكم
ترقيم تلقائي سنوي .. لكل منطقة
مغلق
السلام عليكم
اشكر لك جهدك .. وأدعو لك بالتوفيق ..
لكن عند إضافة منطقة جديده لم يسبق أن سجل لها رقم في سنة جديده فأن الكود لا يعمل ويطلع الرقم الخاص فارغاً ..
وقد عدلت الكود حتى يتجاوز تلك المشكلة فأصبح بهذا الشكل :
Me.الرقم_الخاص = Nz(DLast("[الرقم الخاص]", "جدول1", "Year([جدول1]![التاريخ]) =" & _
Year(Me.التاريخ) & " And [جدول1]![الرمز] ='" & Me.mm & "'") + 1)
If [الرقم الخاص] = 0 Then [الرقم الخاص] = 1
أخي الكريم
السلام عليكم
ما فعلته أنا هو مجرد فكرة والأفكار تحتاج دائماً إلى المراجعة والاختبار للتأكد من صحتها وهذا دورك
تحياتي
بارك الله فيك وفي علمك ونفع الله بك العباد والبلاد
نسأل الله سبحانه وتعالى أن يجزل لكم المثوبة والعطاء
فعلاً ما تقصر ... والله يحفظك
هذا الموضوع مغلق.