[محمد خيري]

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

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using cmd As OleDbCommand = New OleDbCommand()
           cmd.Connection = con
           If con.State = ConnectionState.Closed Then con.Open()
           cmd.CommandText = "Delete From Table1 where [Name1]='" & TextBox2.Text.Trim & "' And [Name1] in (Select Name2 From Table2 where Sum1=0 and Sum2=0)"
           cmd.ExecuteNonQuery()
       End Using
       MessageBox.Show("تمت عملية حذف البيانات بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
       If con.State = ConnectionState.Open Then con.Close()
   End Sub