ترقيم تلقائي يبدأ من a1 لغاية a1000 ثم يتنقل الى b1 وهكذا

[عبد اللطيف سلوم]

السلام عليكم 

هل هناك طريقة لجعل الترقيم التلقائي يبدأ مثلا 

a1

a2 

لغاية a1000

ثم بعدها يبدأ 

b1

b2 

وهكذا 

 

 

[AlwaZeeR]

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

جرب هذه محاولة

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

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

 

[عبد اللطيف سلوم]

صديقي العزيز مش عارف  من وين استدعي الوحدة النمطية

عملت وحدة نمطية باسم salloum

الان يا ريت توضح لي متى يكون الحديث وأين  والية استدعاء الوحدة النطية 

[ابوآمنة]

وهذه محاولة

ضع هذا الكود في حدث بعد التحديث في النموذج من a1  لحرف واحد

AutoNum = "a" & Replace(Nz(DMax("AutoNum", "tbl", "AutoNum like 'a" & "*'"), "a" & "000"), "a", "") + 1

باقي نضع الشرط 

أنا حالياً مشغول لعل الأخوة يكملون

 

[AlwaZeeR]

هكذا يتم الامر

AlPhaNumber(Nz(DMax("CountField", "YourTable"), 0) + 1)

ويفضل وضع الترقيم في حدث قبل الادراج للنموذج

وان صعب الامر عليك ارفق ملف صغير للتطبيق

 

[أبوبسمله]

جزاك الله خيرا استاذى العزيز @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