مساعدة في الترقيم التلقائي

[𝐡𝐚𝐬𝐬𝐚𝐧]

اخواني الاعزاء الرجاء مساعدتي في الكود المرفق الخاص بالترقيم لكل عام رقم جديد هو مضبوط معي تمام ل عامين فقط  اريد ان اضيف عدة اعوام بنفس الطريقة 

تكرموا بمساعدتي ولكم جزيل الشكر التقدير 

[M.Abd Allah]

4 ساعات مضت, 𝐡𝐚𝐬𝐬𝐚𝐧 said:

اخواني الاعزاء الرجاء مساعدتي في الكود المرفق الخاص بالترقيم لكل عام رقم جديد هو مضبوط معي تمام ل عامين فقط  اريد ان اضيف عدة اعوام بنفس الطريقة 

تكرموا بمساعدتي ولكم جزيل الشكر التقدير 

تقدر تضيف اكتر من سنه بنفس الطريقه انا زودت لحضرتك سنتين وتقدر تزود اكتر من سنه بنفس الطريقه 

Private Sub x_AfterUpdate()
    If x1 <> 0 Then
        ' لا تفعل شيئًا إذا كانت x1 ليست صفرًا
    Else
        Select Case x
            Case "1446"
                x1 = Nz(DMax("[m]", "mm", "yy = '1446'") + 1, 4600001)
            Case "1447"
                x1 = Nz(DMax("[m]", "mm", "yy = '1447'") + 1, 4700001)
            Case "1448"
                x1 = Nz(DMax("[m]", "mm", "yy = '1448'") + 1, 4800001)
            Case "1449"
                x1 = Nz(DMax("[m]", "mm", "yy = '1449'") + 1, 4900001)
            ' يمكنك إضافة حالات أخرى للأعوام الأخرى بنفس الطريقة
            Case Else
                MsgBox "السنة غير مدعومة."
        End Select
    End If
End Sub

 

[𝐡𝐚𝐬𝐬𝐚𝐧]

الف الف شكر وجزاك الله خير 

[شايب]

19 ساعات مضت, 𝐡𝐚𝐬𝐬𝐚𝐧 said:

اريد ان اضيف عدة اعوام بنفس الطريقة 

بداية مع التحية والتقدير للاستاذ @M.Abd Allah على جهوده

فان الاخ العزيز شايب يعتقد ان وضع معيار بشكل مباشر في محرر الاكواد وهو هنا كتابة السنة امر غير صحيح ولا ينصح به لان المستخدم للبرنامج مجرد مدخل بيانات

وكان الاجدى ان تستخلص السنة من التاريخ وبالتي لسنا بحاجة الى اجراء تعديل على الكود في بداية السنة الجديدة او السنوات التالية

وايضا نختصر كتابة الكود ونقلل من الاحتمال

مع ذلك هي وجهة نظر غير ملزمة

اخونا الشايب