اذهب الي المحتوي
أوفيسنا

فتح نموذج بماكرو باستخدام شرطين


الردود الموصى بها

السلام عليكم

أقوم حاليا بعمل قاعدة بيانات ولكن واجهتني مشكلة بسيطة أرجو مساعدتي

فلدي تقرير أريد فتحه بالماكرو باستخدام شرطين :

الأول : أن يتوافق مع التخصص

الثاني : أن تتحقق أحدى الخيارات الثلاث

المثال مرفق بشكل أكثر وضوحاً

أشكركم اساتذتي فقد استفدتم منكم الكثير حتى اللحظة والعلم لا ينتهي

تحياتي

________.rar

رابط هذا التعليق
شارك

السلام عليكم

أختي الكريمة

تم تعديل ملفك

ولكن يوجد نقطة أن حقل النجاح هو إما 0 أو -1 وأني في نموذج الخيار وضعت 3 خيارات

على كلٍ شاهدي المرفق وأرجو أن يلبي طلبك

التعديل تم على الاستعلام بحيث هو مربوط مع نموذج الاختيار

________.zip

رابط هذا التعليق
شارك

السلام عليكم

أختي الكريمة

تم تعديل ملفك

ولكن يوجد نقطة أن حقل النجاح هو إما 0 أو -1 وأني في نموذج الخيار وضعت 3 خيارات

على كلٍ شاهدي المرفق وأرجو أن يلبي طلبك

التعديل تم على الاستعلام بحيث هو مربوط مع نموذج الاختيار

شكرا مشرفنا عمار زيد جزاك الله خير :fff:

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

لكن المطلوب أيضاً أن يتم اظهار كامل البيانات باستخدام خيار ثالث تحت مسمى "شامل" فهل هناك امكانية بهذه الطريقة !

أو حتى طريقة أخرى لا مشكلة لدي

لقد قمت بالتعديل في الإستعلام بوضع الدالة Is Not Null

هذه الدالة قامت بالعمل المطلوب لكنها تلغي عمل الخيارين الآخرين !

في المرفق التعديل الجديد ..

مع كامل شكري لك :rol::fff:

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

السلام عليكم

جربي المرفق

شكرا لك من جديد اخي الفاضل

هذا هو المطلوب بالضبط :fff::fff::fff:

لكن لو تكرمت ان أمكنك شرح الطريقة كيف قمت بإنشاءها ؟. كي أستفيد منها مستقبلاً

وعذرا للإطالة

:smile2:

رابط هذا التعليق
شارك

السلام عليكم

1 - النموذج المراد فتحه معتمد على استعلام وهذا الاستعلام مرتبط مع النموذج الأول على اسم المادة افتحي الاستعلام وانظري الشرط

2 - جعلت قيمة الاختيار ناجح هي - 1 و إعادة هي 0 و الكل هي 2

3 - عندما نضغط الزر بحال كانت قيمة الاختيارات ( ناجح - الكل - إعادة ) هي 2 يقوم من خلال الكود بفتح النموذج بدون تطبيق الفلتر لحقل ناجح وإعادة بهذه الحالة يحضر كل بيانات المادة أما بحال كان 0 أو -1 يطبق الفلتر الموجود في الاستعلامات راجعي الاستعلام

أرجو أن يكون الشرح وافي

والسلام عليكم

رابط هذا التعليق
شارك

السلام عليكم

1 - النموذج المراد فتحه معتمد على استعلام وهذا الاستعلام مرتبط مع النموذج الأول على اسم المادة افتحي الاستعلام وانظري الشرط

2 - جعلت قيمة الاختيار ناجح هي - 1 و إعادة هي 0 و الكل هي 2

3 - عندما نضغط الزر بحال كانت قيمة الاختيارات ( ناجح - الكل - إعادة ) هي 2 يقوم من خلال الكود بفتح النموذج بدون تطبيق الفلتر لحقل ناجح وإعادة بهذه الحالة يحضر كل بيانات المادة أما بحال كان 0 أو -1 يطبق الفلتر الموجود في الاستعلامات راجعي الاستعلام

أرجو أن يكون الشرح وافي

والسلام عليكم

وعليكم السلام

أخي الكريم عمار شكرا لمتابعتك واهتمامك

الشرح واضح وممتاز لكن ماهي المتغيرات التي يجب تعديلها داخل الكود لإستخدامه في نموذج واستعلام جديد،

وإليك الكود لتوضح لي أي المتغيرات يتم تعديلها :

f29a378dcb.jpg

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

السلام عليكم

هذا حسب النموذج الذي تريدين تطبيقه فيه

حاولي أن تدرسي المبدأ والطريقة من خلال المثال والشرح الذي وضعته وإن شاء الله تنجحي

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

والسلام عليكم

رابط هذا التعليق
شارك

السلام عليكم

هذا حسب النموذج الذي تريدين تطبيقه فيه

حاولي أن تدرسي المبدأ والطريقة من خلال المثال والشرح الذي وضعته وإن شاء الله تنجحي

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

والسلام عليكم

السلام عليكم

كل التقدير والشكر لك على المتابعة والاهتمام أخ عمار زيد

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

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

فالكود الذي استخدمته أنت اخي الفاضل هذا :

a8d5dbf0b0.jpg

وقمت بنفسي بنسخه وتغيير الملون بالأحمر فقط :

b02b329949.jpg

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

لذلك كانت النتيجة كما تلاحظها بالمرفق

مع احترامي لجهدك في المتابعة

:fff:

________________.rar

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

السلام عليكم

أختي الكريمة

معك حق ولم يخطر ببالي هذه النقطة

يقوم الأكسس بتحويل اسم التقرير أو النموذج لكود كل حرف ثم يدمجها وهذا يمكنك أن تتغلبي عليه بوضع اسم النموذج أو التقرير مسبوق وملحق برمز "

بفرض اسم النموج عندك هو :

frm_myform

تقوم بكتابة الكود بالطريقة التالية :

stDocName = "frm_myform"

بدل الأكواد الموضوعة chrw()&chrw() قومي بحذفها كلها يعني الأسطر الأربعة الأولى واستبدليها بالصيغة الجديدة

ومنتظر ردك

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

والسلام عليكم

رابط هذا التعليق
شارك

السلام عليكم

أخي الفاضل

لقد نفذت شرحك وعمل الزر بشكل سليم

لكن في حالة القيمة = 2 لاتظهر نتائج التقرير لوجود خطأ !

   If Me.Choice = 2 Then
   
    stDocName = "Frm_report"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
        
    Else
    stDocName = "Frm_report"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.ApplyFilter "qry_3"
    End If

مع تقديري لك

________________2.rar

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

السلام عليكم

حقل yes/no يأخذ القيمتين 0 أو -1 وأنت تضعي قيمة 2 وبالتالي لن يعطي أي نتائج

فقط أدخلي على استعلام qry_3 وامسحي منه الشرط ( أن يأخذ قيمة الحقل choice من النموذج )

وسيعمل إن شاء الله

رابط هذا التعليق
شارك

السلام عليكم

أخي الفاضل

المعذرة لقد تم حل المشكلة :clapping:

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

تقبل وافر شكر :rol:

:fff::fff::fff:

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information