مطلوب ترقيم يومي خاص .

[محمدوحوح]

السلام عليكم

تحياتي لكم جميعا

بعد اذنكم عايز اخلي الترقيم في خانه ال id ياخد السنه والشهر واليوم وبعد كده الرقم 

وكل يوم يبدأ من جديد من ال1 

مثال 202102071

والثاني 202102072 وهكذا 

وشكرا

 

[ابوخليل]

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

تم تعديل العنوان .

[biskra]

مثال للطب يعتمد الدالة التالية

Public Function mod_Autonum(ByVal strField As String, ByVal strTable As String) As String
Dim dmval As String, dt1 As String, dt2 As String, Seq As Integer, dv As String

'get the highest existing value from the table
dmval = Nz(DMax(strField, strTable), 0)

'if returned value is 0 then the table is new and empty
'create autonumber with current date and sequence 1
If Val(dmval) = 0 Then
   dv = Format(Now(), "yyyymmdd") * 1000 + 1
   mod_Autonum = dv
   Exit Function
End If

'format the number as an 11 digit number
dv = Format(dmval, "000000000")
'take the 3 digit sequence number separately
Seq = Val(Right(dv, 3))
'take the date value separately
dt1 = Left(dv, 8)
'get today's date
dt2 = Format(Now(), "yyyymmdd")
'compare the latest date taken from the table
'with today's date
If dt1 = dt2 Then 'if both dates are same
   Seq = Seq + 1 'increment the sequence number
   'add the sequence number to the date and return
   mod_Autonum = Format(Val(dt1) * 1000 + Seq)
   Exit Function
Else 'the dates are different
   'take today's date and start the sequence with 1
   mod_Autonum = Format(Val(dt2) * 1000 + 1)
End If

End Function

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

Private Sub Form_BeforeInsert(Cancel As Integer)
 Me![CardNo] = mod_Autonum("CardNo", "Patients")
End Sub

للتأكد من أن الرقم يبدأ من 1 لليوم الموالي قم بتعديل التاريخ للسجلات السابقة في الجدول مثلا السجل الأول به تاريخ 20210206001  عدل التاريخ و اجعله لتاريخ سابق مثلا  20210205001  عدل مجموعة السجلات بنفس الطريقة ثم عد الى النموذج و قم بإدخال سجلات جديدة لاحظ أن الترقيم سوف يبدأ من 1

الترقيم سوف يظهر تلقائيا بمجرد بداية إدخال البيانات مثلا أكتب في حقل Title مثلا السيد حينها يبدأ الترقيم

ترقيم خاص.rar

تم تعديل فبراير 9, 2021 بواسطه biskra

[محمدوحوح]

شكرا للاخ ابو خليل علي فتح الموضوع مره اخري وتغيير العنوان
 شكرا للاخ biskra علي الرد وجاري التجربة

[محمدوحوح]

تحياتي لحضراتكم جميعا
هل يمكن بأي طرقة تطبيق ذلك علي الحقل من النوع الرقمي وليس النصي 

وشكرا

[jjafferr]

في ١‏/٣‏/٢٠٢١ at 00:20, محمدوحوح said:

هل يمكن بأي طرقة تطبيق ذلك علي الحقل من النوع الرقمي وليس النصي

 

نعم ، بعمل ثلاث تغييرات :

.

 

جعفر

1348.ترقيم خاص.accdb.zip

[محمدوحوح]

اخي jjafferr مش عارف اشكرك ازاي

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

 

 

 

 

 

 

[محمد وهبه محمد]

السلام عليكم

يارك الله فيكم وزادكم من علمه

رجاء محتاج اعمل مسلسل خاص لكل عميل على حده

لان لكل عميل لدى له مسلسل خاص به 

فما العمل؟

ارجو مساعدتى ولكم جزيل الشكر

تم تعديل يونيو 30, 2021 بواسطه محمد وهبه محمد

[jjafferr]

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

 

مثلا اسم العميل هو A_Name ، و حقل رقم التسلسل هو A_No ، في الجدول tbl_A

Next_Number = Nz(Dmax("A_No","tbl_A","A_Name='" & me.A_Name & "'")+1 ,1)

فيصبح الكود:

 

 

جعفر