[strongriseman]

الحل باختصار
تعمل بحث بدلالة رقم الحساب مثلا فان كان موجود يعمل update واذا ما كانش موجود يعمل save

كود كمثال

Dim cmd As New SqlClient.SqlCommand
Dim DR_farey As SqlClient.SqlDataReader
Dim MySqlSreach As String
MySqlSreach = "Select num,name,adress,modeer,jawal,detail From farey Where num = " & Txtnum.Text & ""
Try
If Con.State = ConnectionState.Open Then Con.Close()
Con.Open()
cmd.Connection = Con
cmd.CommandType = Data.CommandType.Text
cmd.CommandText = MySqlSreach
DR_farey = cmd.ExecuteReader
DR_farey.Read()
If DR_farey.HasRows Then

'update
updatedata()
ClearText()
newnum()
SHOWDATA()
Txtname.Focus()
DR_farey.Close()
Else
DR_farey.Close()

'save
savedata()
ClearText()
newnum()
SHOWDATA()
Txtname.Focus()

End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Con.Close()
End Try