أبوهمام الطائفي

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

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

السلام عليكم يا إخوان عندي مشكلة بسيطة جدا بالنسبة لكم إن شاء الله وهي أن عندي قاعدة بيانات فيها عدة نماذج وفي كل نموذج زر خاص لفتح نموذج آخر هذا الزر عليه دالة شرطية ساعدني أحد الأعضاء الكرام في المنتدى ووضع لي الكود على نموذج واحد فقط واسم هذا النموذج (( الناتج النهائي )) وعمل الكود بشكل رائع جدا ولما أردت نقله إلى نموذج آخر عمل الكود بشكل جيد إلا عند فتح النموذج الآخر فهو لايفتح إلى نموذج الناتج النهائي ولم أعرف كيف أغيره لكي يفتح النموذج الذي أختاره حقيقة معرفتي بأكواد الأكسس ضعيفة للغاية الكود هو كالتالي : Private Sub q39_Click() If ((Forms![نموذج إجابات المجال الأول].[zx] < Me![nu]) And (Forms![نموذج إجابات المجال الأول].[zx] > 0)) Then MsgBox "&Uacute;&auml;&Iuml; &Ccedil;&aacute;&Ccedil;&auml;&Ecirc;&aring;&Ccedil;&Aacute; &atilde;&auml; &Ccedil;&aacute;&Aring;&Igrave;&Ccedil;&Egrave;&Eacute; &Uacute;&aacute;&igrave; &Igrave;&atilde;&iacute;&Uacute; &Ccedil;&aacute;&Atilde;&Oacute;&AElig;&aacute;&Eacute; &Oacute;&aelig;&Yacute; &Ecirc;&Ecirc;&atilde;&szlig;&auml; &atilde;&auml; &Ccedil;&aacute;&Iacute;&Otilde;&aelig;&aacute; &Uacute;&aacute;&iacute; &Ccedil;&aacute;&auml;&Ecirc;&iacute;&Igrave;&Eacute; ... &Ccedil;&aacute;&Ntilde;&Igrave;&Ccedil;&Aacute; &Ccedil;&szlig;&atilde;&Ccedil;&aacute; &Ccedil;&Iuml;&Icirc;&Ccedil;&aacute; &Ccedil;&aacute;&Egrave;&iacute;&Ccedil;&auml;&Ccedil;&Ecirc; ", 64, "&Ecirc;&auml;&Egrave;&iacute;&Uuml;&Uuml;&Uuml;&Uuml;&Uuml;&Uuml;&aring;" Else Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1575) & ChrW(1604) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(1580) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1606) & ChrW(1607) & ChrW(1575) & ChrW(1574) & ChrW(1610) DoCmd.OpenForm stDocName, , , stLinkCriteria End If وقد قمت بإرفاق نموذج مختصر من قاعدة البيانات لأن حجمها أكبر من المرفقات عندي وهي كافية بالمطلوب إن شاء الله وأتمنى شرح طريقة التغيير حتى أستطيع تطبيقها على بقية النماذج ولكم جزيل الشكر وأعتذر عن اللخبطة في الكود لأني لا أعرف كيفية إدراجه في المنتدى وهو في الحقيقة لا يزيد عن خمسة أسطر صغيرة ______________.rar

السلام عليكم يا إخوان : لو سمحتم عندي مشكلة وقد أرفقت لكم قاعدة البيانات وهي تخص مشروع تخرج مطلوب مني غدا الخميس مساءا تسليمه البرنامج فكرة عبارة عن أسئلة لقياس ومعرفة طبيعة شخصية المستخدم حيث يعرض عليه أربعة عشر سؤالا مثلا متتالية وكل سؤال فيه أربعة خيارات يقوم المستخدم بالتأشير عند الخيار المناسب ، وهذه الخيارات موزعة عليها الدرجات بالترتيب بحيث الأول = 0 والثاني = 1 وهكذا إلى الخامس .... ثم يقوم البرنامج بعد أن يجتاز المستخدم جميع هذه الأسئلة بعرض النتيجة في النهاية وذلك بعد جمع الدرجات التي حصل عليها . المطلوب : - كيفية جعل الأزرار الدائرية الخاص باختيار الإجابة يحيث أنه لا يستطيع إلى أن يختار إجابة واحدة للسؤال وليس كما سوف تجدون من إمكانية اختياره لجميع الإجابات - كيف أحصل على مجموع الدرجات التي يحصل عليها مستخدم البرنامج وذلك في خانة المجموع في نموذج الناتج النهائي . - كيف أجعله يكمل جميع الأسئلة إجباريا ولا يتجه إلى شاشة الناتج النهائي إلى بعد إجابته على آخر سؤال . آسف يا إخوان ، أعرف إني أكثرت عليكم لكن تكفون تساعدوني تروني في ورطة ما يعلم بها إلا الله عز وجل . ______________.rar