اريد كود يضيف رقم تلقائى استنادا لقيمة رقم فى تكست

up

اخي العزيز لمعرفة اداة ربط قاعدة البيانات عندك يرجى ارفاق مثال بسيط عملي ليتم التعديل علية ان شاء الله

مع كل الاحترام

بحاجة الى ان تعمل استعلام جديد حسب النوع كما يلي

Dim RS As New ADODB.Recordset

Dim NewID As Long
RS.Open "select  max(id) from  mytable where type =" & text1, con, adOpenStatic, adLockReadOnly

NewID = Val(RS(0) & "")

شــــــــــــــــــــــــــكــــــــــــــــــــــــــرا . . .