أبو منتظر

بارك الله بالأخوين kkhalifa1960 و Foksh على ردودهم .

تحية طيبة الى جميع أعضاء المنتدى الأعزاء ماهو الكود الذي يقوم بتكبير حجم فونتات حقول السجلات الظاهرة في النموذج الفرعي ( قيود الفاتورة) وكما في الصورة المرفقة . مع الشكر الجزيل مقدماً

بوركت أخي Foksh ..نعم الأجابة , وكود رائع .

بعد التحية والسلام على جميع أعضاء المنتدى المحترمين في الملف المرفق نموذج Profiles2 يُظهر أسماء خمسة أطفال وأمام كل منها مربع خيار المطلوب عمل كود على زر أسماء الحضور عند نقره يقوم بمسح محتويات الحقل (NoteD) أولاً , ومن ثم يقوم بتكوين نص نتيجة دمج أسماء الأطفال المفعلة مربع خياراتهم فقط في نفس الحقل . ولكم مقدّما جزيل الشكر والتقدير Merge Names.rar

الشكر الجزيل لكل من الأخ Foksh والأخ kkhalifa1960 على ردودهم , ولكن الدالة تحتسب يوم المباشرة يوماً أضافياً (كما تفضل الأخ kkhalifa1960 )و هذا غير دقيق وعليه بعد الأستفادة من صيغة الدالة وتعديلها وضعتها ضمن كود حدث في النموذج Main و حصلت النتيجة الصحيحة . Private Sub workstart_GotFocus() If Not IsNull(Me.DayNo) And Not IsNull(Me.Mdate1) Then Me.workstart = DateAdd("d", [DayNo], [Mdate1]) End If End Sub ودمتم بألف خير 🌷 جدول أنتهاء الأجازات معدل.rar

بعد تحية كافة أعضاء المنتدى الأعزاء هل ممكن تعديل الملف المرفق ليتم أحتساب تاريخ مباشرة الموظف على أساس عدد أيام الأجازة الممنوحة له , أي تصميم دالة تقوم بأَظهار تتيجة أضافة [ (عدد أيام الأجازة ألى (تاريخ بدء الأجازة )+ (يوم واحد ) ] في الحقل (workstart) مع الشكر الجزيل . جدول أنتهاء الأجازات.rar

بوركت أستاذ قاسم .

الأخ العزيز قاسم الأجراء لايحدث أي تغيير بأستخدام الأستعلام أعلاه , لعدم وجود شرط تصفية الــ ID في الجملة كما أعتقد !!! أوخطأ آخر ... تحياتي لك

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

السلام عليكم هل ممكن المساعدة في عمل كود VBA أو صياغة SQL statment لتحديث سجل في جدول 2 على أساس تحديث سجل مماثل في جدول 1 وحسب رقم الـ ID مثال مرفق . ولكم الشكر مقدماً Update a record.zip

بالتوفيق الأخ موسى وتحياتي الى الأخ الأستاذ جعفر 🙂

اشكر جميع الأخوة الذين تفاعلوا من أجل أعطاء الجواب الأمثل . الاستاذ العزيز مارد ..في مرفق ردك الأول يحصل خطأ في إلحاق القيم للحقول بداية من السجل 43 ويكون الترتيب غير صحيح !! الاستاذ الجليل ابو خليل ..ان الكود في مثالك الاخير لايحقق المطلوب .. حيث لاتتم توزيع محتويات كل ستة حقول متتالية من العمود Valx على الحقول الستة من B1 الى B2 والمطلوب تحقيقه هو كما في الصورة المرفقة وهو قد تم تحقيقه بالضبط بعد استخدام الكود الذي اعطاه الأستاذ العزيز رمهان ...بارك الله فيه .....

أعتذر لعدم ارفاقي للملف في المشاركة !! وقد ارفقته هنا Insert 6 Fields.rar

بعد التحية والسلام على كل اساتذة وأعضاء المنتدى الأعزاء في الملف المرفق قاعدة بيانات تحتوي على جدولين الأول vtb ويحتوي حقل النص val وجدول ثاني rtb يحتوي 6 حقول نص تبدأ من B1 وتنتهي بــ B6 ارجو المساعدة في انشاء كود يعمل من خلال حدث يقوم بنسخ كل ستة قيم متتالية من الجدول الأول ووضعها في الحقول الستة في الجدول الثانى اي من B1 الى B6 في السجل الأول ,, وبعدها ستة حقول أخرى في سجل جديد من rtb مع الشكر مقدما . أبو منتظر