بس بغيت اعرف وين المشكلة بهذا الكود؟؟
Dim Savecommand As New OleDb.OleDbCommand
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text
Savecommand.CommandText = "UPDATE Focus SET Receipt_No = '" & TextBox2.Text & "', Cus_name = '" & TextBox3.Text & "', Address = '" & TextBox7.Text & "', [Date] = '" & TextBox5.Text & "',Price = '" & TextBox6.Text & "', FArea_no = " & ComboBox1.SelectedValue & " WHERE [Number]=" & Val(TextBox1.Text)
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("تمت عملية الاضافة في قاعدة البيانات بنجاح")
Me.Close()
Form1.fillSubject()
ياريت تساعدوني بأسرع وقت ..