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