أ / محمد صالح

بارك الله لك أستاذي الفاضل يمكنك تعديل كود زر فتح النموذج إلى DoCmd.OpenForm "Exam", , , "[Chapter_Question] = """ & Forms!startup!Label72.Caption & """" أو DoCmd.OpenForm "Exam", , , "[Chapter_Question] = """ & Me.Label72.Caption & """" بدلا من DoCmd.OpenForm "Exam", , , "[Chapter_Question] = Me.[Label74].caption" ملحوظة: ياعم الحاج احنا ناس غلابة قوي بلاش حكاية سعادة الأستاذ ال.... ال...... والكلام الكبير ده الواحد ياخد قلم في نفسه ولا حاجة ربنا يصلح أحوالنا جميعا

بارك الله لك أستاذ إبراهيم ولإثراء الموضوع وتطوير الدالة وجعلها أكثر احترافية Function GetNumbersOnly(SText as string) as double Dim Numbers as string For i = 1 To Len(SText) If IsNumeric(Mid(SText, i, 1)) or mid(sText,i,1) = "." Then Numbers = Numbers & Mid(SText, i, 1) End If Next GetNumbersOnly = cdbl(Trim(Numbers)) End Function تم إضافة تعريف بعض المتغيرات وشرط للعلامة العشرية وتحويل ناتج الدالة لرقم من نوع دبل كل عام وانتم جميعا بخير وسعادة ورضا

إذا كانت النصوص الممكنة مع الأرقام هي فقط رموز gr kg ml l يمكنك استعمال هذا التعبير في الاستعلام weight number: Replace(Replace(Replace(Replace([weight];"gr";"");"kg";"");"ml";"");"l";"") وهو لاستبدال النصوص بلا شيء لتظهر الأرقام فقط

لعمل هذا يمكنك نسخ الكود الموجود في الزر الثاني إلى الزر الأول أو استعمال call button2_Click داخل حدث ضغط الزر الأول

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

تفضل أخي الكريم تم تعديل زر السابق وعرض الإجابة والخروج زأضافة موديول لإخفاء الأكسس مع تغيير حاصية منبثق popup ومشروط modal إلى نعم mas_Questions_4.rar

عفوا هناك مشكله . لمنتمكن من تحديد المحتوي الذي ترغب في عرضه كود الخطاء : 2S328/1 تقريبا تم حذف المرفق

وفقك الله أستاذ حمدي أقترح حسب ما تعلمنا في قواعد كيفية بناء قاعدة بيانات قوية * أن يتم إنشاء جدول لأولياء الأمور فيه (رقم واسم ولي الأمر وعنوانه وعدد الأبناء حقل محسوب وأي بيانات مطلوبة عن ولي الأمر) * وجدول آخر للطلاب به (رقم الطالب ورقم ولي الأمر (حقل ربط بين الجدولين) واسم الطالب الأول فقط وفصله وأي بيانات تخص الطالب) بهذه الطريقة تستطيع حساب عدد مرات تكرار كود ولي الأمر في جدول الطلاب وتحسب النسبة بكل سهولة وتعرض بيانات الطلاب أسفل نموذج أولياء الأمور في النموذج الفرعي كل عام أنتم بخير

ولا يهمك يا غالي أنا رصيدي مبيخلصش من اللايكات زي ما برمجة المنتدى بتسمح أول مرة أعرف معلومة محدودية رصيد اللايكات دي المهم نشر العلم النافع للنفس وللغير وفقنا الله وإياكم لكل خير

السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ الفاضل جمال سعد بالنسبة للتقريب في الرياضيات هو ما كان أكبر من نصف الرقم الذي نقرب إليه يتم جبره لأعلى وما كان أصغر من نصف الرقم الذي نقرب إليه يتم جبره لأسفل مثال 141 الواحد أقل من نصف 5 لذلك تجبر لأسفل فتصير 140 أما 143 فتجبر لأعلى فتصير 145 وكنت قد صممت دالة لهذا الغرض تساوي دالة mround الموجودة في إكسل Function masround(ByVal n As Double, Optional ByVal m As Double = 1) As Double masround = IIf(n - (m * (n \ m)) >= (m / 2), m * (n \ m + 1), m * (n \ m)) End Function وهي مرنة بحيث يتم تمرير العدد والمضاعف فمثلا لأقرب 5 masround([n],5) ولأقرب 20 masround([n],20) ولأقرب نصف masround([n],0.5) وهكذا أما إذا كان المطلوب هو الرفع لأقرب أعلى 5 وهو دور دالة ceiling في إكسل فهذه أيضا دالة لهذا الغرض Function masCeiling(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double masCeiling = (Int(X / Factor) - (X / Factor - Int(X / Factor) > 0)) * Factor End Function ودورها رفع 121 إلى 125 ورفع 126 إلى 130 لأقرب أعلى 5 فاختر لنفسك أي الطريقتين تريد في حساباتك وفقنا الله وإياكم لكل ما يحب ويرضى

وهذا تطوير للمثال بحيث يكون أكثر احترافية بحيث يقوم بالبحث ولا يمسح محتويات مربع البحث إذا تم تغيير الحقل وتفادي وقوع الأخطاء وعدم استعمال on error resume next وتحديد القيمة الافتراضية لقائمة الحقول بحث في جميع حقول النموذج.rar

الصورة أسفل الكود مختلفة عما أرسلته وعما كتبه أخي وصديقي رمهان هدانا الله وإياكم لما فيه الخير ما يهمني هو أنك وصلت لما تريد فقط يلزمك زيادة فاصلة قبل الفلتر ليكون الكود في الصورة صحيحا لأن في الفاصلة الأولى اسم الفلتر إن كان له اسم وفي الفاصلة الثانية شروط الفلتر إن لم يكن له اسم وفقك الله لكل خير

أخي الكريم يمكنك عملها بنفسك من آخرملف تم رفعه من حضرتك Questions.rar الخطوات التي تمت على آخر ملف * حذف زر السؤال السابق * إخفاء إجابة الطالب والإجابة الصحيحة من نموذج chapter أو حذفهما * تعديل كود زر التسليم إلى Private Sub Command45_Click() If Not (IsNull(Me.answers)) Then qcount = qcount + 1 If Me.answers = Val(Me.CorrectAnswer) Then truecount = truecount + 1 End If If qcount <= DCount("*", "Questions_Entry") Then Me.StudentAnswer = Me.answers If qcount + 1 <= DCount("*", "Questions_Entry") Then DoCmd.GoToRecord , , acNext Me.answers = Null Else DoCmd.OpenForm "result" Forms!result!lblcount.Caption = qcount Forms!result!lbltrue.Caption = truecount Forms!result!lblpercent.Caption = Format(truecount / qcount * 100, "%00.00") DoCmd.Close acForm, Me.Name End If Else MsgBox "يجب اختيار إجابتك" End If End Sub * تعديل كود زر الإغلاق في نموذج result إلى Private Sub Command41_Click() DoCmd.SetWarnings 0 DoCmd.RunSQL "update Questions_Entry set StudentAnswer=null" DoCmd.SetWarnings 1 DoCmd.Close End Sub * طبعا تصميم تقرير من خلال المعالج وإضافة رقم السؤال والإجابة الصحيحة وإجابة الطالب فقط * أو يمكنك تصميم نموذج باستخدام المعالج وإضافة نفس الحقول كل عام والجميع بخير وسعادة ورضا

هي بالفعل بتنسيق 2007 فلم يتم تعديل تنسيق الملف فقط التعديلات المذكورة سابقا وفقنا الله وإياكم لكل خير

تفضل أخي الكريم تم عمل تعديل بسيط في معادلة مسلسل الأفراد لاحظ أنه تم عمل معادلة صفيف array formula للمسلسل كما أنه لا يمكن حذف القائمة الكاملة التي تحتوي على الأفراد ورؤساء المجموعات فقط يلزمك كتابة مسلسل رؤساء المجموعات ليتم ظهور اسمهم من القائمة الكاملة واستبعادهم من الأفراد الموجود في قائمة وليس في الأخرى2.rar

وفقك الله لكل خير أستاذ خالد * لقد استعملت كود Me.StudentAnswer = Me.Text33 بدلا من Me.student_answer=me.Answers فالأول يجعل قيمة إجابة الطالب هي النص المكتوب في مربع النص إجابة الطالب وهو غير مستعمل نهائيا ولا أعتقد أنك تريد أن يكتب الطالب رقم الإجابة في هذا المربع ولا يختارها بالضغط على زر الاختيار answers والثاني يجعل إجابة الطالب هي الرقم الذي اختاره من الإجابات الأربعة * كما أنك رجعت بالطالب لنموذج الاختبار من جديد وكأنك تعيد له الاختبار فيمكنه الاختيار وضغط زر تسليم من جديد ويمكنه طباعة النموذج أيضا عند الضغط على زر الإجابات الصحيحة والأولى كما قلت لك عرض (رقم السؤال ورقم الإجابة الصحيحة ورقم إجابة الطالب) في تقرير وهذا هو الملف بعد بعض التعديلات حتى يتناسب مع ما طلبت وفقنا الله وإياكم لكل خير Questions2.rar

سهلة جدا أستاذي الفاضل حاليا أنا على موبايل ممكن أعملها لحضرتك بعد العودة من العمل وممكن تحاول فيها يتم عمل تقرير لجدول questions يعرض عمودين إجابة الطالب والإجابة الصحيحة فقط وإضافة سطر لتسجيل إجابة الطالب في حقل student_answer Me.student_answer=me.Answers إن شاء الله تقدر تعملها

يا ريت تذكر لنا كيف لم يعمل معك كود فتح التقرير بنفس فلتر النموذج في الملف المرفق بمشاركتي وكيف عمل معك نفس الكود في حدث عند النقر المزدوج على مربع نص البحث المشار إليه في مشاركة أستاذ رمهان ؟؟!! الكود المستخدم في الحالتين هو Private Sub reprt_Click() DoCmd.OpenReport "report", acViewPreview, , Me.Filter End Sub و Private Sub txt_Search_DblClick(Cancel As Integer) DoCmd.OpenReport "report", acViewPreview, , Me.Filter End Sub لاحظ السطر الثاني DoCmd.OpenReport "report", acViewPreview, , Me.Filter

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

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

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

بارك الله لك أخي الكريم ربما يفيدك هذا التعديل لا يلزمك حقل إجابة الطالب تم تعديل كود زر تسليم (هو ما يلزمنا) mas_Questions.rar

أكيد بالإمكان يلزمك أولا أن تقوم بتسمية الجدول والنموذج باللغة الانجليزية ولو كتابة النطق مثل alesm والحقول الموجودة بهما أيضا ثم تنشئ التقرير الذي تريده ويبقى لك كود الفتح مع الفلترة

بعد إذن الأستاذ جمال أخي الكريم يرجع الخطأ لاستعمال أسماء الحقول باللغة العربية وتصحيح هذا الخطأ هو ما يلي Private Sub comb_Search_AfterUpdate() On Error Resume Next Me.Filter = "[" & Nz(comb_Search, "رقم المستفيد") & "] Like ""*" & txt_Search & "*""": Me.FilterOn = True Me.txt_Search.SetFocus End Sub Private Sub txt_Search_Change() On Error Resume Next FindAsType = txt_Search.Text Me.Filter = "[" & (Nz(comb_Search, "رقم المستفيد")) & "] Like ""*" & FindAsType & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search = FindAsType txt_Search.SelStart = Len(FindAsType) End Sub لاحظ الأقواس قبل وبعد اسم الحقل * يبدو أنه أثناء إعدادي للرد سبقني بها أخي شيفان تقبل منا منكم صالح الأعمال

أشكر كل من شارك في هذا الموضوع اللهم ارزقنا علما نافعا وعملا متقبلا نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا