يبدا الترقيم التقائى برمز ثم يرقم من اول رقم

[sherifsilim]

يوجد لدى استفسار ؟؟؟؟ 

هل يمكن بعد رقم 10.000 يبدا الترقيم التقائى برمز ثم يرقم من اول رقم 

مثلا فاتورة رقم 9999 وعند فاتوره جديده يبدا الرقم 10000 

اريد عند الرقم 10000 يكون مثلاA-1  او $-1 

بيحث الرمز يكون اول عشرة الاف 

[sherifsilim]

يوجد لدى استفسار ؟؟؟؟ 

هل يمكن بعد رقم 10.000 يبدا الترقيم التقائى برمز ثم يرقم من اول رقم 

مثلا فاتورة رقم 9999 وعند فاتوره جديده يبدا الرقم 10000 

اريد عند الرقم 10000 يكون مثلاA-1  او $-1 

بيحث الرمز يكون اول عشرة الاف 

عزيزى مشرف المنتدى لقد تم وضع موضوع جديد ولم يتم الرد 

 

تم تعديل أكتوبر 24, 2015 بواسطه sherifsilim

[Elsayed Bn Gemy]

اخى الكريم فضلا انتظر جارى تجهيز مرفقك

[Elsayed Bn Gemy]

'فرضنا متغير f
Dim f As String
'قلنا ان المتغير يساوى مجموع سجلات حقل الترقيم
f = DCount("id", "mytable")
'اذا كان المتغير اكبر من 10 سيقوم بادراج الرمز A وتستطيع ان تغيرها بعد ذلك الى 10000 

If f >= 10 Then

id = "A-" & DCount("id", "mytable") + 1
Else
id = DCount("id", "mytable") + 1
End If

الحدث موجود بعد تحديث مربع نص التاريخ

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

ترقيم رموز.rar

[حسين العربى]

السلام عليكم استاذي الفاضل مارد عمل رأع وفوق الممتاز جزاك الله خير الجزاء

[Elsayed Bn Gemy]

السلام عليكم استاذي الفاضل مارد عمل رأع وفوق الممتاز جزاك الله خير الجزاء

وعليكم السلام ورحمة الله تعالى وبركاته شكرا لك اخى الفاضل

[sherifsilim]

شكرا لك اخى مارد على المجهود الرائع 

شكرا لك وشكرا لادارة المنتدى 

 

[Elsayed Bn Gemy]

شكرا لك اخى مارد على المجهود الرائع 

شكرا لك وشكرا لادارة المنتدى 

 

اخى الكريم عفوا لاحظت خطا ما فى الكود السابق

الكود السابق بعد 10 سجلات سيقوم بترقيم الاتى  (A-11   /  A-12   )

واعتقد ان هذا ليس مرادك

ويمكنك استبداله بالكود التالى

Dim f As String

f = DCount("id", "mytable")
If f >= 10 Then

id = "A-" & (DCount("id", "mytable")) - 10 + 1
Else
id = DCount("id", "mytable") + 1
End If