ترقيم خاص حرف مع ارقام

[hassan951]

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

كل عام وانتم بخير 

الرجاء عندى بيانات فى ثلاث مكاتب

كل مكتب بيسجل بياناته بشكل منفصل

كيف فى قاعد بيانات اخرى مجمعه اجمع بين تلك البيانات مشكلتى فى المفتاح الرئيسى للربط بين جداول كل قاعده فى الاول قبل الجمع

كل قاعده منفصله ممكن اخد رقم الصادرات او الواردات مفتاح اساسى لانه لا يتكرر فى نفس القاعده

ولكن المشكله تظهر عند دمج الثلاث قواعد بيانات معا سيتكرر 

ففكرت فى جعل المجمع مع رقم الصادرات او الواردات يكونا معا مفتاح اساسى ( لانهما معا لا يتكرران ) ولم اعرف كيف

ولكن هناك حل اريد المساعده فيه

عمل حقل ترقيم خاص قى كل قاعده عباره عن حرف انجليزى يتبعه اربعه ارقام تبدا من 1 وتنتهى باقصى عدد 9999

اى المكتب الاول يكون ( A1   to  A9999 )  والمكتب الثانى ( B1   to  B9999 ) والمكتب الثالث ( C1   to  C9999 )

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

 

وايضا اريد معرفه الحل الاخر اذا امكن وهو جعل ( رقم المجمع+رقم الصادارات ) فى جدول الصادر و ( رقم المجمع+رقم الواردات ) فى جدول الواردات

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

 

شكرا للجميع

ترقيم خاص بالاقسام.accdb

[ابوخليل]

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

لم افهم ما تفضلت بطلبه بالضبط  ، والذي فهمته حصول تكرار الارقام  الصادر والوارد للمكاتب الثلاثة عند الضم

اسهل حل  او  فكرة هو انشاء حقل في الجدولين  يدرج فيه رمز المكتب

عند ضم الجداول يمكنك اجراء اكثر من عملية بمعلومية هذا الرمز

فيمكن ضم الرمز مع رقم الصادر  او الوارد في الجدول داخل حقل جديد بواسطة استعلام تحديث

ويمكن ضم الرمز مع رقم الصادر او الوارد  في استعلام  

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

 

[hassan951]

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

هذا ما اريده ولكن كيف

اعمل ترقيم تلقائى يبدا حرف اجنبى ثم رقم من اربعه ارقام

( A1   to  A9999 )مثل 

فى اى جدول بديلا عن الترقيم التلقائى 

تم تعديل أبريل 22, 2021 بواسطه hassan951

[ابوخليل]

جدول الصادر يحتوي على حقل باسم رقم عام  وآخر  برقم الصادر

وجدول الوارد كذلك مثله

في اي حقل من هذه الحقول تريد هذا الترقيم ؟

[hassan951]

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

اريدها فى حقل ترقيم عام

 

تم تعديل أبريل 23, 2021 بواسطه hassan951

[ابوخليل]

تفضل تم  حماية حقل الترقيم التلقائي

غيرت اسم الجدول وعدلت على الفواصل بين اسماء الحقول الى الطريقة الصحيحة

كل هذا من اجل تتمكن من قراءة وفهم الجمل البرمجية

Dim rs As Recordset
    Dim strSQL As String
    Dim i As Long
    strSQL = "SELECT Max(CLng(Right([ID_exp_all],Len([ID_exp_all])-1))) AS xc FROM saderat "
    Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
    If rs.RecordCount > 0 Then
    rs.MoveFirst
    On Error Resume Next
    i = rs![xc]
    Me.ID_exp_all = "A" & i + 1
    End If
        rs.Close
    Set rs = Nothing

 

ترقيم خاص بالاقسام2.rar

[hassan951]

شكرا جزيلا استاذنا/ ابوخليل

كود بسيط وممتاز

( A )   كدا ساخذ نفس الكود واضبطه لكل قاعده منفصل واغير حرف 

 الى اى حرف اخر حتى اميز كل قاعده عن الاخرى عند الدمج 

لك كل الشكر والتقدير

 

 

تم تعديل أبريل 23, 2021 بواسطه hassan951