عبد اللطيف سلوم قام بنشر ديسمبر 12, 2019 مشاركة قام بنشر ديسمبر 12, 2019 السلام عليكم هل هناك طريقة لجعل الترقيم التلقائي يبدأ مثلا a1 a2 لغاية a1000 ثم بعدها يبدأ b1 b2 وهكذا 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة AlwaZeeR قام بنشر ديسمبر 12, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 12, 2019 وعليكم السلام ورحمة الله وبركاته جرب هذه محاولة ضع الكود في وحدة نمطية واستدعها ضمن الحقل الذي تريد ان يظهر فيه الرقم Public Function AlPhaNumber(AutoNum As Integer) As String Dim SallomN As String Select Case AutoNum Case 1 To 1000 SallomN = "A" & AutoNum Case 1001 To 2000 SallomN = "B" & AutoNum Case 2001 To 3000 SallomN = "C" & AutoNum Case Else SallomN = "No Number" End Select AlPhaNumber = SallomN End Function 3 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر ديسمبر 12, 2019 الكاتب مشاركة قام بنشر ديسمبر 12, 2019 صديقي العزيز مش عارف من وين استدعي الوحدة النمطية عملت وحدة نمطية باسم salloum الان يا ريت توضح لي متى يكون الحديث وأين والية استدعاء الوحدة النطية رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر ديسمبر 12, 2019 مشاركة قام بنشر ديسمبر 12, 2019 وهذه محاولة ضع هذا الكود في حدث بعد التحديث في النموذج من a1 لحرف واحد AutoNum = "a" & Replace(Nz(DMax("AutoNum", "tbl", "AutoNum like 'a" & "*'"), "a" & "000"), "a", "") + 1 باقي نضع الشرط أنا حالياً مشغول لعل الأخوة يكملون 1 رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر ديسمبر 12, 2019 مشاركة قام بنشر ديسمبر 12, 2019 هكذا يتم الامر AlPhaNumber(Nz(DMax("CountField", "YourTable"), 0) + 1) ويفضل وضع الترقيم في حدث قبل الادراج للنموذج وان صعب الامر عليك ارفق ملف صغير للتطبيق 3 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 12, 2019 مشاركة قام بنشر ديسمبر 12, 2019 جزاك الله خيرا استاذى العزيز @AlwaZeeR حاولت استدعاء الوحده النمطيمه لكن لم افلح باستدعائها ولكن قمت بوضعها فى حدث قبل التحديث لحقل الاسم واشتغلت Private Sub Names_BeforeUpdate(Cancel As Integer) Dim SallomN As String AutoNum = Me.ID.Value Select Case AutoNum Case 1 To 1000 SallomN = "A" & AutoNum Case 1001 To 2000 SallomN = "B" & AutoNum Case 2001 To 3000 SallomN = "C" & AutoNum Case Else SallomN = "No Number" End Select Me.auto = SallomN End Sub وقمت باستدعئها كما اشار استاذى العزيز بنجاح تقبل تحياتى طبتم واهتديتم ex.mdb 4 رابط هذا التعليق شارك 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.