[أبو عقيل]

السلام عليكم ورحمة الله وبركاته 

كيفكم ... عساكم طيبين 

عندي مشكلة في البرنامج وهو الترقيم أو التسلسل حيث أني أريد الترقيم يكون بهذه الصيغة   (2015-0001)  رقم الفاتورة والسنة الميلادية وأيضا عند دخول السنة الجديدة أريد الترقيم يبدأ من جديد بشكل أوتوماتيكي (2016-0001) 

أتمنى أجد الحل لديكم وشكرا .

[abulayth]

السلام عليكم

ان شاء الله سهلة

اتمنى ان ترفق مثال بسيط لكي يتم التعديل عليه

يعطيك العافية

[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

[أبو عقيل]

أولاً أعتذر عن التأخير في  الرد


را لكم على محاولتكم لمساعدتي 

عملت الطريقة التي كما هو موضح ولكن ظهرت رسالة خطأ وهي مرفقة أتمنى أن تروها وتفيدوني بالحل 

شاكر لكم على تعاونكم 

---

حملت الصورة يالمرفقات بشكل أوضح والجملة المحدد عليها بالأحمر هي سبب المشكلة

[Ahmed_Mansoor]

أهلا , هذا مثال يوضح الطريقة لعمل ذلك , حيث أن التكستين TxtID و TxtDate  يمثلان حقلين في جدول خاص بهما , يعني إستبدلهما بحقلين نصيين في جدول خاص بهما عندما تستخدم هذه الطريقة في برنامجك .

[Amir_Alzubidy]

السلام عليكم
فكرتي قريبة من فكرة الاخ احمد منصور

اسم المستخدم 1
كلمة المرور 1
بالتوفيق


  Autogen1_VB4ARAB.rar (الحجم : 845.79 ك ب / التحميلات : 77)