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
 

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

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

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

الاجازات.accdb

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

ونكون شاكرين جدا لحضرتك

الاخ العزيز الفاضل جعفر  متعك الله بالصحة والعافية وجعلك عونا لكل من احتاج العلم 

واشكرك على التواصل والاستجابة

فى المرفق كمبو المدرية وكمبو الادارة 

اود عند اختيار الادارة والتنقل بين السجلات لا يظهر سوى اسما هذه الادارة فط 

التنسيق.accdb

السادة الزملاء الافاضل عباقرة المنتدى الجميل 

فى المرفق اود ان اكتب فى الخصائص عند اختيار حقل الاسم كما فى الصورة 

اود اكتب فى التنسيق رتب  الاسماء من A to z

التنسيق.accdb

اريد مثلا فى تافذة الخصائص اكتب أت تنسيق هذا الحقل من A to Z 

كيف يتم كتابتها فى التنسيق 

عندى استعلام يظهر كافة تواريخ الزيارات امكان معين 

اريد عمل فلترة على الاستعلام ليظهر الفترة من تاريخ معين الى تاريخ معين 

ما هى الطريقة؟؟؟

اقتباس

 

هل يمكن عمل ذلك فى الملف وعند نقله الى جهاز آخر تستمر نفس الاعدادات ولا لابد من عمل الاعدادات لكل جهاز 

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

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

وشكرا للتعاون