كتابة الكود التالي

[rooz]

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

في الصورة المرفقة كود بحث عن سجل  عن طريق ((الكود المضمن ))ويعمل ما فيه اي مشكلة 

المطلوب كتابة الكود عن طريق (( اجراء حدث )) بدل الكود المضمن وشكرا لكم 

[rooz]

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

ارغب كتابته عن طريق منشئ التعليمات البرمجية مثل التالي وشكرا لكم 

Private Sub Combo3_AfterUpdate()

End Sub

 

[AlwaZeeR]

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

بما ان المايكرو لديك يعمل بشكل صحيح

قم بتحويله بنفسك وذلك كالتالي:

افتح المايكرو المحدد في وضع التصميم

سيظهر لك خيار في الاعلى تحويل المايكرو الى فيجول بيسك

اضغط عليه وسوف يتم تحويله 

::

تحياتي

[rooz]

الان, alwazeer said:

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

بما ان المايكرو لديك يعمل بشكل صحيح

قم بتحويله بنفسك وذلك كالتالي:

افتح المايكرو المحدد في وضع التصميم

سيظهر لك خيار في الاعلى تحويل المايكرو الى فيجول بيسك

اضغط عليه وسوف يتم تحويله 

::

تحياتي

لا يمكن  اختيار الخيار المشار عليه باللون الاصفر لانه غير مفعل

يعني الموضوع مستحيل ما احد يقدر يكتب هذا الكود ؟؟؟؟؟؟؟؟؟؟

[Shivan Kurdi - شڤان کوردی]

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

ثانيا : عنوان نموضوعك هو ( كتابة الكود التالي )

DoCmd.GoToRecord acDataForm, "NameForForm", acNext

"NameForForm" هو اسم النموذج ... وتقدر ان لا تكتب اسم النموذج هكذا

DoCmd.GoToRecord acDataForm, , acNext

ثالثا اذا تريد شيء اولا يجب عليك ان تبحث في المنتدى واذا ما وجدت طلبك نحن بخدمتك ان شاء الله

ورابعا : 

11 ساعات مضت, rooz said:

لا يمكن  اختيار الخيار المشار عليه باللون الاصفر لانه غير مفعل

افتح الماكرو في وضع التصميم و اعمل تحديد الكل بواسطة زرين كنترول مع حرف A وبعدين اعمل كوبي و افتح ماكرو جديد والصقه وبعدين تقدر تتغير ماكرو الى كود برمجي

خامسا : 

11 ساعات مضت, rooz said:

يعني الموضوع مستحيل ما احد يقدر يكتب هذا الكود ؟؟؟؟؟؟؟؟؟؟

نعم لا نقدر ان نعمل شيء ... كان يجب عليك ان ترفع نسخة مصغرة من قاعدتك مع الكود لكي تحصل الجواب في اسرع وقت ممكن

نحن نعرف ان فهم السؤال هو نصف الجواب لكن بعد انا لا افهم سؤالك جيداً ماذا تريد بالضبط هل تريد بحث عن سجل ام تريد كود لسجل التالي ام تريد ان تتغير ماكرو عندك الى كود برمجي

وكلنا هنا نخدمكم في سبيل الله و هذا فخر لنا لكن كلنا عندهم اشغال اخرى يجب ان نعمله 

نحن بخدمتكم ان شاء الله

اذا ما وصلت الى الحل المطلوب وضح سؤالك جيدا و ارفق نسخة مصغرة من قاعدتك

تقبل تحياتي 

شفان ريكاني

[rooz]

الان, Shivan Rekany said:

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

ثانيا : عنوان نموضوعك هو ( كتابة الكود التالي )

DoCmd.GoToRecord acDataForm, "NameForForm", acNext

"NameForForm" هو اسم النموذج ... وتقدر ان لا تكتب اسم النموذج هكذا

DoCmd.GoToRecord acDataForm, , acNext

ثالثا اذا تريد شيء اولا يجب عليك ان تبحث في المنتدى واذا ما وجدت طلبك نحن بخدمتك ان شاء الله

ورابعا : 

افتح الماكرو في وضع التصميم و اعمل تحديد الكل بواسطة زرين كنترول مع حرف A وبعدين اعمل كوبي و افتح ماكرو جديد والصقه وبعدين تقدر تتغير ماكرو الى كود برمجي

خامسا : 

نعم لا نقدر ان نعمل شيء ... كان يجب عليك ان ترفع نسخة مصغرة من قاعدتك مع الكود لكي تحصل الجواب في اسرع وقت ممكن

نحن نعرف ان فهم السؤال هو نصف الجواب لكن بعد انا لا افهم سؤالك جيداً ماذا تريد بالضبط هل تريد بحث عن سجل ام تريد كود لسجل التالي ام تريد ان تتغير ماكرو عندك الى كود برمجي

وكلنا هنا نخدمكم في سبيل الله و هذا فخر لنا لكن كلنا عندهم اشغال اخرى يجب ان نعمله 

نحن بخدمتكم ان شاء الله

اذا ما وصلت الى الحل المطلوب وضح سؤالك جيدا و ارفق نسخة مصغرة من قاعدتك

تقبل تحياتي 

شفان ريكاني

مرفق مثال اتمنى اجد الحل

hhhh.rar

[jjafferr]

ومثل ما قال اخي الوزير ، وضغطت على الزر ، وطلع لي هذا الكود

'------------------------------------------------------------
' Combo3_AfterUpdate
'
'------------------------------------------------------------
Private Sub Combo3_AfterUpdate()
On Error GoTo Combo3_AfterUpdate_Err

    DoCmd.SearchForRecord , "", acFirst, "[رقم الموظف] = " & Str(Nz(Screen.ActiveControl, 0))


Combo3_AfterUpdate_Exit:
    Exit Sub

Combo3_AfterUpdate_Err:
    MsgBox Error$
    Resume Combo3_AfterUpdate_Exit

End Sub

 

جعفر

[jjafferr]

اخي rooz ، واخي alwazeer

 

شكرا على ابداء آرائكم ، ولننتقل للسؤال التالي

 

جعفر

[rooz]

الان, jjafferr said:

اخي rooz ، واخي alwazeer

 

شكرا على ابداء آرائكم ، ولننتقل للسؤال التالي

 

جعفر

حبيبي جعفر وشكرا لك تمت الاجابة

[jjafferr]