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

[rooz]

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

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

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

[rooz]

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

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

Private Sub Combo3_AfterUpdate()

End Sub

 

[AlwaZeeR]

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

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

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

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

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

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

::

تحياتي

[rooz]

  في 11‏/1‏/2018 at 14:33, alwazeer said:

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

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

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

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

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

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

::

تحياتي

Expand  

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

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

[Shivan Rekany]

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

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

DoCmd.GoToRecord acDataForm, "NameForForm", acNext

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

DoCmd.GoToRecord acDataForm, , acNext

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

ورابعا : 

  في 11‏/1‏/2018 at 15:55, rooz said:

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

Expand  

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

خامسا : 

  في 11‏/1‏/2018 at 15:55, rooz said:

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

Expand  

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

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

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

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

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

تقبل تحياتي 

شفان ريكاني

[rooz]

  في 11‏/1‏/2018 at 16:32, Shivan Rekany said:

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

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

DoCmd.GoToRecord acDataForm, "NameForForm", acNext

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

DoCmd.GoToRecord acDataForm, , acNext

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

ورابعا : 

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

خامسا : 

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

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

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

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

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

تقبل تحياتي 

شفان ريكاني

Expand  

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

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]

  في 11‏/1‏/2018 at 18:14, jjafferr said:

اخي rooz ، واخي alwazeer

 

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

 

جعفر

Expand  

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

[jjafferr]