[hsab]

(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 + 1