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

[fantap]

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته احبتي في الله

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

حيث عندي مسكلة بسيطة في زر  "الانتقال الي بيانات الدورة التالية" داخل نموذج الاستعلام"

حيث قد تم كتابة الكود التالي :

Private Sub Command76_Click()
On Error GoTo Err_Command76_Click


    DoCmd.GoToRecord , , acNext

Exit_Command76_Click:
    Exit Sub

Err_Command76_Click:
     If MsgBox("هل تريد ادخال دورة جديد ؟", vbYesNo + vbDefaultButton1) = vbYes Then
          DoCmd.OpenForm "نموذج أدخال المتدربين"
           DoCmd.Close acForm, "الاستعلام عن متدرب"
  End If
    
End Sub

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

مثال علي ذلك :-

لو انني استعلم علي المتدرب رقم 2  و اريد ان أضيف له دورة جديدة  يذهب مباشرة  الي شاشة ادخال المتدربين و يقف علي بيانات المتدرب رقم 2 استعداداً لاضافه دورة جديده

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

شكرا لكم جميعا علي حسن تعاونكم معنا

و كل عام و انتم بخير

 

برنامج ادارة التدريب(2) - Copy.rar

تم تعديل أغسطس 19, 2018 بواسطه fantap
توضيح

[essam rabea]

برنامج ادارة التدريب(2) - Copy.rar 

ارجو ان يكون هو المطلوب

[fantap]

شكرا  اخي الكريم  الرد و المساعده

عذر اخي  لقد تم فتح ملف أخر عن طريق الخطأ

سوق اقوم  بالتجربة و الرد عليك الان

 

 

 

تم تعديل أغسطس 19, 2018 بواسطه fantap

[essam rabea]

الفيديو لا يظهر عندى لذا انا لا افهم المطلوب بالتحديد .. ولكن عسى ان يكون المرفق التالى هو المطلوب

 

 

TEST برنامج ادارة التدريب.rar

[fantap]

 ان امكن ذلك ممكن عمل هذه التغيرات علي هذه القاعده من فضلك 

حيث عندما اضفت الاكواد لم تعمل القاعده بالشكل الصحيح  و لا تظهر شاشة ادخال المتدربين حيث القاعدة التي قمت برفعها TEST مرفق معها التعديلات المطلوبة

شكرا لك

 

برنامج ادارة التدريب.mdb

تم تعديل أغسطس 19, 2018 بواسطه fantap