[مبرمج صغير 1]

لدي قاعدة بيانات باسم data مكونه من ثلاث جداول 

جدول tan (المراجعين)

وجدول mtl (الحوادث)

وجدول aml (المخالفات)

الشرح كالتالي اللي ابيه

انا اضفت بيانات عندي في جدول الحوادث وجدول المخالفات

لو قمت وادخلت الهوية الخاصه بالشخص في جدول المراجعين ابيه يظهر لي رساله مراجعه القسم اللي طالبه والموجوده فيه بياناته الحوادث او المخالفات

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

 الحوادث اذا لم يكن موجود مواصله ادخال الشخص مراجع عادي بجدول المراجعين

هذا الكود وشغال معاى

كود :

Try
           If connAccess999.State = ConnectionState.Closed Then connAccess999.Open()

           Dim cmd As New OleDbCommand("SELECT COUNT([id_mtl]) FROM [mtl]  WHERE [id_mtl]=? ", connAccess999)
           cmd.Parameters.AddWithValue("@", Val(id_mr.Text))
           If cmd.ExecuteScalar > 0 Then

           End If
           MsgBox("الشخص مطلوب لقسم الحوادث!", MsgBoxStyle.Exclamation, "تنبية!")

           Return


           Dim arrImage() As Byte
           Dim myMs As New IO.MemoryStream
           If Not IsNothing(pic_mr.Image) Then
               pic_mr.Image.Save(myMs, pic_mr.Image.RawFormat)
               arrImage = myMs.GetBuffer
           Else
               arrImage = Nothing
           End If

           time_mr.Text = Format(Date.Today, "dd/MM/yyyy")
           sad_mr.Text = TimeOfDay
           Dim cmdinsert As New OleDbCommand("insert into tan (name_mr, id_mr,jn_mr,num_mr,jeh_mr,time_mr,sad_mr,pic_mr) values (?,?,?,?,?,?,?,?)")
           cmdinsert.Parameters.AddWithValue("@", name_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", Val(id_mr.Text))
           cmdinsert.Parameters.AddWithValue("@", jn_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", num_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", jeh_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", time_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", sad_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", arrImage)
           cmdinsert.Connection = connAccess999
           cmdinsert.ExecuteNonQuery()
           MsgBox("تم حفظ البيانات بنجاح")
           name_mr.Clear()
           id_mr.Clear()
           jn_mr.Clear()
           num_mr.Clear()
           jeh_mr.Clear()
           time_mr.Clear()
           sad_mr.Clear()
           pic_mr.Image = Nothing
       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try

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

هذا الكود

 

كود :

Try
           If connAccess999.State = ConnectionState.Closed Then connAccess999.Open()

           Dim cmd As New OleDbCommand("SELECT COUNT([id_mtl]) FROM [mtl]  WHERE [id_mtl]=? ", connAccess999)
           cmd.Parameters.AddWithValue("@", Val(id_mr.Text))
           If cmd.ExecuteScalar > 0 Then

           End If
           MsgBox("الشخص مطلوب لقسم الحوادث!", MsgBoxStyle.Exclamation, "تنبية!")

           Dim cmmd As New OleDbCommand("SELECT COUNT([id_aml]) FROM [aml]  WHERE [id_aml]=? ", connAccess999)
           cmmd.Parameters.AddWithValue("@", Val(id_mr.Text))
           If cmmd.ExecuteScalar > 0 Then

           End If
           MsgBox("الشخص مطلوب لقسم المخالفات!", MsgBoxStyle.Exclamation, "تنبية!")
           Return


           Dim arrImage() As Byte
           Dim myMs As New IO.MemoryStream
           If Not IsNothing(pic_mr.Image) Then
               pic_mr.Image.Save(myMs, pic_mr.Image.RawFormat)
               arrImage = myMs.GetBuffer
           Else
               arrImage = Nothing
           End If

           time_mr.Text = Format(Date.Today, "dd/MM/yyyy")
           sad_mr.Text = TimeOfDay
           Dim cmdinsert As New OleDbCommand("insert into tan (name_mr, id_mr,jn_mr,num_mr,jeh_mr,time_mr,sad_mr,pic_mr) values (?,?,?,?,?,?,?,?)")
           cmdinsert.Parameters.AddWithValue("@", name_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", Val(id_mr.Text))
           cmdinsert.Parameters.AddWithValue("@", jn_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", num_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", jeh_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", time_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", sad_mr.Text)
           cmdinsert.Parameters.AddWithValue("@", arrImage)
           cmdinsert.Connection = connAccess999
           cmdinsert.ExecuteNonQuery()
           MsgBox("تم حفظ البيانات بنجاح")
           name_mr.Clear()
           id_mr.Clear()
           jn_mr.Clear()
           num_mr.Clear()
           jeh_mr.Clear()
           time_mr.Clear()
           sad_mr.Clear()
           pic_mr.Image = Nothing
       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try

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

ثم تظهر رساله ثانية مباشره مطلوب في قسم المخالفات علما انه ليس مضاف مطلوب في قسم المخالفات 

اريد الكود يتحقق من الجدولين اذا موجود في احد الجداول اظهر رساله مطلوب في القسم ............... (القسم اللي مطلوب فيه سواء الحوادث او المخالفات )

تم ارفاق مثال للتعديل عليه