sherifsilim قام بنشر أكتوبر 24, 2015 مشاركة قام بنشر أكتوبر 24, 2015 يوجد لدى استفسار ؟؟؟؟ هل يمكن بعد رقم 10.000 يبدا الترقيم التقائى برمز ثم يرقم من اول رقم مثلا فاتورة رقم 9999 وعند فاتوره جديده يبدا الرقم 10000 اريد عند الرقم 10000 يكون مثلاA-1 او $-1 بيحث الرمز يكون اول عشرة الاف رابط هذا التعليق شارك More sharing options...
sherifsilim قام بنشر أكتوبر 24, 2015 الكاتب مشاركة قام بنشر أكتوبر 24, 2015 (معدل) يوجد لدى استفسار ؟؟؟؟ هل يمكن بعد رقم 10.000 يبدا الترقيم التقائى برمز ثم يرقم من اول رقم مثلا فاتورة رقم 9999 وعند فاتوره جديده يبدا الرقم 10000 اريد عند الرقم 10000 يكون مثلاA-1 او $-1 بيحث الرمز يكون اول عشرة الاف عزيزى مشرف المنتدى لقد تم وضع موضوع جديد ولم يتم الرد تم تعديل أكتوبر 24, 2015 بواسطه sherifsilim رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر أكتوبر 24, 2015 مشاركة قام بنشر أكتوبر 24, 2015 اخى الكريم فضلا انتظر جارى تجهيز مرفقك رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر أكتوبر 24, 2015 مشاركة قام بنشر أكتوبر 24, 2015 'فرضنا متغير 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 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أكتوبر 25, 2015 مشاركة قام بنشر أكتوبر 25, 2015 السلام عليكم استاذي الفاضل مارد عمل رأع وفوق الممتاز جزاك الله خير الجزاء رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر أكتوبر 25, 2015 مشاركة قام بنشر أكتوبر 25, 2015 السلام عليكم استاذي الفاضل مارد عمل رأع وفوق الممتاز جزاك الله خير الجزاء وعليكم السلام ورحمة الله تعالى وبركاته شكرا لك اخى الفاضل رابط هذا التعليق شارك More sharing options...
sherifsilim قام بنشر أكتوبر 25, 2015 الكاتب مشاركة قام بنشر أكتوبر 25, 2015 شكرا لك اخى مارد على المجهود الرائع شكرا لك وشكرا لادارة المنتدى 1 رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر أكتوبر 25, 2015 مشاركة قام بنشر أكتوبر 25, 2015 شكرا لك اخى مارد على المجهود الرائع شكرا لك وشكرا لادارة المنتدى اخى الكريم عفوا لاحظت خطا ما فى الكود السابق الكود السابق بعد 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.