انشاء كود للموظفين حسب تاريخ الميلاد

[الطحان]

السلام عليكم

اريد عمل كود للموظفين حسب تاريخ ميلادهم مثل الرقم القومى فلو الموظف تاريخ ميلاده مثلا ( 2018/9/11) فيبقى مثلا (
11809110000) الاصفار ده التسلسل بتاع الموظف فى التاري خ ده .. ورقم واحد الاخير ده ثابت لقيت مثال هنا للترقيم التلقائى بس مظبطش

مثال موظف تاريخ ميلاده 1981/10/11 يبقى الكود111100021

موظف اخر تاريخ الميلاد 1965/10/11 يبقى الكود 111100003

ارجو الرد شكرا جزيلا

db9790.rar

[AlwaZeeR]

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

استخدم:

="1" & Format([f_date],"yy") & Format([f_date],"mm") & Format([f_date],"dd") & Format([number],"0000")

 

[Shivan Rekany]

مشاركة مع استاذ @AlwaZeeR
اتفضل تم استخدام هذا حسب ما طلبت وما شرحت على النموذج المرفق
 

Private Sub fdate_AfterUpdate()
On Error Resume Next
    If IsNull(Me.number1) = True Or Me.number1 = 0 Then
         Me.number1 = Nz(DMax("[number1]", "tp1", Format("[fdate]", "yyyy/mm/dd") = Format(Me.fdate, "yyyy/mm/dd")), 0) + 1
    End If
End Sub

Private Sub Form_Current()
    If IsDate(Me.fdate) Then Me.code = Right(Year(Me.fdate), 2) & "/" & Format(Me.fdate, "mm") & "/" & Format(Me.fdate, "dd") & "-" & "000" & Me.number1
End Sub

اليك القاعدة

 

db9790.rar

[الطحان]

المرفق كان المثال اللى مظبطش معايا

لو التاريخ 2018/9/12 بيرقمه واحد 18/09/12- 0001 والاى دى واحد

لو التاريخ 2018/9/12 بيرقمه اثنين 18/09/12- 0001 والاى دى اثنين

انا عايزه مثلا ثلاث اشخاص اول واحد تاريخ ميلاده 2000/9/12  يرقمه واحد 00/09/12-0001

ثانى شخص تاريخ ميلاده 2001/9/12  يرقمه اثنين 01/09/12-0002

ثانى شخص تاريخ ميلاده 2002/9/12  يرقمه ثلاثه    02/09/12-0003وهكذا

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

[Shivan Rekany]

هذا المنطق

  في 11‏/9‏/2018 at 22:36, الطحان said:

لو التاريخ 2018/9/12 بيرقمه واحد 18/09/12- 0001 والاى دى واحد

لو التاريخ 2018/9/12 بيرقمه اثنين 18/09/12- 0001 والاى دى اثنين

Expand  

يعكس هذا

  في 11‏/9‏/2018 at 22:36, الطحان said:

انا عايزه مثلا ثلاث اشخاص اول واحد تاريخ ميلاده 2000/9/12  يرقمه واحد 00/09/12-0001

ثانى شخص تاريخ ميلاده 2001/9/12  يرقمه اثنين 01/09/12-0002

ثانى شخص تاريخ ميلاده 2002/9/12  يرقمه ثلاثه    02/09/12-0003وهكذا

Expand  

اي نوعهما تريد

[الطحان]

انا عايز الثانى لكن كنت شرح لحضرتك  المثال بيعمل ايه

انا عايز مثلا ثلاث اشخاص اول واحد تاريخ ميلاده 2000/9/12  يرقمه واحد 00/09/12-0001

ثانى شخص تاريخ ميلاده 2001/9/12  يرقمه اثنين 01/09/12-0002

ثانى شخص تاريخ ميلاده 2002/9/12  يرقمه ثلاثه    02/09/12-0003وهكذا ( كالرقم القومى)

وشكرا لردك وتعاونك وفقك الله

[Shivan Rekany]

  في 13‏/9‏/2018 at 06:38, الطحان said:

انا عايز مثلا ثلاث اشخاص اول واحد تاريخ ميلاده 2000/9/12  يرقمه واحد 00/09/12-0001

Expand  

  في 13‏/9‏/2018 at 06:38, الطحان said:

ثانى شخص تاريخ ميلاده 2001/9/12  يرقمه اثنين 01/09/12-0002

Expand  

  في 13‏/9‏/2018 at 06:38, الطحان said:

ثانى شخص تاريخ ميلاده 2002/9/12  يرقمه ثلاثه    02/09/12-0003وهكذا

Expand  

و استخدمت هذا

Private Sub fdate_AfterUpdate()
On Error Resume Next
         Me.number1 = Nz(DMax("[number1]", "tp1"), 0) + 1
         Call Form_Current
End Sub

Private Sub Form_Current()
 On Error Resume Next
    If IsDate(Me.fdate) Then Me.code = "000" & Me.number1 & "-" & Right(Year(Me.fdate), 2) & "/" & Format(Me.fdate, "mm") & "/" & Format(Me.fdate, "dd")
End Sub

اليك المرفق

 

db9790.rar

[الطحان]

شكرا لذوقك وتسلم ايدك هل فى امكانية انى اعد التاريخ يوم وشهر

يعنى 11/ 10/ 1965 = 1

       12/ 10/ 1965= 1

11/ 10/ 1966 = 2

12/ 10/ 1966= 2 وهكذا اسف للاطالة

[Shivan Rekany]

  في 13‏/9‏/2018 at 07:32, الطحان said:

شكرا لذوقك وتسلم ايدك هل فى امكانية انى اعد التاريخ يوم وشهر

يعنى 11/ 10/ 1965 = 1

       12/ 10/ 1965= 1

11/ 10/ 1966 = 2

12/ 10/ 1966= 2 وهكذا اسف للاطالة

Expand  

مشاركتي الاولي بيعطيك هذه النتائج

[الطحان]

 

  في 13‏/9‏/2018 at 07:36, Shivan Rekany said:

مشاركتي الاولي بيعطيك هذه النتائج 

Expand  

لا مش ظابط فى النتائج اسف لحضرتك ممكن التجربة تانى

db9790.mdb

[الطحان]

وده مثال للى انا عايزه بالظبط عارف انى تعبت حضرتك

 

المثال.xlsx

[Shivan Rekany]

  في 13‏/9‏/2018 at 08:16, الطحان said:

وده مثال للى انا عايزه بالظبط عارف انى تعبت حضرتك

 

المثال.xlsxFetching info...

Expand  

اتفضل

تم استخدام هذا

Private Sub fdate_AfterUpdate()
On Error Resume Next
         Me.number1 = Nz(DMax("[number1]", "tp1"), 0) + 1
         Call Form_Current
End Sub

Private Sub Form_Current()
 On Error Resume Next
    If IsDate(Me.fdate) Then Me.code = 1 & Format(Me.fdate, "dd") & Format(Me.fdate, "mm") & Format(Me.number1, "0000")
End Sub

 

db9790.rar

[الطحان]

تسلم ايدك مش عارف اشكر حضرتك ازاى

بس هو كده بيرقم حسب الاى دى 1، 2، 3، 4

مرقمش كل تاريخ يوم لوحده يعنى 11/ 10/ 1981 ، 11/ 10/ 1982، 11/ 10/ 1983  يبقوا 111100001، 111100002، 111100003 ، 111100004 حسب تاريخ اليوم

ثم يفصل ويرقم 12/ 10/ 1981، 12/ 10/ 1982، 12/ 10/ 1983 يبقوا   110120001، 110120002، 110120003،  110120004 حسب تاريخ اليوم وهكذا

وشكرا جزيلا