monm قام بنشر أبريل 8, 2020 مشاركة قام بنشر أبريل 8, 2020 الاساتذة الاجلاء جدول الاجازات يتم تدوين الاعوام الاول ثم الثانى وهكذا فالمطلوب عند كتابة العام الاول وتاريخ البداية يتم كتابة العام الثانى وبداية التاريخ تلقائيا ولكم جزيل الشكر الاجازات.accdb رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 8, 2020 مشاركة قام بنشر أبريل 8, 2020 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 1 رابط هذا التعليق شارك More sharing options...
monm قام بنشر أبريل 12, 2020 الكاتب مشاركة قام بنشر أبريل 12, 2020 السادة الزملاء شكرا لمعاونتكم ولكن مطلوب أن يكون النموذج مستمر وعند الانتهاء من كتابة الاول فى عدد اتلسنوات وتاريخ البداية يكتب فى السطر التالى مباشرة الثانى فى عدد السنوات وتاريخ البدء الجديد وتاريخ الانتهاء الجديد وهكذا رابط هذا التعليق شارك More sharing options...
monm قام بنشر أبريل 13, 2020 الكاتب مشاركة قام بنشر أبريل 13, 2020 ارجو من الاستاذ شيفان ريكانى تكملة المطلوب رابط هذا التعليق شارك More sharing options...
monm قام بنشر أبريل 13, 2020 الكاتب مشاركة قام بنشر أبريل 13, 2020 هذا الكود لا يعمل ... فما الخطأ Private Sub yeart_no_AfterUpdate() If Me.yeart_no = True Then NewRecord = yeart_no + 1 End If End Sub رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 14, 2020 مشاركة قام بنشر أبريل 14, 2020 في ١٢/٤/٢٠٢٠ at 04:04, monm said: مطلوب أن يكون النموذج مستمر هذا تمام وليس فيه المشكلة في ١٢/٤/٢٠٢٠ at 04:04, monm said: وعند الانتهاء من كتابة الاول فى عدد اتلسنوات وتاريخ البداية يكتب فى السطر التالى مباشرة الثانى فى عدد السنوات وتاريخ البدء الجديد وتاريخ الانتهاء الجديد وهكذا لكن انا لا افهم من هذا ممكن تعطيني مثال او المثالين كتابيا للتوضيح رابط هذا التعليق شارك More sharing options...
monm قام بنشر أبريل 14, 2020 الكاتب مشاركة قام بنشر أبريل 14, 2020 العزيز الفاضل الاستاذ شفان مطلوب عندما اكتب الاول وفى حقل من اكتب بداية التاريخ تلقائى يكتب نهاية التاريخ ثم يكتب السجل القالى فيكتب الثانى وتاريخ من وتاريخ الى بمعنى يملأ السجل التالى تلقائيا كما فى الصورة المرفقة رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 14, 2020 مشاركة قام بنشر أبريل 14, 2020 2 ساعات مضت, monm said: مطلوب عندما اكتب الاول وفى حقل من اكتب بداية التاريخ تلقائى يكتب نهاية التاريخ ثم يكتب السجل القالى فيكتب الثانى وتاريخ من وتاريخ الى بمعنى يملأ السجل التالى تلقائيا تقريبا وصلت الفكرة لكن السؤال هنا نفترض كتبت الاول وتاريخ البداية تريد ان ينتهي في اي سجل اي نسألأ بصيغة اخرى تريد ان يعمل لك كم سجلات تلقائية رابط هذا التعليق شارك More sharing options...
monm قام بنشر أبريل 15, 2020 الكاتب مشاركة قام بنشر أبريل 15, 2020 نعم عندما اكتب الاول وتاريخ البداية يكتب حتى الثالث واذا اردت ان ازيد..... اكتب الرابع فيكمل حتى السادس وهكذا ولسيادتكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 15, 2020 مشاركة قام بنشر أبريل 15, 2020 منذ ساعه, 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 2 رابط هذا التعليق شارك More sharing options...
monm قام بنشر أبريل 15, 2020 الكاتب مشاركة قام بنشر أبريل 15, 2020 الله عليك يا مبدع ...... عملنا loop تحدد عدد الصفوف وهذا جميل هل يمكن عمل حقل جديد بجيث عندما يكون عدد السنوان رقم يكتب فى هذا الحقل الرقم بالعربى بمعنى لو العدد 1 يكتب فى هذاالحقل الاول ولو 2 يكتب الثانى وهكذا ونستخدم فيه مثلا select case بحيث تكون عدد السنوات كتابة وليس ارقام مع جزيل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 15, 2020 مشاركة قام بنشر أبريل 15, 2020 42 دقائق مضت, monm said: بمعنى لو العدد 1 يكتب فى هذاالحقل الاول ولو 2 يكتب الثانى وهكذا ونستخدم فيه مثلا select case بحيث تكون عدد السنوات كتابة وليس ارقام ما هو حد الاعلى لعدد السنوات ؟ رابط هذا التعليق شارك More sharing options...
monm قام بنشر أبريل 16, 2020 الكاتب مشاركة قام بنشر أبريل 16, 2020 الحد الاعلى للسنوات 30 سنة رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 16, 2020 مشاركة قام بنشر أبريل 16, 2020 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 1 رابط هذا التعليق شارك More sharing options...
monm قام بنشر أبريل 17, 2020 الكاتب مشاركة قام بنشر أبريل 17, 2020 الله عليك يا مبدع هذا العمل جميل جدا وبه كمية كبيرة من التعليم ..... اشكرك بكل معانى الشكر هل ممكن شرح الكود المستخدم وخاصة بعد الاعلان عن المتغيرات لماذا استخدمنا if ولماذا استخدمنا for..... next هكذا يكون التعليم سيادة المبرج العبقرى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.