مشكلة بسيطة لدي في كيفية تعديل هذا الكود

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

السلام عليكم يا إخوان


عندي مشكلة بسيطة جدا بالنسبة لكم إن شاء الله

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

ولما أردت نقله إلى نموذج آخر عمل الكود بشكل جيد إلا عند فتح النموذج الآخر فهو لايفتح إلى نموذج الناتج النهائي ولم أعرف كيف أغيره لكي يفتح النموذج الذي أختاره

حقيقة معرفتي بأكواد الأكسس ضعيفة للغاية

الكود هو كالتالي :

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

تم تعديل مارس 13, 2014 بواسطه أبو آدم
احتواء الكود

[محب العلم]

السلام عليكم

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

لا أعرف المشكلة من عندي أو من عنك أو من المنتدى لأنه تحصل كثيرا

أرجو ممن يعرف الحل يدلني عليه

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

مع وافر الاحترام

[hat]

الاخ العزيز
انظر السطر قبل الاخير في الكود

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)

ماذا ترى ؟ المتغير الذي قبل علامة = واضح من اسمه انه متغير يحمل اسم الملف المقصود فتحه لاحقاً stDocName
ثم بعد ذلك اسم الملف بنظام الينكود العالمي وهو رقم الحرف العربي الموحد عالمياً
بامكانك كتابة الاسم صراحة ولكن هناك مشكلة الفواصل بين الكلمات العربية وبامكانك حفظ النموذج أو الملف اسم وحيد او وضع الشرطة السفلية بين الاسماء ( الناتج_النهائي )
وسترى الملف الذي وضعت اسمه سيفتح مباشرة ولاتنسى تعديل الشرط ليتلائم مع النموذج المعني وهو واضح بعد الشرط IF
ارجو ان اكون وفقت لأيصال الفكرة.
هاشم

تم تعديل مارس 13, 2014 بواسطه أبو آدم
احتواء الكود

[الشروق القاتم]

السلام عليكم اخي ابو همام :

انا اختك في الله الشروق القاتم

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

)

تستطيع يا اخي ابو همام ان تكتب هذا الكود بطريق اخري وهي انه بعد ( = ) تكتب "الناتج النهائي" وهو اسم النموذج الذي سوف يفتحه هذا الامر ولا تنسى الشرطتيين " لانها اساسية وفي كل مرة تريد تغيير النموذج الذي يفتحه كل ما عليك هو تغيير اسم النموذج الذي بين الشرطتيين

تم تعديل مارس 13, 2014 بواسطه أبو آدم
احتواء الكود

[الوردة الزرقاء]

حاول إنك تكتب اسم النموذج باللغة الإنجليزية ثم امسح كل المتغيرات المكتوبة بعد الجملة الشرطية else واكتب أمر فتح النموذج مباشرة

DoCmd.OpenForm "aaaa", acNormal

مكان aaa اكتب اسم النموذج الذي تريد

وإن شاء الله بتنحل المشكلة معاك

لأنه كان عندي مشكلة مقاربة لها وحلها لي أخونا محب العلم

تم تعديل مارس 13, 2014 بواسطه أبو آدم
احتواء الكود

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

أخي محب طلب العلم (( امتناني وشكري العميق لك على رغبتك الصادقة في مساعدتي وحقيقة أحيي في أخلاقك وتعاملك الراقي وتواضعك ))

زادك الله علما وخلقا وتواضعا ..

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

أشكر لك كرمك بهذه المشاركة الرائعة وتقبل احترامي وتقديري

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

أختي الوردة الزرقاء (( أشكرك جزيلا ، فبعد توجيهات الأخت الشروق انتهى بي الأمر مثل ما كتبت تماما ، )) أشكرك على مشاركتك

(( حقيقة تعجز الكلمات عن وصف امتناني وتقديري لكم لكني لا أملك إلا أن أقول ))

جزاكم الله خيرا