[Emam emam]

السلام عليكم اخوتي
بارك الله فيكم جميعا علي مساعدتكم
ربنا يجعله في ميزان حسناتكم جميعا ان شاء الله
عندي سؤال ارجو من الله ان اجد الاجابه
عندي برنامج تحاليل طبيه بقاعدة بيانات اكسيس 2017
اقوم بتسجيل بيانات المريض والتحاليل المطلوبه له ويقوم البرنامج بحفظ البيانات في جدول والتحاليل المطلوبه في جدول اخر
ثم اذا اردت تعديل بيانات المريض او اردت تعديل التحاليل المطلوبه له يقوم البرنامج بعرض بيانات المريض المحدد في فورم التعديل ويتم عرض تحاليل المريض في ليست فيو
وعند التعديل علي التحاليل المطلوبه اللي هي في الليست فيو ثم الضغط علي تعديل يتم التعديل بطريقه صحيحه
ولكن المشكله تظهر عندما اقوم بالضغط علي زر التعديل ولم اقوم بالتعديل علي التحاليل في الليست فيو فيظهر خطأ 
يعني علشان يعمل تعديل بشكل صحيح لازم اعدل علي البيانات الي موجوده في الليست فيو 
اتمني ان اكون وصلت المطلوب كويس وارجو ان اجد حل لهذه المشكله ان شاء الله
مرفق صورة للخطأ اللي بيظهر لي 
   

ده الكود المستخدم في عملية التعديل

PHP كود :

Dim update_Analysis As String 
update_Analysis = "Insert into Analysis_Table (Patient_Code,RegistrationDate,ResultDate,PatientTitle,
                                      PatientName,DoctorTitle,DoctorName,Age,Years,Sex,GroupName,Analysis_Name,Analysis_Price,Rigesterd)
                                      values(@Patient_Code,@RegistrationDate,@ResultDate,@PatientTitle,@PatientName,
                                      @DoctorTitle,@DoctorName,@Age,@Years,@Sex,@GroupName,@Analysis_Name,@Analysis_Price,@Rigesterd)"
                        For i As Integer = 0 To ListView1.Items.Count - 1
                            Analysis_Name = ListView1.Items(i).SubItems(0).Text
                            Analysis_Price = ListView1.Items(i).SubItems(1).Text
                            GroupName = ListView1.Items(i).SubItems(3).Text
                            Dim cmd = New OleDbCommand(update_Analysis, connAccess2007)
                            cmd.Parameters.Add(New OleDbParameter("@Patient_Code", OleDbType.Integer)).Value = LblCode.Text
                            cmd.Parameters.Add(New OleDbParameter("@RegistrationDate", OleDbType.Date)).Value = DateTimePicker1.Text
                            cmd.Parameters.Add(New OleDbParameter("@ResultDate", OleDbType.Date)).Value = DateTimePicker2.Text
                            cmd.Parameters.Add(New OleDbParameter("@PatientTitle", OleDbType.VarChar)).Value = ComboBox1.Text
                            cmd.Parameters.Add(New OleDbParameter("@PatientName", OleDbType.VarChar)).Value = TextBox10.Text
                            cmd.Parameters.Add(New OleDbParameter("@DoctorTitle", OleDbType.VarChar)).Value = ComboBox3.Text
                            cmd.Parameters.Add(New OleDbParameter("@DoctorName", OleDbType.VarChar)).Value = ComboBox4.Text
                            cmd.Parameters.Add(New OleDbParameter("@Age", OleDbType.VarChar)).Value = TextBox1.Text
                            cmd.Parameters.Add(New OleDbParameter("@Years", OleDbType.VarChar)).Value = ComboBox5.Text
                            cmd.Parameters.Add(New OleDbParameter("@Sex", OleDbType.VarChar)).Value = ComboBox6.Text
                            cmd.Parameters.Add(New OleDbParameter("@GroupName", OleDbType.VarChar)).Value = GroupName
                            cmd.Parameters.Add(New OleDbParameter("@Analysis_Name", OleDbType.VarChar)).Value = Analysis_Name
                            cmd.Parameters.Add(New OleDbParameter("@Analysis_Price", OleDbType.Double)).Value = Analysis_Price
                            cmd.Parameters.Add(New OleDbParameter("@Rigesterd", OleDbType.Boolean)).Value = CheckBox2.Checked
                            If connAccess2007.State = 1 Then connAccess2007.Close()
                            connAccess2007.Open()
                            cmd.ExecuteNonQuery()
                            connAccess2007.Close()
                        Next