[EMADSSS]

(08-11-19, 05:11 PM)EMADSSS كتب :

(08-11-19, 03:42 PM)اسامه الهرماوي كتب : السلا عليكم...
الحل موجود هنا
http://vb4arb.com/vb/showthread.php?tid=26843

اخي الكريم عذرا منك لم تتضح لي الفكرة بعد
عندي
قاعدة البيانات اكسس
اسم القاعدة AA
اسم الجدول ee
اسم العمود المعرف
فكيف يصبخ الكود واين اضعه هل في زر بوتن اضافة  ام ماذا

 Dim MaxID As Integer = AADataSet.Tables("ee").AsEnumerable().Max(Function(Row) Convert.ToInt32(Row("المعرف")))
        Dim NewID As Integer = MaxID + 1


        MsgBox(NewID)
جربت هذا الكود اصبحت النتيجة تضهر في رسالة انا عاوز النتيجة تنزل فورا في التكست بوكس