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

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

قام بنشر

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

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

أحتاج الى تغير صيغة الترقيم التلقائي ليصبح 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