[اسامه الهرماوي]

السلام عليكم...
هل يجب ان اقوم بالحذف بحقل الترقيم التلقائي او باي حقل
لاني عند تجربة الترقيم يعمل الكود اما عندة اخنيار اي حقل اخر يعطني البيانات غير متطابقة.

وشكرا لكم جميعا.

كود :

التع.Text = Val(الادخال.Text) + Val(الكمية.Text)
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim SavInto As New OleDb.OleDbCommand
       SavInto.Connection = con
       SavInto.CommandType = CommandType.Text
       SavInto.CommandText = "update basket set [الكمية]='" & Val(التع.Text) & "'  where اسم_المادة = " & Val(t1.Text) & ""
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       SavInto.ExecuteNonQuery()
       SavInto.Dispose()
       con.Close()