AbuuAhmed

وهذه طريقتي في كود الإضافة والبحث والذهاب إلى آخر سجل. Option Compare Database Option Explicit Private Sub btnsave_Click() Dim db As DAO.Database Dim rst As Recordset On Error Resume Next If Nz(Me.sname, "") = "" Or Nz(Me.sage, "") = "" Then MsgBox "لا يمكن ترك احد الحقول فارغا" Screen.PreviousControl.SetFocus Exit Sub End If Set db = CurrentDb Set rst = db.OpenRecordset("tbltest", dbOpenDynaset) With rst Err.Clear .AddNew !sname = Me.sname !sage = Me.sage .Update If Err.Number = 0 Then Me.sname = Null Me.sage = Null Me.sname.SetFocus Else MsgBox Err.Description, , Err.Number End If End With Set rst = Nothing Set db = Nothing End Sub Private Sub btnview_Click() Dim db As DAO.Database Dim rst As DAO.Recordset On Error Resume Next Set db = CurrentDb Set rst = db.OpenRecordset("tbltest", dbOpenSnapshot) With rst .FindFirst "sname='" & Nz(Me.sname, "") & "' And sage=" & Nz(sage, 0) If Not .NoMatch Then Me.ID = !ID Else MsgBox "لا يوجد سجل بهذه البيانات" End If End With Set rst = Nothing Set db = Nothing End Sub Private Sub cmdLastRec_Click() Dim db As DAO.Database Dim rst As DAO.Recordset On Error Resume Next Set db = CurrentDb Set rst = db.OpenRecordset("tbltest", dbOpenSnapshot) With rst .MoveLast Me.ID = !ID Me.sname = !sname Me.sage = !sage End With Set rst = Nothing Set db = Nothing End Sub Test_01.accdb

من الجيد تعديل العنوان بعد تبديل كلمة عمارير إلى عمائر.

دالة InStrRev خيار آخر لفصل اسم الملف من اسم المسار الكامل.

حياك الله أستاذ سعد باين عليك بخيل أستاذ سعد 🙂 ، تعطيني طلباتك بالقطارة. على كل تم التعديل ولكن في كل الأحوال غ م غياب مجاز أو أي حروف أخرى وفارغ أيضا سيعتبرها البرنامج غياب وسيظهر الناتج "راسب". توزيع القرار لمدارس العراق_08.xlsm

تم التعديل ، ويفترض أن أرجع لكم قبل هذا الوقت ولكن اليوم حصل خطأ ما وفقدت جزءا كبيرا من التعديلات واضطررت إلى إعادته مرة أخرى. لم أدقق على النتائج بشكل كاف والكرة الآن في مرماكم 🙂 . توزيع القرار لمدارس العراق_07.xlsm

حياك الله عزيزي ، ممكن ، هل لديك مثال ليتم التعديل عليه ، وربما لو يكون في موضوع منفصل أو في موضوع قائم آخر حفاظا على وحدة الموضوع. كما ترون فأنا مستعد للمحاولة وكلني سأتأخر عليكم قليلا لانشغالي في "مشروع اكسل" مجنني شويتين.

تعديل على التعديل السابق 🙂 التعديل السابق لتقريب الكسور إلى أقرب رقم صحيح كان يحول الخلايا الفاضية إلى أصفار وهذا خطأ لأن البرنامج يفرق بين الصفر والتي هي درجة تحصيل والخانة الفاضية والتي كان يعتبرها البرنامج غياب. التعديل في هذا السطر: من If IsNumeric(.Value) Then إلى If .Value <> "" And IsNumeric(.Value) Then توزيع القرار لمدارس العراق_06.xlsm

مثال أولي قابل للتطوير بانتظار تجاربكم ومراجعاتكم بخيرها وشرها 🙂 PeriodsPrepare_01.accdb

أنا عدلت على الكود جرب مرة أخرى ، وهذا ما عندي عزيزي.

نظمت لك الكود بدون محرر الفيجوال جرب يمكن يشتغل معك. Private Sub cmd_Click() set objFSO As Object, objFolder As Object Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\Users\tf1\OneDrive\Desktop\myfolder") If Me.cmd.Caption = "hide" Then Me.cmd.Caption = "show" If objFolder.Attributes = objFolder.Attributes And 2 Then objFolder.Attributes = objFolder.Attributes Xor 2 End If Else Me.cmd.Caption = "hide" If objFolder.Attributes = objFolder.Attributes Xor 2 Then objFolder.Attributes = objFolder.Attributes And 2 End If End If Set objFSO = Nothing Set objFolder = Nothing End Sub

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

شكرا لمرورك عزيزي ، كلامك صحيح إذا كان المطلوب تقرير ربعي/ربع سنوي ولكن عند تدقيق كود السائل يتضح أن المطلوب مختلف ، لاحظ أنه جعل البداية للكل 01/01 وكذلك للأسماء نصف سنوي بدلا من الربع الثاني وسنوي بدلا من الربع الرابع أو الأخير وكذلك أن السائل لم يطلب المساعدة إلا في نهاية الشهر الحالي ولم يشر إلى بقية المدد. أنا قلت أضرب عصفورين بحجر واحد فنظمت له الكود شكلا وأصلحت له نهاية "الشهر الحالي" وفترة "أسبوعي" وربما هو يريدها آخر سبعة أيام مع أن حسبتهم ثمانية أيام، فلننتظر مراجعته.

الكود بعد التعديل: Private Sub m_AfterUpdate() Select Case Me.m Case "اليوم" Me.n1 = Date Me.n2 = Date Case "اسبوعي" If Weekday(Date, vbSunday) = vbSunday Then Me.n1 = Date Else Me.n1 = Date - Weekday(Date, vbSunday) + 1 End If Me.n2 = Me.n1 + 6 Case "الشهر الحالي" Me.n1 = DateSerial(Year(Date), Month(Date) + 0, 1) Me.n2 = DateSerial(Year(Date), Month(Date) + 1, 0) Case "الربع الأول" Me.n1 = DateSerial(Year(Date), 1, 1) Me.n2 = DateSerial(Year(Date), 3, 31) Case "نصف سنوي" Me.n1 = DateSerial(Year(Date), 1, 1) Me.n2 = DateSerial(Year(Date), 6, 30) Case "الربع الثالث" Me.n1 = DateSerial(Year(Date), 1, 1) Me.n2 = DateSerial(Year(Date), 9, 30) Case "سنوي" Me.n1 = DateSerial(Year(Date), 1, 1) Me.n2 = DateSerial(Year(Date), 12, 31) Case Else End Select End Sub PeriodRange_01.accdb

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

تعديل آخر حسب فهمي Calculate_astalt_03.accdb

لكنها في المثال مثبتة فكيف ستصبح Null؟! يمكن عملها كنوابت في الكود. هل تريد تخزين النتائج؟ أو وضع المعايير في جدول منفصل واستدعاؤها عند المعالجة؟.

لا يوجد في المثال أي عمليات قسمة للدرجات! أنا فقط التقط الدرجة من صفحة المسودة. لم أفهم هذه ، هل تقصد أنك تريد الأنصاف أم التقريب إلى أقرب رقم صحيح؟

مبارك أخي @Moosak انضمامك إلى فريق العمل وعساك ع القوة.

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

فات علي أن أفحص النتائج وأنا في طور سجل جديد. أعتقد الآن كل الأمور تحت السيطرة. مع ملاحظة أني بدلت أسماء الصناديق. Calculate_astalt_02.accdb

ما عليك زود عزيزي 🙂

أرجو ملاحظة أن أصلحت خطأ كتابي في كلمة أنثى.

أنا قمت بتنظيم الأحداث حتى تسهل علي مراجعة المطوب .. أرجو أن لا تبدل في الأكواد حاليا. وتم التعديل في الجدول كذلك بتبديل أنواع الحقول. الآن أعد صياغة مطالبك الحسابية من جديد وبشكل مفصل. بانتظارك Calculate_astalt_01.accdb

جرب هذه المعادلة: =IF(C24="أنثى",IF(C23="ناجح","قد نجحت","لها برنامج علاجي"),IF(C23="ناجح","قد نجح","له برنامج علاجي")) & " في امتحان الصف"

نبارك لكم الترقية ونتمنى لكم التقدم والنجاح المستمرين .. وعساكم ع القوة.