توليد رقم تلقائي لكل مشروع

Zooro1 · April 5

السلام عليكم، وشكرا لكم علي مساعدتكم الدائمة.

لدي جدول للمراسلات مذكرات، ولدي جدول لاسماء المشاريع مثلا مشروع A ومشروع B ومشروع c وفي General

مشروع A بنستخدم reference no له

PRJ-A-24-0001

مشروع B بنستخدم reference no له

PRJ-B-24-0001

وهكذا

أريد تصميم نموذج عند إدخال بيانات مذكرة قادمة او صادرة

واختار مثلا مشروع A

يجيبني في حقل REFERENCE NO

الرقم الجديد PRJ-A-24-0002

وهكذا مع كل سجل جديد

ومع بقيه المشاريع

وعندما تنتهي السنة 24 وتدخل سنة جديدة 25

يعمل من جديد 0001 مع طبعا اسم المشروع

PRJ-A-25-0001

وهل لو عندي جداول كثيرة اضعه داخل موديول واستدعيه من داخل كل نموذج

وشكرا لكم

Memos.accdb

**ابوخليل** · April 5

انظر هنا قريب من طلبك

جرب وما لا تتمكن من تطبيقه اطرحه هنا

Zooro1 · April 5

6 دقائق مضت, ابوخليل said:

انظر هنا قريب من طلبك

جرب وما لا تتمكن من تطبيقه اطرحه هنا

في نموذج الإدخال البيانات memos

أريد عندما اختار مشروع A من كومبوبوكس project no

واذهب لحقل reference no يجيبلي رقم المرجع تبع المشروع A ويشوف اخر مرجع ايه ويضيفلي عليه ١

مثلا لو اخر مرجع هو PRJ-A-24-0005

وبدأت بسجل جديد واختارت مشروع A يجيبلي مرجع

PRJ-A-24-00006

وهكذا

وإذا اختارت مشروع اخر يعمل نفس الطريقة

كل مشروع وله رقم وله مرجع

رقم المرجع نصوص وأرقام

**Foksh** · April 5

مشاركة جانبية ...

تفضل اخي @Zooro1

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strProjectNo As String
    Dim strYear As String
    Dim strLastReferenceNo As String
    Dim intLastPart As Integer
    Dim intNewValue As Integer
    Dim strNewReferenceNo As String
    
    Set db = CurrentDb
    
    strProjectNo = Me.ProjectNo.Value
    strYear = Year(Me.Datee.Value)
    
    strSQL = "SELECT TOP 1 ReferenceNo " & _
             "FROM ESMIncoming " & _
             "WHERE ProjectNo = '" & strProjectNo & "' AND Year([Datee]) = " & strYear & " " & _
             "ORDER BY Right([ReferenceNo], 4) DESC"
    
    Set rs = db.OpenRecordset(strSQL)
    
    If Not rs.EOF Then
        strLastReferenceNo = rs!ReferenceNo
    Else
        strLastReferenceNo = strProjectNo & "-" & strYear & "-0000"
    End If
    
    rs.Close
    
    intLastPart = CInt(Right(strLastReferenceNo, 4))
    intNewValue = intLastPart + 1

    strNewReferenceNo = strProjectNo & "-" & Format(Datee, "yy") & "-" & Format(intNewValue, "0000")
    
    Me.Text0.Value = "KNPC-" & strNewReferenceNo
    
    strSQL = "INSERT INTO ESMIncoming (ProjectNo, ReferenceNo, Datee) " & _
             "VALUES ('" & strProjectNo & "', '" & strNewReferenceNo & "', #" & Format(Date, "mm/dd/yyyy") & "#)"
    
    db.Execute strSQL
    
    Set rs = Nothing
    Set db = Nothing

Memos.accdb

تم تعديل April 5 بواسطه Foksh

**Foksh** · April 5

وملاحظة ،،

تم تغيير اسم الحقل Date في الجدول الى Datee تلافياً لحدوث اي مشاكل أثناء كتابة الكود.

**Eng.Qassim** · April 6

مشاركة مع الاساتذة

عملت جدول جديد تلافيا لعدم فهمي للجداول الموجودة

ادخل اسم المشروع عن طريق الكومبوبوكس

Memos.rar

Zooro1 · April 6

شكرا ليكم جميعا ، ان شاءالله هجربة بكرة وارد لكم بإذن الله

Zooro1 · April 6

18 ساعات مضت, ابوخليل said:

انظر هنا قريب من طلبك

جرب وما لا تتمكن من تطبيقه اطرحه هنا

السلام عليكم استاذنا ابو خليل ، مثالك قريب جدا جدا من اللي انا طالبه،

لكن انا زودت علي form ووضحت اللي انا محتاجه.

فا ياريت لو تشوفه form وكاتب عليه المطلوب

وشكرا

ترقيم مع السنة وزيادة حرف.7z

شكرا يا مهندس قاسم واستاذنا foksh,

لكن بصراحة مش دا اللي كنت محتاجة ،

انا لقيت مثال لاستاذنا ابو خليل وهو قريب من اللي انا محتاجة ،

وكنت طالب زيادة فيه

وياريت لو ساعدتموني

وشكرا لكم جميعا

**ابوخليل** · April 6

حتى تستفيد من الكود مباشرة كما هو بدون تعديل ( لان اضافة شروط قد تكون سببا في الزام ما لا يلزم )

هو ان تكون معرفات المشاريع بطول واحد .. كأن تضيف اصفار في بداية المعرف

لان احد المعرفات عدده 9 بينما آخر اثنان

**Foksh** · April 6

منذ ساعه, Zooro1 said:

السلام عليكم استاذنا ابو خليل ، مثالك قريب جدا جدا من اللي انا طالبه،

لكن انا زودت علي form ووضحت اللي انا محتاجه.

فا ياريت لو تشوفه form وكاتب عليه المطلوب

وشكرا

ترقيم مع السنة وزيادة حرف.7z 14.33 kB · 2 downloads

شكرا يا مهندس قاسم واستاذنا foksh,

لكن بصراحة مش دا اللي كنت محتاجة ،

انا لقيت مثال لاستاذنا ابو خليل وهو قريب من اللي انا محتاجة ،

وكنت طالب زيادة فيه

وياريت لو ساعدتموني

وشكرا لكم جميعا

الأولى لك أخي الكريم توضيح طلبك بشكل واضح أكثر ، ثم ارفاق مثالك الذي يحتوي بيانات على ما تريد التطبيق عليه :yes:

Zooro1 · April 6

21 دقائق مضت, Foksh said:

الأولى لك أخي الكريم توضيح طلبك بشكل واضح أكثر ، ثم ارفاق مثالك الذي يحتوي بيانات على ما تريد التطبيق عليه

بخصوص طلبي، الزيادة اللي طالبها كاتبها علي فورم تبع ابو خليل

ولا حضرتك عاوزني أضيف مثال جديد علي اللي عندي في جدولي

Zooro1 · April 6

2 ساعات مضت, ابوخليل said:

حتى تستفيد من الكود مباشرة كما هو بدون تعديل ( لان اضافة شروط قد تكون سببا في الزام ما لا يلزم )

هو ان تكون معرفات المشاريع بطول واحد .. كأن تضيف اصفار في بداية المعرف

لان احد المعرفات عدده 9 بينما آخر اثنان

بصراحة والله انا مش فاهم ، وسامحني ، عندي كل مشروع وله رقم خاص به مثلا مشروع بناء

Prj- building-5643

Prj اختصار project

Building-5643 هو رقم المشروع

لما يجي كتاب مثلا وارد من قسم تاني بيكون reference no

Prj- building-5643-In-2024-0001

وهكذا.

وعندي مشاريع كتير ، وكل مشروع وله رقم وله reference no .

وكل الكتب الواردة بجميع المشاريع في جدول لوحدة اسمه الوارد.

وسامحوني لو معرفتش اوصل المعلومة .

**ابوخليل** · April 6

هل يمكنك اعطاء كل اسم مشروع معرف خاص بحيث يكون الاعتماد على هذا المعرف في البحث وعمليات الترقيم وغيره ؟؟

طبعا اسم المشروع سيكون ظاهر ولكن القيمة الحقيقية هي المعرف ... كما هو الحال في مربعات التحرير

**Eng.Qassim** · April 6

23 ساعات مضت, Zooro1 said:

PRJ-A-24-0001

في البداية كان سؤالك هكذا !!

وهذا ما عملت عليه... referenceNo يتغير حسب اسم المشروع ويبدأ بالعد من جديد في بداية السنة الجديدة

image.png.c85fda2650bea72bbf9a867146564ed6.png

**ابوخليل** · April 6

4 دقائق مضت, Eng.Qassim said:

في البداية كان سؤالك هكذا !!

وهذا ما عملت عليه... referenceNo يتغير حسب اسم المشروع ويبدأ بالعد من جديد في بداية السنة الجديدة

تمام باش مهندس ..

الآن هو يمكن فهم كل ما كتبته له اعلاه

Zooro1 · April 6

13 دقائق مضت, Eng.Qassim said:

في البداية كان سؤالك هكذا !!

وهذا ما عملت عليه... referenceNo يتغير حسب اسم المشروع ويبدأ بالعد من جديد في بداية السنة الجديدة

اسف يا مهندس قاسم، واسف ليكم جميعا،

يمكن لاني مكنتش عارف اوصل المعلومة كويس.

اقصد ان رمز المشروع هو يكون مكان reference no

وكل ما اختار اسم مشروع يجيبلي اخر reference no له برقم جديد

ومرة أخري سامحوني

ولو في مشكلة بالنسبة لكم ، مش لازم بصراحة

وشكرا علي دعمكم لي وللكل

**ابوخليل** · April 6

اخوانك الخبراء هنا لا مشكلة لديهم .. بالعكس يسعدهم خدمتك بحل ما يواجهك من مشكلات

على كل حال سوف اوافيك بالحل الذي تريد والذي تفكر فيه .. من اجل تعرف ما نتحدث عنه

Zooro1 · April 6

اسف علي عدم توصيلي للمعلومة مرة اخري

سوف اشرح مثال

لدي قائمة مشاريع مثلا

١- مشروع building-5643

٢- مشروع Gas-SB78934

٣-مشروع NGL-CDH0067

وهكذا، وهم داخل جدول projects

----------------

مشروع Building-5643

لما يجي كتاب من قسم اخر بخصوص المشروع دا

يكون reference كده

Prj- building-5643-2024-0001

Prj- building-5643-2024-0002

Prj- building-5643-2024-0003

Prj- building-5643-2024-0004

،،،،

Prj اختصار project

Building-5643 هو رقم المشروع

24 هي السنة

0001 هو رقم الكتاب

------------------------------

Gas-SB78934 مشروع

Prj- Gas-SB78934-2024-0001

Prj- Gas-SB78934-2024-0002

Prj- Gas-SB78934-2024-0003

وهكذا من المشاريع الأخرى

سواء صادرة او واردة

صادرة لها ارقامها

وواردة لها ارقامها

واتمني لو عرفت اوصل ليكم المعلومة اخواني

**Foksh** · April 6

ما الذي يميز الكتب الصادرة عن الكتب الواردة ؟؟

Zooro1 · April 6

23 دقائق مضت, Foksh said:

ما الذي يميز الكتب الصادرة عن الكتب الواردة ؟؟

مثلا يا استاذنا Foksh

انا لما بطلع كتاب صادر من القسم من عندي الي قسم اخر داخلية بيكون كده مثلا وخاصة بالمشروع

PRJ-DEP1-BUILDING-7943-24-0001

Dep1 دائرة رقم ١

Department

ولو طالع للمقاول DEP1-BUILDING-7943-24-00001

ولو كتاب جي من المقاول مثلا اسم المقاول ADH

ADH-BUILDING-7943-24-0011

**Foksh** · April 6

لاحظ أن مستوى الترقيم المطلوب قد توسع 🤗

تمام.

أعتقد أنه سيصبح لديك أكثر من نمط للترقيم.

تم تعديل April 6 بواسطه Foksh

Zooro1 · April 7

31 دقائق مضت, Foksh said:

لاحظ أن مستوى الترقيم المطلوب قد توسع 🤗

تمام.

أعتقد أنه سيصبح لديك أكثر من نمط للترقيم.

اعرف والله استاذنا foksh

اعطيك مثال اخر ، يوجد لدي أيضا transmittal

صادر و وارد وطبعا اختلافهم غير اللي انا قلت عليهم فوق

حيث نضيف حرف T

مثال

ولو كتاب جي من المقاول مثلا اسم المقاول ADH

ADH-BUILDING-7943-T-24-0011

وايضا minutes of meeting

**Eng.Qassim** · April 7

51 دقائق مضت, Foksh said:

أعتقد أنه سيصبح لديك أكثر من نمط للترقيم.

اعتقد كمرحلة اولى عمل جدول للصادر وجدول للوارد وجدول للاقسام والمشاريع والمقاولين

Zooro1 · April 7

1 دقيقه مضت, Eng.Qassim said:

اعتقد كمرحلة اولى عمل جدول للصادر وجدول للوارد وجدول للاقسام والمشاريع والمقاولين

بالفعل مهندس قاسم

عامل كده فعلا

المذكرات اللي بين الأقسام الداخلية الواردة لها جدول خاص

والمذكرات اللي بين الأقسام الداخلية الصادرة لها جدول خاص

وبالنسبة للكتب الي المقاول الصادرة نفس فوق له جدول خاص

والكتب الواردة جدول خاص

و transmittal وارد جدول خاص

و transmittal صادر جدول خاص

**ابوخليل** · April 7

تفضل الترقيم حسب طلبك

ترقيم مع السنة2.rar

تسجيل الدخول

توليد رقم تلقائي لكل مشروع

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

Zooro1

ابوخليل

Zooro1

Foksh

Foksh

Eng.Qassim

Zooro1

Zooro1

ابوخليل

Foksh

Zooro1

Zooro1

ابوخليل

Eng.Qassim

ابوخليل

Zooro1

ابوخليل

Zooro1

Foksh

Zooro1

Foksh

Zooro1

Eng.Qassim

Zooro1

ابوخليل

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information