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

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

قام بنشر

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

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

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