منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
فتح فورم من فورم ثان بناء على شرط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : فتح فورم من فورم ثان بناء على شرط (/showthread.php?tid=50829)



فتح فورم من فورم ثان بناء على شرط - مصمم هاوي - 24-12-24

عندي فورم يوجد به فليكس قريد يحتوي على بيانات
وعند اختيار بيان من الفليكس قريد يتم اظهار البيانات المختارة في التكستات في فورم ثان وهذا كله تمام لا مشكلة فيه.
المشكلة عندي في الانتقال للفورم الثاني عند الضغط على الفليكس قريد حتى مع عدم وجود بيانات في الجدول.

السؤال: أريد عدم عرض الفورم الثاني أو الانتقال إليه عند التقر على الجدول الموجود في للفورم الأول  إذا لم توجد فيه بيانات أو لم يتم اختيار بيان محدد ....
لأنني بصراحة أشكل على الأمر فعندما أنقر على الجدول ينتقل إلى الفورم الأول وبالتالي تكون التكستات فارغة ...

أتمنى أنني وفقت في الشرح
مع العلم أنها مشكلة صغيرة لكن يبدو أنني نسيت الفيجوال 6 بعد أن تركتها لمدة ليست قصيرة.

وعذرا أنا أكتب من الجوال ولهذا لا أحسن كتابة الأكواد من خلاله


RE: فتح فورم من فورم ثان بناء على شرط - Taha Okla - 24-12-24

أكثر من طريقة وأكثر من  كود ..
كود :
Private Sub MSFlexGrid1_Click()
   If MSFlexGrid1.Rows <= 1 Then Exit Sub          '  بحسب عدد الاسطر
   If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) <> "" Then Form2.Show  ' بحسب وجود بيانات عل الخلية التي تضغط عليها
End Sub

يمكنك فعلها بحسب رقم العمود، أو رقم السجل.  أو نوع البيانات التي فيه..
كل حدث وله كود يناسبه ..


RE: فتح فورم من فورم ثان بناء على شرط - مصمم هاوي - 24-12-24

(24-12-24, 11:01 AM)Taha Okla كتب : أكثر من طريقة وأكثر من  كود ..
كود :
Private Sub MSFlexGrid1_Click()
   If MSFlexGrid1.Rows <= 1 Then Exit Sub          '  بحسب عدد الاسطر
   If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) <> "" Then Form2.Show  ' بحسب وجود بيانات عل الخلية التي تضغط عليها
End Sub

يمكنك فعلها بحسب رقم العمود، أو رقم السجل.  أو نوع البيانات التي فيه..
كل حدث وله كود يناسبه ..

بارك الله فيك أستاذ طه فقد عدلت على الكود الذي استخدمه ومشى تمام 100 ٪