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

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

لدي برنامج وضعت فيه خانة رقم الهوية الرئيسي (textbox) ووضعت فيه خانه اخري التابعين (textbox)

المطلوب

لو قمت ووضعت رقم هوية احد التابعين في خانة التابع وتم الحفظ

وبعد وقت اريد ان اضيف التابع في خانه رقم الهوية  الرئيسي 

اذا قمت وادخلت هوية التابع في الرئيسي 

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

قاعدة البيانات اكسس

اتمني وصلت الفكرة 

هذا الكود للحفظ واضهار رساله اذا كان الرقم موجود مسبقا في الرئيسي فقط 

كود :

If connAccess2005.State = ConnectionState.Closed Then connAccess2005.Open()
       Dim cmd As New OleDbCommand("SELECT COUNT([idr]) FROM [tan]  WHERE [idr]=? ", connAccess2005)
       cmd.Parameters.AddWithValue("@", Val(txtidr.Text))
       If cmd.ExecuteScalar > 0 Then
           MsgBox("رقم الهوية مضاف مسبقا!", MsgBoxStyle.Exclamation, "تنبية!")
           Return

       End If
       Try
           Dim cmdinsert As New OleDbCommand("insert into tan (idr, idt ) values ('" & txtidr.Text & "','" & txtidt.Text & "')")
           cmdinsert.Connection = connAccess2005
           cmdinsert.ExecuteNonQuery()
       
   MsgBox("تم حفظ البيانات بنجاح")

 Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
        connAccess2005.Close()