عندي مشكلة في البرنامج وهو الترقيم أو التسلسل حيث أني أريد الترقيم يكون بهذه الصيغة (2015-0001) رقم الفاتورة والسنة الميلادية وأيضا عند دخول السنة الجديدة أريد الترقيم يبدأ من جديد بشكل أوتوماتيكي (2016-0001)
عندي مشكلة في البرنامج وهو الترقيم أو التسلسل حيث أني أريد الترقيم يكون بهذه الصيغة (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 + 1
أهلا , هذا مثال يوضح الطريقة لعمل ذلك , حيث أن التكستين TxtID و TxtDate يمثلان حقلين في جدول خاص بهما , يعني إستبدلهما بحقلين نصيين في جدول خاص بهما عندما تستخدم هذه الطريقة في برنامجك .