فتح تبويب من خلال زر فى تبويب اخر

[jo_2010]

استاذتى الافاضل

بعد التحية اليكم نموذج بسيط للتعديل علية اريد من سيادتكم مساعدتى 

1- فتح تبويب معين من خلال زر فى تبويب اخر لنفس النموذج

2-فتح نموذج جديد محددعلى تبويب محدد

HR_Update.accdb

[kha9009lid]

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

Form_general.زر_التنقل7.SetFocus
SendKeys "{Enter}"

اولا نقلنا التركيز للتبويب

ثانيا ارسلنا امر انتر لفتح التبويب

الملف مرفق

 

 

HR_Update.accdb

تم تعديل فبراير 26, 2020 بواسطه kha9009lid

[jo_2010]

استاذى kha9009lid

خالص الشكر على الحلول التى تقدمها لى شكرا خالص ياعبقرى

وسؤال على الماشى هل يمكن التعامل مع (عنصر تحكم علامة الجدولة ) الموجود فى ادوات التصميم 

بنفس طريقة التعامل مع تبويبات النموذج اكرر شكرى يالستاذنا الجليل

[kha9009lid]

نعم ممكن ذلك

[jo_2010]

استاذى الفاضل kha9009lid

هل تكون بنفس الكود السابق ام ان لها كود منفصل خالص الشكر للاهنمام والرد

[kha9009lid]

Form_ff.صفحة1.SetFocus

نفس الكود السابق وبدون الحاجة الى ارسال امر مفتاح enter

[kha9009lid]

استاذ @jo_2010

عندما نرغب في تنفيذ زر امر من خلال زر اخر فلدينا عدة طرق

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

Command18_Click

Command18 هو زر الامر المراد تشغيلة

الطريقة الثانية

Call Command18_Click

اما اذا كان الامر المراد تنفيذ في نموذج رئيسي ونرغب في تنفيذة من نموذج فرعي او العكس

Form_invoices2.Command18.SetFocus
SendKeys "{Enter}"

وهنا نقلنا التركيز لزر الامر ثم ارسلنا امر انتر

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

فيمكن ولكن بعد اجراء تغيير على زر الامر ليكون عام وليس خاص

تغيير زر الامر من
Private Sub Command18_Click()
الى 
Public Sub Command18_Click()

ثم يكون الكود على النحو التالي

Call Form_invoices2.Command18_Click

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

[jo_2010]

 اخى الفاضل ومعلمى الجليل  kha9009lid

مااكرمك اعطيتنى اكثر مما طلبت كثر الف خيرك ولكن طلب اخير بسيط بالنسبة لعلمك الغزير 

هذا الكود يعمل فى نفس النموذج 

Form_ff.صفحة1.SetFocus

ولكن عند فتح نموذج على صفحة معينة  من نموذج اخر  لايعمل اعرف انى اثقلت عليك سامحنى

ندما نرغب في تنفيذ زر امر من خلال زر اخر فلدينا عدة طرق

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

Command18_Click

واذا كان كل زر فى نموذج مختلف كيف يكون الكود 

form1 ,form2 ,واسم الزر lab موجود فى form1  واريد تشغيلة من زر JO فى form  2 خالص الشكر على ماتقدمة من علم بارك الله فيك 

 

 

هذة الاكواد غير مفهومة بالنسبة لمستخدم بسيط مثلى هل من الممكن عمل مثال بسيط  لتنفيذ الاوامر علية

 

تغيير زر الامر من
Private Sub Command18_Click()
الى 
Public Sub Command18_Click()

ثم يكون الكود على النحو التالي

Call Form_invoices2.Command18_Click

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

تم تعديل فبراير 26, 2020 بواسطه jo_2010