[danti]

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

رمضان مبارك علينا وعليكم وكل عام وانتم بخير 

كيف الحال يا أعضاء المنتدى؟

عندي سؤال أو استفسار

هذا الكود:
عند الضغط على زر ( تعديل بيانات الزائر ) - كما في الصورة -  عند صحة الشرط تظهر رسالة.. وعند الضغط على موافق تختفي الرسالة ويعود لنفس الفورم ( تعديل بيانات الزائر )، (ممتاز).

كود :

Private Sub Btn_Edit_Click(sender As Object, e As EventArgs) Handles Btn_Edit.Click
       If Txt_Vis_Name.Text = "" Then
           MsgBox("الرجاء إدخال اسم الزائر")
           Txt_Vis_Name.Focus()
           Exit Sub
       End If
   End Sub

110011.jpg - MediaFire



وهذا الكود نفس الأول مع اختلاف بسيط:
ولكن عند الضغط على موافق تختفي الرسالة ويختفي الفورم أيضاً...!!!

كود :

Private Sub Btn_Banned_Click(sender As Object, e As EventArgs) Handles Btn_Banned.Click
       If Txt_File_Num.Text = "" Then
           MsgBox("لا بد من وجود رقم ملف المريض لفتح قائمة المنع والسماح")
           Txt_File_Num.Focus()
           Exit Sub
       End If
   End Sub

110022.jpg - MediaFire

لا أدري ما هو السبب؟؟!!