الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ترقيم تلقائي يعتمد على السنة

بدأه فيصل الحربي في 30 أكتوبر 2011 · 8 رد · 2,449 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

هذا الكود يضع الترقيم التلقائي في مربع النص المسمى بـــ INCIDENTREPORTSEQNO 

INCIDENTREPORTSEQNO = Format$(Now(), "yy-mm") & "-" & Format$(Val(Right$(DLast("[INCIDENTREPORTSEQNO]", "INCIDENT REPORT"), 3)) + 1, "000")

بحيث اول رقمين تكون للسنة ثم "-" ثم الرقمين الآخرين للشهر ثم "-" ثم 3 أرقام تسلسلية

المطلوب ان تبدأ الــ 3 أرقام التسلسلية العد من جديد إذا تغيرت السنة فقط ( تم إختيار 3 أرقام فقط لأن معدل الادخال في السنة لايتجاوز 300 حاله )

بحيث عندما تتغير السنة يرجع الرقم الى

12-01-001

12-01-002

وهكذا

صورة
صورة

حسابي في الفيس بوك
http://goo.gl/XIzwL

حسابي في تويتر
http://goo.gl/6p4e3

 

 
 
#2

تفضل اخي فيصل

هذا مثال اعتقد للاخت زهرة وبه الترقيم كما طلبت

عدل به حسب طلبك

ارجو ان اكون قد افدتك

ترقيم تلقائي خاص.rar

1

سيد الاستغفار

{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}

من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري

#3
malik2010 كتب:

تفضل اخي فيصل

هذا مثال اعتقد للاخت زهرة وبه الترقيم كما طلبت

عدل به حسب طلبك

ارجو ان اكون قد افدتك

شكرا لإستجابتكم

للأسف ليس هذا المطلوب

الخانات الثلاثة الأولى لن تزيد عن 300 رقم طوال السنة

بعد انتهاء السنة ستتغير الى السنة الجديدة 2012 ( نأخذ منها الرقمين 12 فقط )

هنا قيمة العداد ( الخانات الثلاث ) يجب ان تبدأ من رقم 001

===

صورة
صورة

حسابي في الفيس بوك
http://goo.gl/XIzwL

حسابي في تويتر
http://goo.gl/6p4e3

 

 
 
#4

اخي الفاضل : فيصل الحربي

تفضل هذا المثال بناء على طلبك ترقيم سنوي وشهري

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim vLastY As Variant
Dim iNext As Integer
vLastY = DMax("[INCIDENTREPORTSEQNO]", "[INCIDENT REPORT]", "[INCIDENTREPORTSEQNO] LIKE '" & Format(Date, "yy\*\'"))
If IsNull(vLastY) Then
iNext = 1
Else
iNext = Val(Mid(vLastY, 7, 4)) + 1
End If
Me![INCIDENTREPORTSEQNO] = Format(Date, "yy-mm") & "-" & Format(iNext, "000")
End Sub

post-15367-068164200 1319972143_thumb.gi

عندما تتغير السنه والشهر تلقائيا يتم الترقيم التلقائي بدأ من 001

za-AutoNumberYM.rar

قبل التحميل : هات العشر نقاط

ملاحظة : اذا كان هناك اي ملاحظة فنحن في الخدمه دائما وابدا

بالتوفيق

المرفقات
fz.gif

تم تعديل هذه المشاركة بواسطة zahrah في 30 أكتوبر 2011 في 14:04

8

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#5

الأخت الفاضلة : زهرة

بارك الله فيك و بك

و 10 نقاط حلال عليك

===

صورة
صورة

حسابي في الفيس بوك
http://goo.gl/XIzwL

حسابي في تويتر
http://goo.gl/6p4e3

 

 
 
#6

لكي الشكر استاذتي بعد البحث في المنتدي للترقيم التلقائي حسب السنة وجدت هذا العمل الجميل ولدي الرغبة في ترقم شهادات بتسلسل حسب السنة وعدلت في الكود واستخدمته عند النقر المزدوج على الحقل واجهتني مشكلة ظهور الترقيم 2012/1 ويكرر نفس الرقم وهكذا فارجو النظر في الكود

Private Sub No_certificate_DblClick(Cancel As Integer)
Dim vLastY As Variant
Dim iNext As Integer
vLastY = DMax("[No certificate]", "[tcertifcate]", "[No certificate] LIKE '" & Format(Date, "yyyy\*\'"))
If IsNull(vLastY) Then
iNext = 1
Else
iNext = Val(Mid(vLastY, 7, 4)) + 1
End If
Me![No certificate] = Format(Date, "yyyy") & "/" & Format(iNext, "0")
End Sub

ولكي الشكر

#7
خالد يحي الامام كتب:

لكي الشكر استاذتي بعد البحث في المنتدي للترقيم التلقائي حسب السنة وجدت هذا العمل الجميل ولدي الرغبة في ترقم شهادات بتسلسل حسب السنة وعدلت في الكود واستخدمته عند النقر المزدوج على الحقل واجهتني مشكلة ظهور الترقيم 2012/1 ويكرر نفس الرقم وهكذا فارجو النظر في الكود

Private Sub No_certificate_DblClick(Cancel As Integer)
Dim vLastY As Variant
Dim iNext As Integer
vLastY = DMax("[No certificate]", "[tcertifcate]", "[No certificate] LIKE '" & Format(Date, "yyyy\*\'"))
If IsNull(vLastY) Then
iNext = 1
Else
iNext = Val(Mid(vLastY, 7, 4)) + 1
End If
Me![No certificate] = Format(Date, "yyyy") & "/" & Format(iNext, "0")
End Sub

ولكي الشكر

للرقع

#8
خالد يحي الامام كتب:

للرقع

للرفـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــع للرفــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــع

#9
خالد يحي الامام كتب:

لكي الشكر استاذتي بعد البحث في المنتدي للترقيم التلقائي حسب السنة وجدت هذا العمل الجميل ولدي الرغبة في ترقم شهادات بتسلسل حسب السنة وعدلت في الكود واستخدمته عند النقر المزدوج على الحقل واجهتني مشكلة ظهور الترقيم 2012/1 ويكرر نفس الرقم وهكذا فارجو النظر في الكود

Private Sub No_certificate_DblClick(Cancel As Integer)
Dim vLastY As Variant
Dim iNext As Integer
vLastY = DMax("[No certificate]", "[tcertifcate]", "[No certificate] LIKE '" & Format(Date, "yyyy\*\'"))
If IsNull(vLastY) Then
iNext = 1
Else
iNext = Val(Mid(vLastY, 7, 4)) + 1
End If
Me![No certificate] = Format(Date, "yyyy") & "/" & Format(iNext, "0")
End Sub

ولكي الشكر

اخي الفاضل : خالد

راجع مشاركتك

ترقيم تلقائي لرقم الشهادة لكل سنة

/index.php?showtopic=256990

بالتوفيق

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…