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

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

قام بنشر (معدل)

الاخوه الكرام / جزاكم الله خيرا على ما تقدمونه من معلومات للمبتدئين في الاكسس ولي عندكم طلب برجاء المساعدة لتعديل هذا الكود 

If IsNull(Me.Text1) Then
If MsgBox("عفواً هل تريد ترك هذا الحقل1 فارغا؟ ", vbExclamation + vbMsgBoxRight + vbYesNo, "تنبيه") = vbNo Then
Me.Text1.SetFocus
Else

If IsNull(Me.Text2) Then
If MsgBox("عفواً هل تريد الحقل2 فارغا ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "تنبيه") = vbNo Then
Me. Text2.SetFocus
End If
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNext

هذا الكود عند تنفيذه يعطي رسالة لا / نعم

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

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

المطلوب : بالضغط على نعم يقوم بنفس العمل ، ولكن عند الضغط على لا المطلوب ينتقل الى الحقل1 ولا ينتقل الى السجل التالي فهل يمكن فعل هذا وجزاكم الله خيرا 

تم تعديل بواسطه أبـوخليل
تنسيق الكود
قام بنشر

استاذي الكريم / جزاكم الله خيرا على اهتمامكم بطلبي 

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

أرجو أن أكون وضحت طلبي 

قام بنشر

اخونا احلامي

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

انصحك ان تنسى الكود السابق ووضع ماتريد من الصفر وبمرفق ؟

بالتوفيق

قام بنشر

السلام عليكم 

تفضل هذا المثال فيه ما طلبت الكود يتحقق بالنقر على زر التالى 

الكود يتحقق من ان تكست1 فارغ ثم يظهر الرسالة ان كانت" نعم" يتحقق من تكست 2 فان كانت الرسالة "نعم "ينتقل للسجل التالى

ان كانت الرسالة "لا" يحدد التكست المطلوب ولا ينتقل للتالى

ارجوا ان اكون حققت طلبك

مثال.rar

قام بنشر

أخي الكريم / جزاكم الله خيرا على اهتماكم بطلبي

ولكن برجاء التكرم بتحويل الملف الى تنسيق 2003 بدلا من 2007 حيث انني لا أعمل على 2007 وهو غير متوفر على جهازي ومرة ثانية جزاكم الله خيرا 

قام بنشر

استاذي الكريم ، وأعضاء المنتدى الكرام / السلام عليكم ورحمة الله

هذا هو ما كنت أتمناه جزاكم الله خيرا ونفع الله بعلمكم المسلمين وزادكم علما 

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