+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : الترقيم (/showthread.php?tid=12228)
الترقيم - أبو عقيل - 05-05-15
السلام عليكم ورحمة الله وبركاته
كيفكم ... عساكم طيبين
عندي مشكلة في البرنامج وهو الترقيم أو التسلسل حيث أني أريد الترقيم يكون بهذه الصيغة (2015-0001) رقم الفاتورة والسنة الميلادية وأيضا عند دخول السنة الجديدة أريد الترقيم يبدأ من جديد بشكل أوتوماتيكي (2016-0001)
أتمنى أجد الحل لديكم وشكرا .
RE: الترقيم - abulayth - 05-05-15
السلام عليكم
ان شاء الله سهلة
اتمنى ان ترفق مثال بسيط لكي يتم التعديل عليه
يعطيك العافية
RE: الترقيم - hsab - 05-05-15
(05-05-15, 11:11 AM)أبو عقيل كتب :السلام عليكم ورحمة الله وبركاته
كيفكم ... عساكم طيبين
عندي مشكلة في البرنامج وهو الترقيم أو التسلسل حيث أني أريد الترقيم يكون بهذه الصيغة (2015-0001) رقم الفاتورة والسنة الميلادية وأيضا عند دخول السنة الجديدة أريد الترقيم يبدأ من جديد بشكل أوتوماتيكي (2016-0001)
أتمنى أجد الحل لديكم وشكرا .
وعليكم السلام ورحمة الله
أعمل حقل ترقيم تلقائى أو بأى طريقة في جدول البيانات المقصود
وأيضاً حقل للسنة أو التاريخ
دول ح تجلبهم الأتنين في حدث الفورم لود كل في مربع نص ودعنا نسميهم كالآتى
txtid , txtdate
أكتب الكود التالى
كود :
select case len(txtid.text)
case 1
txtid.text = "0000" + txtid.text
case 1
txtid.text = "000" + txtid.text
case 3
txtid.text = "00" + txtid.text
case 4
txtid.text = "0" +
txtid.text
end select
txtid =txtid & "-" & year(date)بالنسبة لبداية العام وبداية الترقيم من واحد
كود :
if year(date)= dateadd("y",1, year(textdate.text)) then
txtid.text = 1
else
txtid =txtid.text + 1RE: الترقيم - أبو عقيل - 22-05-15
أولاً أعتذر عن التأخير في الرد
را لكم على محاولتكم لمساعدتي
عملت الطريقة التي كما هو موضح ولكن ظهرت رسالة خطأ وهي مرفقة أتمنى أن تروها وتفيدوني بالحل
شاكر لكم على تعاونكم
حملت الصورة يالمرفقات بشكل أوضح والجملة المحدد عليها بالأحمر هي سبب المشكلة
RE: الترقيم - Ahmed_Mansoor - 22-05-15
أهلا , هذا مثال يوضح الطريقة لعمل ذلك , حيث أن التكستين TxtID و TxtDate يمثلان حقلين في جدول خاص بهما , يعني إستبدلهما بحقلين نصيين في جدول خاص بهما عندما تستخدم هذه الطريقة في برنامجك .