تنفيذ أمر لزر معين من خلال زر آخر في نفس النموذج او في نموذج آخر

[sweety]

السلام عليكم

 

في قاعدة البيانات المرفقة.. أريد عند الضغط على زر B يقوم بتشغيل الأمر في الزر A كما لو إننا ضغطنا على الزر A مباشرة، هذا المثال في مالو كان الزر في نفس النموذج..، وما سيكون الكود فيما لو كان الزر في نموذج آخر؟

 

مع جزيل الشكر

Run Button Command.rar

[ابو جودي]

17 دقائق مضت, sweety said:

السلام عليكم

 

في قاعدة البيانات المرفقة.. أريد عند الضغط على زر B يقوم بتشغيل الأمر في الزر A كما لو إننا ضغطنا على الزر A مباشرة، هذا المثال في مالو كان الزر في نفس النموذج..، وما سيكون الكود فيما لو كان الزر في نموذج آخر؟

 

مع جزيل الشكر

Run Button Command.rar

اتفضل ان شاء الله يكون ده طلبك 

Run Button Command _ UP.rar

[Amr Ashraf]

2 دقائق مضت, ابا جودى said:

اتفضل ان شاء الله يكون ده طلبك 

Run Button Command _ UP.rar

ماشاء الله سبقتنى كنت برفعها :) جزاك الله خير

[ابو جودي]

3 دقائق مضت, Amr Ashraf said:

ماشاء الله سبقتنى كنت برفعها :) جزاك الله خير

اخى الحبيب @Amr Ashraf ارفع مرفقك قد يكون فيه جديد عن مرفقى فاتعلم انا منك  وادعو لك 
واسال الله تعالى ان يجعلكم سباقون الى الخير دائما وابدا 

تم تعديل مايو 2, 2017 بواسطه ابا جودى

[jjafferr]

وعليكم السلام

 

تفضلي أختي:

الزر موجود في النموذج Form1 ،

اولا تأكدي ان تغير الحدث من Private الى Public 

Public Sub cmd_A_Click()

    MsgBox "Run A"
End Sub

 

ثم من اي مكان او اي نموذج ، ناديه هكذا:

Call Form_Form1.cmd_A_Click

 

جعفر

[Amr Ashraf]

الان, ابا جودى said:

اخى الحبيب @Amr Ashraf ارفع مرفقك قد يكون فيه جديد عن مرفقى فاتعلم انا منك  وادعو لك 
واسال الله تعالى ان يجعلكم سابقون الى الخير دائما وابدا 

هوا بالظبط نفس الطريقة الاختلاف فى المسميات فقط وبعدين تتعلم من مين انتا استاذنا اما انا مبتدئ وحبيت اشارك معلومة :) 

[ابو جودي]

الان, Amr Ashraf said:

هوا بالظبط نفس الطريقة الاختلاف فى المسميات فقط وبعدين تتعلم من مين انتا استاذنا اما انا مبتدئ وحبيت اشارك معلومة :) 

 

انا طالب علم وهانا تعلمت معلومه جديدة من استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr  

1 دقيقه مضت, jjafferr said:

وعليكم السلام

 

تفضلي أختي:

الزر موجود في النموذج Form1 ،

اولا تأكدي ان تغير الحدث من Private الى Public 

Public Sub cmd_A_Click()

    MsgBox "Run A"
End Sub

 

ثم من اي مكان او اي نموذج ، ناديه هكذا:

Call Form_Form1.cmd_A_Click

 

جعفر

اسال الله تعالى لكم الخير كله
واسال الله تعالى لكم البركة فى العمر والعلم والعمل والاهل والولد وان يغفر لكم ولوالديكم ولكل المسلمين  ان شاء الله

 

التعديل والتطبيق على المرفق بلمسات ساحر الاكسس 
الاستاذ @jjafferr

 

 

Run Button Command _ up_by_ mr jjafferr .rar

اسألكم الدعاء بظهر الغيب لوالدتى 

[sweety]

السلام عليكم

أشكركم جميعاً على إطروحاتكم وأفكاركم القيمة...

 

لقد حاولت أن أنفذ المثال الذي طرحه الأخ جعفر وذلك من خلال نموذج قائمة والمعروف بـ Navigation form، إلا أنه لم يعمل معي.

في الملف المرفق مثال أرجو التعديل عليه إن أمكن ومع جزيل الشكر.

Run Button Command-N.rar

[jjafferr]

وعليكم السلام

 

33 دقائق مضت, sweety said:

لقد حاولت أن أنفذ المثال الذي طرحه الأخ جعفر وذلك من خلال نموذج قائمة والمعروف بـ Navigation form، إلا أنه لم يعمل معي.

 

هذا لأنك لم تتبعي الخطوات التي شرحتها لك

لقد ظلّلتها لك باللون الاحمر هنا:

في 5/3/2017 at 00:47, jjafferr said:

الزر موجود في النموذج Form1 ،

اولا تأكدي ان تغير الحدث من Private الى Public 

Public Sub cmd_A_Click()

    MsgBox "Run A"
End Sub

ثم من اي مكان او اي نموذج ، ناديه هكذا:

Call Form_Form1.cmd_A_Click

 

 

تم تعديل مايو 5, 2017 بواسطه jjafferr

[sweety]

أنت على حق أستاذ جعفر

 

تم بنجاح

شكراً لك

[sandanet]

في ٢‏/٥‏/٢٠١٧ at 22:51, ابا جودى said:

ساحر الاكسس

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

[kajin.tha60]

عفوا لعادة فتح الموضوع : يوجد ملف اكسس لا اعرف كيفية استخدامه

 

Run Button Command-K.rar

تم تعديل أبريل 1, 2020 بواسطه kajin.tha60
توضيح

[أبوبسمله]

37 دقائق مضت, kajin.tha60 said:

عفوا لعادة فتح الموضوع : يوجد ملف اكسس لا اعرف كيفية استخدامه

 

Run Button Command-K.rar 49.83 kB · 0 تنزيلات

بعتذر لم ار الشرح بالاعلى لاخوانى واساتذتى الافاضل جزاهم الله خيرا

وكل شىء مشروح بالاعلى اخى الفاضل شرح وافى

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

تم تعديل الكود التالى

Private Sub Command0_Click()
MsgBox " تم اضهار رسالة من فورم الرئيسي "
End Sub

الى

Sub Command0_Click()
MsgBox " تم اضهار رسالة من فورم الرئيسي "
End Sub

وهى تساوى

Public Sub Command0_Click()
MsgBox " تم اضهار رسالة من فورم الرئيسي "
End Sub

بالتوفيق اخى

Run Button Command-K.rar

تم تعديل أبريل 1, 2020 بواسطه أحمد الفلاحجى

[kajin.tha60]

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