التاكد من الكود وازالة العبارات الزائدة.

تفضل اخي الكريم

ملفك بعد التعديل

za-PassRecord.rar

بالتوفيق

السلام عليكم

شكرا اختنا واستاذتنا ومربيتنا الفاضلة زهرة

على تعديل الكود بس لدي بعض التوضيحات للكود

1)If المشار اليها باللون الاحمر اين نهايتها؟

2)شرح داخل المستطيل وخصوصا السطر الاول ماذا يعني بالضبط؟

3)(نهاية End If) المشار اليها باللون الاحمر اين بدايتها

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

اخي الفاضل

ردا على اسئلتك بالترتيب

1)If المشار اليها باللون الاحمر اين نهايتها؟

نهاية الدالة الشرطية هو إنهاء الإجراء والحدث وايقافه بالكلية من خلال الأمر Exit Sub

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

مع ظهور رساله تخبرنا ان الحقول فارغه

2) شرح داخل المستطيل وخصوصا السطر الاول ماذا يعني بالضبط؟

السطر الأول الذي داخل المستطيل تخبرنا به الدالة الشرطية If

انه اذا لم تكن قيمة X خالية ففي هذه الحالة قم بإغلاق النموذج Pass

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

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

3)(نهاية End If) المشار اليها باللون الاحمر اين بدايتها

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

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

بالتوفيق

السلام عليكم

جزاك الله خير الجزاء على هذا التوضيح

فبفضل الله ومن ثم فضل هذا التوضيح توصلت للاتي

فمرة x خالية ومرة x غير خالية

كما في هذا الكود

If IsNull(X) Then GoTo Msg

DoCmd.OpenForm "FrmInfo", , , stLinkCriteria
DoCmd.Close acForm, "pass"
End If

If Not IsNull(X) Then
DoCmd.Close acForm, "pass"
Else
Msg:
MsgBox " اسم المستخدم او كلمه المرور خطأ راجع مسؤول البرنامج", vbOKOnly, "تاكيد صلاحيات الدخول"
DoCmd.CancelEvent
End If

فتوصلت اني اجعلهما شرط واحد كالاتي

الكود بعد التغيير

If IsNull(X) Then MsgBox " اسم المستخدم او كلمه المرور خطأ راجع مسؤول البرنامج", vbOKOnly, "تاكيد صلاحيات الدخول"


DoCmd.OpenForm "FrmInfo", , , stLinkCriteria
DoCmd.Close acForm, "pass"

End If
DoCmd.CancelEvent

وبقى اسال على الكود

DoCmd.CancelEvent

وضعته في نهاية الرسالة كما كان ولم ينفع

فقررت ان اضعه في النهاية

ومعنى نهاية الحدث

هل دائما نضعه في نهاية الاحداث ام له علاقة خاصة بالاكواد السابقة

ودمتم للمنتدى ودام الله ذكراكم

za-PassRecord2.rar

للرفع

للرفع

للرفع

السلام عليكم

الاخت والاستاذة الفاضلة ام عهود .

نحن نعلم انا نثقل عليك زيادة حبتين

بس مالنا غير هذا المنتدى وبفضل

الله ومن ثم فضل المشرفين

والاعضاء الفعالين نحن نتعلم وعند الله الاجر لايضيع

فياله من حظ من ذا الذي يقرض الله قرضا حسنا

ارجو رؤية اخر رد لي والاجابة علية

لاني اختصرت خطوتين بخطوة

واشتغل الكود معي تمام ولايوجد اخطاء

ومشكورة