كل الانشطه

وعليكم السلام ورحمة الله وبركاته .. هذا يستوجب أن تقوم بإرفاق الملف الذي سيتم العمل عليه .. فما الفائدة من الحلول التي تعتمد على خيال مقدمها لك وبالنهاية تخبره أن الكود لا يعمل . لذا نرجو منكم التكرم بإرفاق ملف لرؤية طريقة بنية قاعة البيانات وذلك بحسب سياسة وشروط المنتدى . وجعله الله في ميزان حسناتكم

في حلكم استخدمتم OpenArgs لتمرير اسم التقرير في امر فتح نموذج ليست ومن ثم يمرر الاسم لفتح التقرير واعتقد انه يمكن الوصول للنتيجة بدونها مع اني لاحظت انه باستخدام طريقتكم بتمرير اسم التقرير فتح التقرير يكون اسرع بفارق بسيط وربما اكون واهم تحياتي Database1101.accdb

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

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

كود رائع للاستاذ @Foksh إليك حل آخر بالتنسيق الشرطي درجات المواد(2).xlsx

اخي الكريم اعتقد ان المشكلة تكمن في انك تفتح النموذج من التقرير ولكن لو عكست العملية فإن الأمر سينجح مرفق لك تطبيفك بعد تعديله وستجد تعليقات توضح كل سطر من الاوامر اتمنى ان يكون هذه هي النتيجة المطلوبة Database1.rar

لا تعلم اخي @ابو جودي كم أثرت بي كلماتك فقد غمرتني مشاعر مختلطة من السعادة والإمتنان والمسؤلية فأنا دائما ما الوم نفسي عن تفصيري في رد الجميل لهذا المنتدى الذي كان هو من اهم الاسباب بعد الله في الاستمرار في العمل مع الاكسس الف الف شكر وان شاء الله اكون على قدر كلامك الجميل واكون قد ساهمت ولو قليلا في تطور ولو حتى القليل من اعضاء المنتدى الشكر موصول للاخ @Foksh على كلماته الجميلة

بارك الله فيك وجعله في ميزان حسناتك . وعيد اضحى كريم عليك

وعليكم السلام ورحمة الله وبركاته ,, يوجد طريقة بالتنسيق الشرطي قد تكون فكرة أحد الأساتذة ، ولكني اتجهت الى سلوك آخر من خلال VBA مع إضافة المرونة في الإستخدام لأكثر من ورقة ، وكل ورقة بنطاقات مختلفة .. في مديول جديد يتم اضافة الكود التالي :- Public Sub HighlightGradeDifferencesGeneral(ByVal sheetObject As Worksheet, _ ByVal rangeBeforeAddress As String, _ ByVal rangeAfterAddress As String, _ Optional ByVal showMessage As Boolean = True) Dim rangeBefore As Range Dim rangeAfter As Range Dim cellAfter As Range Dim cellBefore As Range Dim i As Long Dim j As Long Dim highlightColor As Long On Error GoTo ErrorHandler Set rangeBefore = sheetObject.Range(rangeBeforeAddress) Set rangeAfter = sheetObject.Range(rangeAfterAddress) highlightColor = 6 If rangeBefore.Rows.Count <> rangeAfter.Rows.Count Or _ rangeBefore.Columns.Count <> rangeAfter.Columns.Count Then If showMessage Then MsgBox "نطاق 'قبل' (" & rangeBeforeAddress & ") ونطاق 'بعد' (" & rangeAfterAddress & ") " & _ "في الورقة '" & sheetObject.Name & "' ليسا بنفس الأبعاد . يرجى التحقق", vbExclamation + vbMsgBoxRight, "" End If Exit Sub End If Application.EnableEvents = False rangeBefore.Interior.ColorIndex = xlNone rangeAfter.Interior.ColorIndex = xlNone For i = 1 To rangeAfter.Rows.Count For j = 1 To rangeAfter.Columns.Count Set cellAfter = rangeAfter.Cells(i, j) Set cellBefore = rangeBefore.Cells(i, j) If Not IsEmpty(cellAfter.Value) And Not IsEmpty(cellBefore.Value) Then If cellAfter.Value <> cellBefore.Value Then cellAfter.Interior.ColorIndex = highlightColor cellBefore.Interior.ColorIndex = highlightColor End If ElseIf (IsEmpty(cellAfter.Value) And Not IsEmpty(cellBefore.Value)) Or _ (NotEmpty(cellAfter.Value) And IsEmpty(cellBefore.Value)) Then cellAfter.Interior.ColorIndex = highlightColor cellBefore.Interior.ColorIndex = highlightColor End If Next j Next i If showMessage Then MsgBox "اكتملت المقارنة وتم تلوين الاختلافات في الورقة '" & sheetObject.Name & "'.", vbInformation + vbMsgBoxRight, "" End If ErrorHandler: Application.EnableEvents = True If Err.Number <> 0 And showMessage Then MsgBox "حدث خطأ في الورقة '" & sheetObject.Name & "': " & Err.Description, vbCritical + vbMsgBoxRight, "" End If End Sub Function NotEmpty(cellValue As Variant) As Boolean NotEmpty = Not IsEmpty(cellValue) End Function وفي حدث Worksheet_Change للورقة التي تريدها ، نستخدم الاستدعاء بالشكل التالي :- Private Sub Worksheet_Change(ByVal Target As Range) Dim watchRangeBefore_Sheet1 As Range Dim watchRangeAfter_Sheet1 As Range Dim ws As Worksheet Set ws = Me ' --- حدد النطاقات الخاصة بـ Sheet1 --- Dim beforeAddress_Sheet1 As String Dim afterAddress_Sheet1 As String beforeAddress_Sheet1 = "B3:I14" ' نطاق "قبل" في Sheet1 afterAddress_Sheet1 = "K3:R14" ' نطاق "بعد" في Sheet1 On Error GoTo SafeExit Set watchRangeBefore_Sheet1 = ws.Range(beforeAddress_Sheet1) Set watchRangeAfter_Sheet1 = ws.Range(afterAddress_Sheet1) If Not Intersect(Target, watchRangeBefore_Sheet1) Is Nothing Or _ Not Intersect(Target, watchRangeAfter_Sheet1) Is Nothing Then Call HighlightGradeDifferencesGeneral(sheetObject:=ws, _ rangeBeforeAddress:=beforeAddress_Sheet1, _ rangeAfterAddress:=afterAddress_Sheet1, _ showMessage:=False) End If SafeExit: If Err.Number <> 0 Then End If End Sub لاحظ أنه في كود الاستدعاء داخل الورقة التي تريد التطبيق عليها ، تستطيع تحديد النطاق من - إلى كيفما تشاء ، وطبعاً مع ضرورة تغيير اسم الورقة بدلاً من Sheet1 إلى اسم الورقة الثانية في حال اري الاستدعاء في أكثر من ورقة . هذا سيضمن لك الإستدعاء مع التحديد النطاق ( قبل و بعد ) لكل ورقة ولكن بدالة واحدة مرنة . الملف بعد التطبيق :- درجات المواد.xlsm

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

شو يعني ، ما فهمت أخي الكريم 😅

الكود لمعرفة الفرق _ مطلو ب بالملف درجات المواد.xlsx

السلام عليكم استاذي الفاضل الغرض من طلبي هو عدم استخدام الماوس و الكتابة بشكل مباشر في خانة البحث لاني استخدم الماوس للتركيز في خانة البحث ثم اقوم بالكتابة كما هو موضح في الفيديو المرفق MSACCESS_eL6s5XPZCU.rar

جرب الآن الوضع الحالي في المرفق : - درجات الفصل الأول والثاني موجودة كما هي في الجدول فقط . - لم يتم ادخال درجات الدور الثاني . خطوات العمل : 1- قم باعداد نتيجة الفصل الأول .. ونتيجة الفصل الثاني 2- اذهب الى التقارير واستعرض المكملين 3- اذهب الى نموذج الدور الثاني : - اعمل تهيئة للدور الثاني من زر التهيئة - افتح نموذج ادخال درجات الدور الثاني ثم ادخل درجات متفاوتة للطلاب ثم احفظ - اعمل اعداد لنتيجة الدور الثاني من زر الاعداد 4 - اذهب الى التقارير واستعرض نتائج الدور الثاني العمل بالترتيب بالخطوات اعلاه واي ملاحظات زودني بها Data117.rar

السلام عليكم بارك الله بجهودكم تصميم بسيط وجميل وسلسل بالعمل . وفقكم الله لكل خير....

السلام عليكم ورحمة الله وبركاتة نشكركم على جهودكم ملاحظة :- هنالك عده اشخاص يستفيدون من البرنامج فى عده دول وهنالك اختلاف فى العملات والبرنامج يظهر الريال السعودى فقط هل يمكن تعديل العمله على حسب عمله الدوله التى متوجد بها ولكم الشكر

بقي لك 3 مشاركات فقط .. لتتمكن من استخدام الرسائل الخاصة

للرفع

اب✋

كرما حاولت الإرسال لك بالرسائل ولكن تظهر لي رسالة مفادها: أود أنا أيضا الاستفادة من طريقة الربط

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

وعليكم السلام ورحمة الله وبركاته 4 طرق لمسح البيانات 1- زر به كود مسخ البيانات (جديد) يقوم الزر بنفس وظيفة الخلية الفارغة 2- اخنيار الخلية الفارغة من E5 (بعد عمل زر المسخ ليس لها ضرورة ) 3- الخروج من شيت SEARCH ثم العودة اليه 4- النقر مرتين في اي خلية في شيت SEARCH وايسرها كما تفضلتم زر المسح او النقر مرنين كما انوه ان تحديث البيانات اظافة وظيفة جديدة ..... الخ الى شيت DATA او معاشات يتم تلقائيا مع الانتباه لزيادة مدى البيانات للقائمة من التحقق من صحة البيانات انمنى اتى قدمت ما بقيد وما زال الباب مفتوحا لمفترحاتكم او ملاحظاتكم وكل عام وانتم بالف خير طريقة اخرى للبحث معدلة7.xlsb

أخي الكريم الفاضل الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته كل عام وأنتم جميعا بخير وصحة وسعادة بمناسبة اقتراب عيد الأضحى المبارك أعاده الله عليكم وعلينا وعلى الأمة الإسلامية جميعا بالخير واليمن والبركات والعام القادم بأمر الله نكون سويا على جبل عرفات اللهم آمين رب العالمين. وكل عام وجميع أوفيسنا (Excel) الكرام جميعا بخير ليس عليكم اعتذار؛ وإنما الاعتذار واجب منا لكم على تعبكم معنا؛ فتقبلوا اعتذارنا مغلفا بكامل الشكر والاحترام والتقدير لشخصكم الكريم هذا ما عهدناه عليكم أدامكم الله عزا وعونا لنا؛ وهذا ما يشجعنا ويجعلنا نسألكم دوما بدون تردد مرة تلو الأخرى وكلنا ثقة ويقين في تقديم الإجابات والحلول الناجحة الشافية لكل ما نسأل عنه ولكم منا كل ود واحترام وتقدير وشكر بلا حدود ما أروع وما أجمل ما صنعت يداكم حفظكم الله ورعاكم؛ وسلمتم وسلمت يداكم على هذا الجمال وهذه الروعة؛ وعلى كل ما قدمتموه؛ فلقد صار البدر قمرا منيرا؛ ووصل لمرحلة الكمال؛ فجزاكم الله خير الجزاء؛ وفي ميزان حسناتكم بأمر الله. مجرد تساؤل فقط: هل من الممكن أن يكون هناك ارتباط بين الخلية الفارغة في (E5) وزر (أنقر هنا لمسح البيانات) بحيث يقوم الزر بنفس وظيفة الخلية الفارغة بأبسط طريقة ممكنة؟ مع بيان شرح مبسط لذلك إن وجد. وكل عام وأنتم بخير؛ ودامت دياركم عامرة بكل ما يحبه الله ويرضاه.

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