تكملة الحقل تلقائى

[monm]

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

الاجازات.accdb

[Shivan Rekany]

3 ساعات مضت, monm said:

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

الاجازات.accdb 416 kB · 12 تنزيلات

اتفضل استخدم هذا الكود في الفورم بعد تحديث التاريخ الاول

Private Sub first_date_AfterUpdate()
If IsDate(Me.first_date) = True Then
    Me.end_date = DateAdd("YYYY", 1, Me.first_date) - 1
End If
End Sub

 

الاجازات.accdb

[monm]

السادة الزملاء شكرا لمعاونتكم ولكن مطلوب أن يكون النموذج مستمر وعند الانتهاء من كتابة الاول فى عدد اتلسنوات وتاريخ البداية يكتب فى السطر التالى مباشرة الثانى فى عدد السنوات وتاريخ البدء الجديد وتاريخ الانتهاء الجديد وهكذا

[monm]

ارجو من الاستاذ شيفان ريكانى تكملة المطلوب

 

[monm]

هذا الكود لا يعمل ... فما الخطأ

Private Sub yeart_no_AfterUpdate()
If Me.yeart_no = True Then
 NewRecord = yeart_no + 1
End If
End Sub
 

[Shivan Rekany]

في ١٢‏/٤‏/٢٠٢٠ at 04:04, monm said:

مطلوب أن يكون النموذج مستمر

هذا تمام وليس فيه المشكلة

في ١٢‏/٤‏/٢٠٢٠ at 04:04, monm said:

وعند الانتهاء من كتابة الاول فى عدد اتلسنوات وتاريخ البداية يكتب فى السطر التالى مباشرة الثانى فى عدد السنوات وتاريخ البدء الجديد وتاريخ الانتهاء الجديد وهكذا

لكن انا لا افهم من هذا

ممكن تعطيني مثال او المثالين كتابيا للتوضيح

 

[monm]

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

[Shivan Rekany]

2 ساعات مضت, monm said:

مطلوب عندما اكتب الاول وفى حقل من اكتب بداية التاريخ تلقائى يكتب نهاية التاريخ ثم يكتب السجل القالى فيكتب الثانى وتاريخ من وتاريخ الى بمعنى يملأ السجل التالى تلقائيا

تقريبا وصلت الفكرة لكن السؤال هنا

نفترض كتبت الاول وتاريخ البداية تريد ان ينتهي في اي سجل

اي نسألأ بصيغة اخرى تريد ان يعمل لك كم سجلات تلقائية

[monm]

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

[Shivan Rekany]

منذ ساعه, monm said:

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

اتفضل اليك هذا

Private Sub first_date_AfterUpdate()
Dim i As Integer
Dim firDat As Date
Dim YeNum As Integer
firDat = Me.first_date
YeNum = Me.yeart_no
If Len(Me.yeart_no & "") = 0 Then Exit Sub
For i = 0 To 2
    Me.yeart_no = YeNum + i
    Me.first_date = DateAdd("YYYY", i, firDat)
    Me.end_date = DateAdd("YYYY", i, firDat) - 1
 DoCmd.GoToRecord , , acNewRec
Next i

End Sub

قمت بتغير حقل year_no من النصي الى رقمي وستكتب فيه الرقم بدل ان تكتب الرقب كتابية

اليك الملف

 

الاجازات (2).accdb

[monm]

الله عليك يا مبدع ...... عملنا loop تحدد عدد الصفوف وهذا جميل 

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

بمعنى لو العدد  1 يكتب فى هذاالحقل الاول ولو 2 يكتب الثانى وهكذا ونستخدم فيه مثلا select case بحيث تكون عدد السنوات كتابة وليس ارقام 

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

 

[Shivan Rekany]

42 دقائق مضت, monm said:

بمعنى لو العدد  1 يكتب فى هذاالحقل الاول ولو 2 يكتب الثانى وهكذا ونستخدم فيه مثلا select case بحيث تكون عدد السنوات كتابة وليس ارقام 

ما هو حد الاعلى لعدد السنوات ؟

[monm]

الحد الاعلى للسنوات 30 سنة

[Shivan Rekany]

13 ساعات مضت, monm said:

بمعنى لو العدد  1 يكتب فى هذاالحقل الاول ولو 2 يكتب الثانى وهكذا ونستخدم فيه مثلا select case بحيث تكون عدد السنوات كتابة وليس ارقام 

 

6 ساعات مضت, monm said:

الحد الاعلى للسنوات 30 سنة

اتفضل اليك هذا فانكشن والكود 

Option Compare Database
Function MyYearTxt(YY As Integer)
Select Case YY
    Case Is = 1: MyYearTxt = "الاول"
    Case Is = 2: MyYearTxt = "الثاني"
    Case Is = 3: MyYearTxt = "الثالث"
    Case Is = 4: MyYearTxt = "الرابع"
    Case Is = 5: MyYearTxt = "الخامس"
    Case Is = 6: MyYearTxt = "السادس"
    Case Is = 7: MyYearTxt = "السابع"
    Case Is = 8: MyYearTxt = "الثامن"
    Case Is = 9: MyYearTxt = "التاسع"
    Case Is = 10: MyYearTxt = "العاشر"
    Case Is = 11: MyYearTxt = "احدى عشر"
    Case Is = 12: MyYearTxt = "اثنى عشر"
    Case Is = 13: MyYearTxt = "ثالث عشر"
    Case Is = 14: MyYearTxt = "اربع عشر"
    Case Is = 15: MyYearTxt = "خامس عشر"
    Case Is = 16: MyYearTxt = "سادس عشر"
    Case Is = 17: MyYearTxt = "سابع عشر"
    Case Is = 18: MyYearTxt = "ثامن عشر"
    Case Is = 19: MyYearTxt = "تاسع عشر"
    Case Is = 20: MyYearTxt = "عشرين"
    Case Is = 21: MyYearTxt = "واحد و عشرين"
    Case Is = 22: MyYearTxt = "ثاني و عشرين"
    Case Is = 23: MyYearTxt = "ثالث و عشرين"
    Case Is = 24: MyYearTxt = "اربع و عشرين"
    Case Is = 25: MyYearTxt = "خامس  و عشرين"
    Case Is = 26: MyYearTxt = "سادس و عشرين"
    Case Is = 27: MyYearTxt = "سابع و عشرين"
    Case Is = 28: MyYearTxt = "ثامن و عشرين"
    Case Is = 29: MyYearTxt = "تاسع و عشرين"
    Case Is = 30: MyYearTxt = "ثلاثين"
    Case Else: MyYearTxt = ""
End Select
End Function
Private Sub first_date_AfterUpdate()
Dim i As Integer
Dim firDat As Date
Dim YeNum As Integer
firDat = Me.first_date
YeNum = Me.yeart_no
If Len(Me.yeart_no & "") = 0 Then Exit Sub
For i = 0 To 2
    Me.yeart_no = YeNum + i
    Me.yeart_noTxt = MyYearTxt(Me.yeart_no)
    Me.first_date = DateAdd("YYYY", i, firDat)
    Me.end_date = DateAdd("YYYY", i, firDat) - 1
 DoCmd.GoToRecord , , acNewRec
Next i

End Sub

ملاحظة : انا ضعيف في اللغة العربية لذلك قم بالتأكيد على ارقام كتابيا في فانكشن احتمال هناك خطأ فيه كتابيا

واليك المثال

 

الاجازات (2).accdb

[monm]

الله عليك يا مبدع هذا العمل جميل جدا وبه كمية كبيرة من التعليم ..... اشكرك بكل معانى الشكر 

هل ممكن شرح الكود المستخدم  وخاصة بعد الاعلان عن المتغيرات لماذا استخدمنا if  ولماذا استخدمنا for..... next 

هكذا يكون التعليم سيادة المبرج العبقرى