[sniperjawadino]

(06-10-19, 06:52 PM)kiki كتب :

كود :

sql select top 1 id from aaa

شكرا لك أخي KIKI  سأحاول إستخدام الفكرة
جزاك الله كل خير

---

(06-10-19, 09:13 PM)حريف برمجة كتب : حريف برمجة

كود :

Dim connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
   "Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=True;"

متغير يحمل قيمة الترقيم التلقائي    Dim ID As Integer

Using conn As New OleDbConnection(connect)
 Using cmd As New SqlCommand("insert Into Categories (CategoryName) Values (@CategoryName)", conn)
   cmd.Parameters.AddWithValue("@CategoryName", Category.Text)
   conn.Open()
   cmd.ExecuteNonquery()
   cmd.Commandtext="select @@Identity"
   ID = cmd.ExecuteScalar()

MsgBox(ID)

If ID <> "" or ID <> Nothing then
ضع كود الطباعة هنا سواء بإستعلام برقم الآيدي أو من الداتاقريدفيو كما عملت انت
End If

   conn.close()
 End Using
End Using

نعم أخي حريف برمجة فهمت الفكرة
سأحاول تطوير هذه الطريقة 
شكرا كثيرا و جزاك الله على تعبك