28-03-19, 01:42 AM
بسم الله الرحمن الرحيم
الاخوة الافاضل كل عام وانتم بخير ... وطبتم وطابت اوقاتكم
قمت بانشاء مشروع بالفيجول بيسك 2015 معتمداً على قاعدة بيانات اكسيس
لدي جدول اسمه let_50 وهو خاص بخطابات الضمان - فيه عمود اسمه let_code_50 وقمت بعمل كود لكل خطاب ضمان على حدي مستخدماً الكود التالي الذي يقوم بتوليد الكود بشكل اوتوماتيكي اعتمادا على اخر كود موجود فى الجدول
المشكلة الان
انني لدي 3 انواع من الخطابات واريد ان اصنع 3 اكواد وذلك بناء على الاختيار من ComboBox
مثلا سيكون الكومبو بوكس بداخله 3 اختيارات
50000
100000
other
المطلوب اذا اخترة الاختيار الاول (50000) يبداء الترقيم كود 5001 والمرة التى تليها يبداء الكود من بعد اخر رقم
ثـــــــــم اذا اخترة الاختيار الثانى (100000) يبداء الترقيم كود 1001 والمرة التى تليها يبداء الكود من بعد اخر رقم
ثـــــــــم اذا اخترة الاختيار الثالث(other) يبداء الترقيم كود 9001 والمرة التى تليها يبداء الكود من بعد اخر رقم
اسف على الاطالة
وان شاء الله اجد ضالتي لديكم
الاخوة الافاضل كل عام وانتم بخير ... وطبتم وطابت اوقاتكم
قمت بانشاء مشروع بالفيجول بيسك 2015 معتمداً على قاعدة بيانات اكسيس
لدي جدول اسمه let_50 وهو خاص بخطابات الضمان - فيه عمود اسمه let_code_50 وقمت بعمل كود لكل خطاب ضمان على حدي مستخدماً الكود التالي الذي يقوم بتوليد الكود بشكل اوتوماتيكي اعتمادا على اخر كود موجود فى الجدول
كود :
Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(let_code_50)+1 AS JobTicketNo from LETTERS_50", con)
انني لدي 3 انواع من الخطابات واريد ان اصنع 3 اكواد وذلك بناء على الاختيار من ComboBox
مثلا سيكون الكومبو بوكس بداخله 3 اختيارات
50000
100000
other
المطلوب اذا اخترة الاختيار الاول (50000) يبداء الترقيم كود 5001 والمرة التى تليها يبداء الكود من بعد اخر رقم
ثـــــــــم اذا اخترة الاختيار الثانى (100000) يبداء الترقيم كود 1001 والمرة التى تليها يبداء الكود من بعد اخر رقم
ثـــــــــم اذا اخترة الاختيار الثالث(other) يبداء الترقيم كود 9001 والمرة التى تليها يبداء الكود من بعد اخر رقم
اسف على الاطالة
وان شاء الله اجد ضالتي لديكم