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

[Zooro1]

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

لدي جدول للمراسلات مذكرات، ولدي جدول لاسماء المشاريع مثلا مشروع 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

[ابوخليل]

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

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

[Zooro1]

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

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

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

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

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

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

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

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

PRJ-A-24-00006 

وهكذا 

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

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

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

[Foksh]

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

تفضل اخي @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]

 

وملاحظة ،،

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

[Eng.Qassim]

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

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

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

Memos.rar

[Zooro1]

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

[Zooro1]

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

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

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

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

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

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

وشكرا

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

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

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

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

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

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

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

[ابوخليل]

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

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

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

[Foksh]

منذ ساعه, Zooro1 said:

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

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

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

وشكرا

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

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

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

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

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

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

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

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

[Zooro1]

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

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

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

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

[Zooro1]

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

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

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

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

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

Prj- building-5643

Prj اختصار project 

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

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

Prj- building-5643-In-2024-0001

وهكذا.

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

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

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

 

[ابوخليل]

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

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

[Eng.Qassim]

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

PRJ-A-24-0001

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

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

[ابوخليل]

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

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

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

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

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

[Zooro1]

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

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

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

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

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

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

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

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

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

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

[ابوخليل]

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

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

 

[Zooro1]

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

سوف اشرح مثال

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

 

١- مشروع 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]

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

[Zooro1]

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 بواسطه Foksh

[Zooro1]

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

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

تمام.

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

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

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

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

حيث نضيف حرف T 

مثال

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

 

ADH-BUILDING-7943-T-24-0011

 

وايضا minutes of meeting 

[Eng.Qassim]

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

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

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

[Zooro1]

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

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

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

عامل كده فعلا

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

 

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

 

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

 

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

 

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

 

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

 

 

[ابوخليل]

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

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