ابو عارف

اخي جربه الان 000 - Copy (1).rar

تفضل اخي حسين TEST_1.mdb

وعليكم السلام و رحمة الله تفضل آخی التعدیل حسب فهمی 000 - Copy (1).rar

الحمد لله ولكن انت ما قلت تاريخ هجري

تنسيق مربع نص في نموذج تاريخ ام نص

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

الحمد لله وبارك الله فيك

تفضل اخي الكريم للازالة مسافة بين اسماء Function hr_Sps(MyText As String) As String Dim txt, txtA For Each txt In Split(MyText) If Len(txt) Then txtA = txtA & " " & txt Next hr_Sps = Trim(txtA) End Function ()Private Sub Cnm01_Click Dim DB As DAO.Database Dim rst As DAO.Recordset Set DB = CurrentDb Set rst = DB.OpenRecordset("table") rst.MoveFirst Do Until rst.EOF rst.Edit rst!Xname = hr_Sps(rst!Xname) rst.Update rst.MoveNext Loop MsgBox "تم تحديث بيانات بنجاح" End Sub و للمسافات زائدة استبدل سطر الرابع If Len(txt) Then txtA = txtA & " " & txt على If Len(txt) Then txtA = txtA & "" & txt واخيرا اضافة مكتبة

العفو اخي الكريم Trim([Xname]) ازالة مسافة فبل كتابة الاسم في خانة الاسم و مسافة بعد اسم الكامل مثلا " احمد محمود ابراهيم " الى "احمد محمود ابراهيم" RTrim([Xname]) ازالة مسافة يمين فقط " احمد محمود ابراهيم " الى "احمد محمود ابراهيم " و LTrim " احمد محمود ابراهيم " الى " احمد محمود ابراهيم" Expr1: Replace(Replace(Replace(Replace([Xname]," "," ")," "," ")," "," ")," "," ") هذا دالة تعيد من واحد لغاية خمسة مسافات الى مسافة واحدة، اذا كانت مسافات اكثر من خمسة اضف replace آخر tp.rar

شكر لله حاضر ساشرح الكود بقدر مسنطاع رغم انني لا استحسن شروحات بشكل مطلوب rst.recordset معروف هو مجموعة سجلات جدول absent على معايير محددة (0)rst ارجاع قيمة الموجودة في عمود الاول مجموعة سجلات و (1)rst في عمود الثاني و هكذا MonthNum = rst!shaher تعين قيمة متغير MonthNum هو قيمة حقل الشهر علما بان غيرت تنسيق حقل الشهر من نص الى رقم Dt = DateSerial(rst!YR, MonthNum, 1) تعين قيمة متغير Dt تاريخ، سنة من حقل YR و شهر من shaher و يوم 1 EachMonth = DateDiff("d", Dt, DateAdd("m", 1, Dt)) تعين قيمة متغير EachMonth حساب عدد ايام بين DT و DT+شهر، مثلا 1/سبتمبر/2018 و 1/اكتوبر/2018 For i = 1 To EachMonth حلقات تكرار متغير (i) حسب عدد ايام شهر تبدء من 1 لان عمود 0 "NUm" لا علاقة لنا به If rst(i) > 0 Then اذا كان قيمة عمود الثاني اي اول يوم الشهر اكثر من 0 ، AbsCount = AbsCount + rst(i) القيمه يجمع مع متغير AbsCount (هنا يحسب غياب متواصل) و الا ، يقرأ قيمة AbsCount اذا وصلت اكثر او يساوي 15 يقوم بوضع القيمة في مربع نص اسفل نموذج ثم Exit Sub و اذا كان اقل من 15 ، يغير قيمة AbsCount الى 0 ثم ينتقل الى عمود الثاني و هكذا حتى آخر شهر و حلقة تكرارية الاخيرة لـ i ثم ينتقل الى سجل التالي حتى نهاية مجموعة سجلات.

اخي علي هندسة هناك ثلاثة دوال لازالة مسافة 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" ثم الى استعلام و منه الى تقرير بشكل مخفي و تم عمل فرز عليه في تقرير