[ahmadpal]

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

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

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

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

 Dim foorm2 As New form1

        foorm2.MdiParent = home

       () foorm2.Show



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

[ahmadpal]

  لماذا لا يوجد اجابة على سؤالي

[elgokr]

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

مرحباً اخى ahmadpal

اعزر فليس الجمجيع متواجد هنا دائماً

بخصوص سؤالك حتى تقوم بحل المشكلة

اجعل كود اللود الموجود فى الفروم المطلوب فتحه

ان يكون فى كود حدث الزر الخاص بفورم home

وان يكون الكود اعلى 

كود :

foorm2.Show()

بكده كل مرة تقوم بفتح الفورم سيقوم بتطبيق الكود اللود

الموجود فى الزر طبقاً لما قمت انت بكتابته

فمثلاً فى الزر الاول كمثال

كود :

Me.Text = "Add"

وفى الزر الثاني كمثال

كود :

Me.Text = "Edit"

وتذكر ان يكون اعلى 

كود :

foorm2.Show()

تحياتى لك

وتمنياتى لك التوفيق

[ahmadpal]

اخي elgokr شكراً جزيلا لك على اهتمامك والرد على الاستفسار الخاص بي ولكن انا استخدم هنا خاصية MdiParent  يعني اريد ان يظهر الفورم داخل الكونتينر كيف يمكنني استدعاء كود من داخل الموديول ليعمل داخل الفورم عند الضغط على زر في الhome
واعذرني على اسلوبي ان كنت قد اخطأت وتقبل مني فائق الاحترام والتقدير

[elgokr]

مرفق مثال مصغر يوضح يفية اتمام المطلوب

تم انشاء فورم 1  خلاف الرئيسي كما تم انشاء عدد 3 زر

[اضافة - تعديل - حذف ]

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

اذا كان زر اضافة فيصبح الفورم اضافة واذا كان تعديل فيصبح الفورم بعنوان تعديل

مرفق السورس + برنامج لاختبار والمعينة

السورس (2015)

الاكواد المستخدمة فى الفورم

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim F2 As New Form2
       F2.MdiParent = Me

       F2.Text = "Add"
       F2.Show()
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim F2 As New Form2
       F2.MdiParent = Me

       F2.Text = "Edit"
       F2.Show()
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Dim F2 As New Form2
       F2.MdiParent = Me

       F2.Text = "Delete"
       F2.Show()
   End Sub

فى خصائص الفورم الرئيسى Form1

تم تعديل الخيار

كود :

IsMdiContainer = True

حتى لا يتم خروج الفروم الفرعية خارج الفورم الرئيسي

تحياتى لك

وتمنياتى لك التوفيق

[ahmadpal]

اشكرك اخي جزيل الشكر واتمنى من الله تعالى ان ارد لك هذا الجميل وشكرا على وقتك الثمين الذي اهديتني اياه وعلى المجهود الذي قمت به 
لكن يبدو انني لا زلت اعاني من نفس المشكلة في الكود حيث اني قمت برفع نفس السورس الخاص بك واضفت عليه قاعدة بيانات اكسس وجدول واحد تجريبي 
بحيث حين اقوم بأي حدث على الفورم يقوم بالتغيير في جميع الفورمات 
مرة اخرى اشكر لك اهتمامك واعذرني ان كنت قد تسببت لك بمشاكل 
رابط السوركود مرفوع على الميديا فير
http://www.mediafire.com/file/f513pp38dq...m.rar/file