[محمد خيري]

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

كود :

       If MsgBox("هل انت متأكد من عملية حذف السجل : " & TextBox2.Text, MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "") = MsgBoxResult.Yes Then
           Using cmd As OleDbCommand = New OleDbCommand("Delete From Table1 where [Name1]='" & TextBox2.Text.Trim & "' and [Name1] in (Select Name2 From Table2 where Sum1=0 and Sum2=0) ", con)
               If con.State = ConnectionState.Closed Then con.Open()
               If (cmd.ExecuteNonQuery()) > 0 Then
                   MessageBox.Show("تمت عملية حذف البيانات بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Else
                   MessageBox.Show("لا يمكن حذف هذ السجل لارتباطه بقيم السجل الثاني", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
               End If
               Form1_Load(Nothing, Nothing)
           End Using
       End If