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

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


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

اعمل ايه؟

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

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

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