اذهب الي المحتوي
أوفيسنا

أحتاج الى تغير صيغة الترقيم التلقائي


STINGxXx

الردود الموصى بها

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

اخواني محتاج فزعتكم

أحتاج الى تغير صيغة الترقيم التلقائي ليصبح X/YYYY

حيث أن X يكون Auto Number

و YYYY هو السنة الميلادية الحالية

اتمنى من الي عنده خلفيه عن الموضوع ما يبخل عليا

تحياتي للجميع

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

اخوي

اضف الكود التالي في حدث عند الحالي او on current

If Me.NewRecord Then
        Dim strWhere As String
        Dim varResult As Variant
        
        strWhere = "ID_Number  Like """ & Format(Date, "yyyy") & "*"""
        varResult = DMax("ID_Number", "Table1", strWhere)

        If IsNull(varResult) Then
            Me.ID_Number = "01/" & Format(Date, "yyyy")
        Else
            Me.ID_Number = Right(varResult, 3) & _
                Format(Val(Left(varResult, 4)) + 1, "00")
        End If
    End If
مع تعديل الحقل المراد تخصيصه الى حقل من نوع نص وكذللك لا تنسى تغيير اسم الجدول و اسم الحقل الذي في الجدول في هذا السطر الى اسم الجدول والحقل لديك
strWhere = "ID_Number  Like """ & Format(Date, "yyyy") & "*"""
        varResult = DMax("ID_Number", "Table1", strWhere)

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

Thanks for good behavior.

I did not replay faster because I am facing some problem in my PC windows language and my laptop under service up to now.

Regarding the auto number the database is on attachment.

The auto number on Manpower_Request table is the what I need to change to : X/YYYY

Manpower_Follow_up_system1.4.zip

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

اخوي

شوف المرفق

بما انك لم تحدد اي حقل

فقد تم تطبيق الكود على الحقل ID_Number

شوف النموذج المسمى Manpower Request

الاخ ن-1

هذا ليس امر ولكن هو حدث

من خصائص النموذج روح على تاب Event ورايح تحصله اول واحد

Manpower_Follow_up_system1.4.zip

تم تعديل بواسطه Bluemind
رابط هذا التعليق
شارك

شكرا Bluemind على المساعدة

قمت بتجربت قاعدة البيانات و ادخلت سجلين ولكن لم اجد له قيمة في الحقل الجديد ID_Number . وهل عند كل بداية سنه راح يبدء الترقيم التلقائي من واحد مع تغير السنه.

طلب ثاني ممكن توضح لى فائدة الكود الذي قمت بأضافته و لو كان في مرجع كتاب او غيره اقدر استخدمه لتطوير قدراتي في الاكواد المستخدمه في اكسس ..

تحياتي

Manpower_Follow_up_system1.4.rar

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

طب انا ليا سؤال

هو يعتبر في الموضوع نفسه

بس مع تغيير بسيط

لو انا عاوز الترقيم يكون زي ترقيم الايصالات بالمنظر ده 0001 و 0002 و هكذا

بحيث مثلا يكون في رقم 100 يكون بالشكل ده 0100

اعمل ايه؟

اتمنى اكون مش ضيف تقيل عليك

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information