أ / محمد صالح

أخي الكريم يمكنك عملها بنفسك من آخرملف تم رفعه من حضرتك 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 لاحظ الأقواس قبل وبعد اسم الحقل * يبدو أنه أثناء إعدادي للرد سبقني بها أخي شيفان تقبل منا منكم صالح الأعمال

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

بارك الله لك أستاذ صالح وجعلنا الله جميعا من الصالحين مشكلة هذه الطريقة أن الدالة savesetting تخزن في الريجيستري في مسار محدد HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings والأفضل في هذه الحالة استعمال الريجيستري بطريقة عادية بدون savesetting باستخدام WScript.Shell وهذا ما حدث في هذا الموضوع الجديد والبسيط وفقنا الله وإياكم لكل ما تحبه وترضاه

اللهم آمين ولك مثلها إن شاء الله بعض ما عندكم أخي العزيز اللهم علمنا جميعا ما ينفعنا وانفعنا اللهم بما علمتنا

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

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

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

يمكن تنفيذ أمر الحماية في الإكسل لعدم تعديل محتويات الخلايا objXLSheet.protect وذلك بعد تنفيذ أمر الاحتواء التلقائي autofit أي قبل السطرين التاليين مباشرة 'close up other rs objects If Not rs Is Nothing Then rs.Close Set rs = Nothing

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

ما نتائج محاولات الخروج من المدة التجريبية؟! تم بفضل الله تسجيل فيديو يشرح الطريقة وجاري رفعه على قناتي على اليوتيوب موفقين إن شاء الله

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

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

بارك الله لك أخي الكريم ما يصعب مهمتك هي أنك (اعذرني) تريد التنفيذ قبل التعلم فربما يحتاج الإنسان منا إلى أن يتعلم 1000 مرة حتى يبتكر ويوظف ما تعلمه سابقا في إنجازات أنصحك بإعادة صياغة الجدول بحيث يكون الجدول العام هو الأساس في تعبئة البيانات يعني المعلمين في الصفوف والأيام والحصص في الأعمدة (كما هو الحال في الجدول الورقي الحقيقي) بعدها يتم تفريغ جدول حصص المعلم والفصل والإشراف بكل سهولة لكن العكس صعب ومضيعة للوقت ربما يفيدك هذا الرابط https://www.officena.net/ib/search/?&q=الجدول المدرسى&type=forums_topic&nodes=135&sortby=relevancy أو هذا https://www.officena.net/ib/search/?&q=جدول نادر&type=forums_topic&nodes=135&sortby=relevancy

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