monm

عندى ملف اقوم بعمل ماكرو فيه واريد زر لحفظ نسخة من الملف وفى كل مرة يحفظ باسم جديد

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

ايه الاخبار مفيش رد

الله ينور عليك أخى الحبيب تمام انضبط حقل استكمال التاريخ ولكن عند كتابة حقل cut date لا يتم الكتابة فى yeart_noTxt تنفيذا لدالة select case بمعنى انها تعطلت فما السبب

السادة الزملاء الأفاضل لم يتم الرد .... لعل المانع خير

فى النموذج يتم اضافة تاريخ الانتهاء تلقائيا مضاف اليه سنة . ولكن تم التعديل على حقل السنوات بحيث عند كتابة 0.3 مثلا يكتب ثلاثة أشهر فالمطلوب التعديل على السطر Me.end_date = DateAdd("YYYY", i + 1, firDat) - 1 الذى يضيف تاريخ الانتهاء فى Private Sub start_date_AfterUpdate() ليتم اضافى التاريخ حسب المدة بالضبط إن كان أشهر يكون تاريخ الانتهاء مطابق لعدد الأشهر وإن كان عام يطابق العام وهكذا ضبط_التاريخ.accdb

عمل جميل ولكن تكون الفائدة اكبر اذا استخرجنا من الرقم القومى النوع ( ذكر - انثى ) وكذلك المحافظة

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

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

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

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

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

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

هذا الكود لا يعمل ... فما الخطأ Private Sub yeart_no_AfterUpdate() If Me.yeart_no = True Then NewRecord = yeart_no + 1 End If End Sub

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