منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اضافة تسلسل تلقائي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اخواني الكرام ماعم تضبط معي
عاوز لما اضغط زر اضافة ينزل بالتكست بوكس ( المعرف )  الرقم الافتراضي تلقائيا يعني لو كان اخر اسم عندي رقمه 10 لما اضغط زر اضافة ينزل رقم 11 تلقائيا في تكست بوكس المعرف مو -1
السلا عليكم...
الحل موجود هنا
http://vb4arb.com/vb/showthread.php?tid=26843
(08-11-19, 03:42 PM)اسامه الهرماوي كتب : [ -> ]السلا عليكم...
الحل موجود هنا
http://vb4arb.com/vb/showthread.php?tid=26843

اخي الكريم عذرا منك لم تتضح لي الفكرة بعد
عندي
قاعدة البيانات اكسس
اسم القاعدة AA
اسم الجدول ee
اسم العمود المعرف
فكيف يصبخ الكود واين اضعه هل في زر بوتن اضافة ام ماذا
(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)
جربت هذا الكود اصبحت النتيجة تضهر في رسالة انا عاوز النتيجة تنزل فورا في التكست بوكس
السلام عليكم اخي الكريم
اكتب التالي

كود :
TextId.text=MaxId+1
(08-11-19, 11:06 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم اخي الكريم
اكتب التالي

كود :
TextId.text=MaxId+1

شكرا اخي لكن مامشي الحال اذا بتقدر تضيفلي الكود على المشروع المرفق وكلك ذوق
اخي نفس الكود الذي اظهر الرقم في مسج بوكس استبدل المسج بوكس 
باسم مربع النص الذي سيظهر فيه  الماكس اي دي   
(09-11-19, 02:33 AM)ابراهيم ايبو كتب : [ -> ]
اخي نفس الكود الذي اظهر الرقم في مسج بوكس استبدل المسج بوكس 
باسم مربع النص الذي سيظهر فيه  الماكس اي دي   

شكرا لك