اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by 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

 

  • Like 3
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

وهذه محاولة

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

  • Like 3
رابط هذا التعليق
شارك

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

  • Like 4
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information