[خالد كامل1]

حياك الله اخى ابو انس الكريم الكود تمام ولكن ظهرت لى مشكله اخرى اربده ان وجد المريض فى جدول المرضى اريده ان يضيف 1 على عدد الزيارات  فاستعملت هذا الكود ولكن يعطينى البيانات غير متطابقه جعلت حقل عدد الزيارات مره نص ومره رقم ولكن المشكله قائمه

كود :

Sub add_kashf()
       Dim cmdmaden As New OleDbCommand

       Dim kashf_number_a As String = kashf_number.Text
       With cmdmaden
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = " Update sik_a set SIK_KASHF_NUMBER= SIK_KASHF_NUMBER +" & Val(kashf_number.Text) & "  where sik_phone =" & SIK_PHONE.Text & ""
       End With
       If con.State = 1 Then con.Close()
       con.Open()
       cmdmaden.ExecuteNonQuery()
       con.Close()

   End Sub