ابو عارف

اخي علي هندسة هناك ثلاثة دوال لازالة مسافة LTrim([Xname])'حذف مسافة يسار RTrim([Xname])'حذف مسافة يمين Trim([Xname])'حذف مسافة يمين واليسار بتوفيق،،،

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

السلام عليكم و رحمة الله و بركاته او يمكن استخدام دالة Replace بدون وحدة نطمية(موديل) tp.rar

تفضل اخي جرب db1.accdb

وعليكم السلام و رحمة الله و بركاته ضع الكود في حدث عند فتح تقرير DoCmd.Restore بتوفبق،،،

السلام عليكم و رحمة الله و بركاته اخي العزيز اليك قاعدتين مختلفتين اذا اردت تجربة تسجيل غياب لا تسجل من خلال جدول بل من خلال نموذج لانني وجدت تسجيل غياب في ملف امس ليوم 31 نوفمبر حين شهر نوفمبر 30 يوم. و لمنع تكرار تلك الخطاء قمت باضافة كود للايام 29،30،31 شهر لقبول تسجيل غياب حسب ايام شهر فقط. TowDatabase.zip

السلام عليكم عزيزي اضفت حقل جديد باسم سنة جنب حقل شهر اكتب سنة مناسبة لحقل شهر، مثلا يناير من سنة 2018 ام من 2019، وجعلت ادخال شهور من قائمة منسدلة لتجنب اختلاف في اسماء شهور. و ثانيا اكمل رقم قومي لان اغلب خانات رقم قومي فارغة و هذا ضروري جدا ، ثم ارفع الملف حتى بتم تعديل عليه. ملحوظة: سبب حقل سنة لمعرفة عدد ايام شهر قبل حساب غياب متتالي ليس كما في نموذج او جدول جميع شهور 31 يوما على سبيل مثال لو غاب الطالب تاريخ 27،26،25 من شهر فبراير و من 1 الى 12 من شهر مارس هذا يعتر 15 يوم غياب متتالي ولكن اصفار في 29 و 30 و 31 الموجود في شهر فبراير يعني حضور!! و يقطع تسلسل غياب لهذا سبب علينا تكوين تاريخ، سنته من حقل سنة و شهره من شهر و يومه واحد، ثم برمجة حساب غياب متتالي ينتقل الى 1 مارس بعد 28 من فبراير مباشرا و تجاهل اصفار 29 و 30 و 31 و هكذا الغياب_(3).zip

ستلقي الرد في موضوع جديدة قريبا ان شاء الله

تفضل اليك التعديل test (1).mdbtest (1).mdb

بسيطة صباح الغد ارفق لك تعديل ان شاء الله

السلام عليكم اخي بعد اعادة كتابة في الخلية ، في مجموعة "صيغ" اضغط على "حساب الان" لان خيار حساب تلقائي لا يعمل في اوفيس 2010 او ربما احدث ، في اوفيس 2007 كان يعمل تمام ولكن في 2010 مع تغير بيانات تختار خيار حساب يدوي من تلقاء نفسه

هل تقصد منع ادخال قيم في نموذج Main4 الا القيم في القائمة vehicle_modle ؟ اذا جواب صح في ورقة خصائص لـ vehicle_modle في لسان تبويب "بيانات" اجعل خيار التزام بالقائمة الى "نعم" ثانيا لي سؤال حول برنامجك لو تسمح لي لماذا كثرة نماذج وفتح نموذج من خلال نموذج رئيسي ثم حفظ و تحديث نموذج الرئيسي.... ماذا لو قمت باضافة عناصر القائمة من خلال مربع نص الصغيرة في نفس نموذج و نفس زر كما هو في المثال المرفق test.mdb

في حدث عند اغلاق الصق الكود: Forms!Main4!vehicle_modle.Requery

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

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

ساشرح لك ان شاء الله انت انظر تعديل المرفق الغياب.accdb

تفضل اخي اليك تعديل يطريقة مختلفة الغياب.accdb

تفضل اخي اليك التعديل حساب العميل.accdb

وعليكم السلام و رحمة الله و بركاته لا بالعكس انا دائما اعتبر نفسي تلميذا للاساتذة موجودين في المنتدى انظر المرفق اختر مقرر من قائمة تحرير و سرد ثم اضغط تدقيق22 ثم اضغط على زر "فلتر" سترى كل شيء ان شاء الله اختيار المقرر.rar

بالضبط كما شككت على كل حال نحن كلنا اخوان و نساعد بعضنا بعض و الحمد لله لحصولك على الاجابة،

السلام عليكم و رحمة الله و بركاته اخي "حامل المسك " تحية طيبة و بعد، عنوان الموضوعك وضع علامة صح على كافة السجلات التي تحوي القيمة في مربع تحرير وسرد ثم كتبت: "المطلوب في حال اختيار مادة معينة ووضع علامة صح على الكل أن يضع علامة صح على المواد فقط التي تطابق القيمة في مربع التحرير والسرد وإذا قمت بإزالة الصح أن يزيلها من المواد التي تطابق قيمة مربع التحرير والسرد " ممكن معرفتي اختلاف بين مطلوب و تعديل في المرفق ارفقته قبل مشاركة الاخيرة لاستاذ "غريب" علما انني نزلت مرفق استاذ غريب يعمل عكس بالعكس للجميع سجلات بغض نظر ما هو في مربع تحرير وسرد !!! و لك مني اجمل تحايا،،،،

تفضل اخي اليك التعديل اختيار المقرر.rar

اخي موضوعك مكررة راجع موضو عك السابقة او جرب هذالكود ستجد ملف pdf في نفس مسار البرنامج file1 = CurrentProject.Path & "\Dlt.pdf" DoCmd.OutputTo acOutputForm, "FRM", acFormatPDF, file1 fileSz = FileLen(file1) / 1024 If fileSz > 300 Then If MsgBox("عفواً... لقد تجاوز حجم الملف من حد مسموح للمتابعة اضغط موافق و للالغاء اضغط الغاء", vbYesNo) = vbNo Then Kill file1 Exit Sub End If End If MsgBox "تم تصدير الملف بنجاح"

تفضل اخي جرب التعديل Database (1).rar

شكر لله و جزاك بمثله