الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]ترقيم غير تلقائى بنطاقات متعددة بنفس الجدول

بدأه Mohamed Nada في 30 يونيو 2009 · 3 رد · 996 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

إخوانى الكرام

لدى فى قاعدة البيانات أكثر من شركة وأرغب فى تخصيص نطاق رقمى لكل شركة بمعنى:

عند إضافة موظف جديد نقوم أولاً باختيار الشركة ..... فيأخذ الموظف تلقائياً أعلى رقم فى هذه الشركة مضافاً إليه واحد.

وهذا ما أفعله بنجاح حالياً ولكن لشركة واحدة فقد جعلت القيمة الافتراضية لرقم الموظف الجديد تساوى

Max([Employee_ID])+1

ولكن عندما سأضيف الشركات الأخرى ستكون هذه القاعدة بدون قيمة.

وسيقول أحد الأخوة بالتأكيد لماذا هذا الطلب الغريب ... يا محمد يا ندا إجعل كل شركة فى جدول خاص بها وإجعل لها كيان مستقل.

أنا مع من يقول ذلك تماماً ... ولكن للأسف هذا هو المطلوب أن يكون كل موظفوا الشركات بجدول واحد ونموذج رئيسى واحد.

والنطاقات تكون كالتالى:

الشركة الأولى ــــــ أرقامها فى النطاق من 1000ــــــ إلى 5999

الشركة الثانية ــــــ أرقامها فى النطاق من 6000 ــــــ إلى 6999

الشركة الثالثة ــــــ أرقامها فى النطاق من 7000 ــــــ إلى 7999

الشركة الرابعة ــــــ أرقامها فى النطاق من 8000 ــــــ إلى 8999

الشركة الخامسة ــــ أرقامها فى النطاق من 9000 ــــــ إلى 9999

يارب يكون السؤال واضح ... وربما يكون المرفق يعبر عن السؤال.

تحياتى

محمد ندا

Numering_Question.rar

تم تعديل هذه المشاركة بواسطة Mohamed Nada في 30 يونيو 2009 في 22:31

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

#2

مرحباً أخي محمد... ربما كان يفيد استخدام الكود التالي في الحدث المبين أدناه...

Private Sub Company_AfterUpdate()
	Employee_ID = Nz(DMax("Employee_ID", "Tbl_Main", "Company = '" & Company.Column(1) & "'") + 1, DLookup("ID_from", "Companies", "CompanyID = " & Company.Column(0)))
End Sub

أرجو أن يكون ذلك مفيداً ولو بالفكرة..

آسف... نسيت أن أذكر أنه ينبغي إضافة حقل يوضح بداية الترقيم لكل شركة في جدول الشركات... الكود السابق يضيف واحداً إلى آخر رقم موظف في الشركة التي تم اختيارها للسجل الجديد، ويأخذ أول ترقيم للشركة من جدول الشركات في حالة إدخال أول موظف كما في المرفق...

Numering_Question.rar

تم تعديل هذه المشاركة بواسطة أحمد مبارك الحيقي في 30 يونيو 2009 في 23:11

#3

مرحباً أخى الكريم أحمد مبارك الحيقى

مليون شكراً على الرد السريييييييييييييييييع جداً

ومليون حسنة أتمناها لك فى ميزان حسناتك حتى لا تحصى ما فيه.

بمنتهى السرعة والدقة ...

تمت الإجابة

تحياتى

محمد ندا

تم تعديل هذه المشاركة بواسطة Mohamed Nada في 1 يوليو 2009 في 01:16

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

#4

أخى الكريم أحمد مبارك الحيقى

إخوانى الكرام

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

فى حالة أن يكون هناك موظف موجود حالياً بإحدى الشركات وقام أحد المستخدمين بتغيير الشركة من الكومبو بوكس فيحدث أن يتغير رقم الموظف إلى أعلى رقم بالشركة الجديدة.

وبذلك يكون رقم الموظف الفعلى قد ذهب إلى حيث ذهب .. وأخذ الموظف رقم جديد وهذا خطأ كبير تترتب عليه مشاكل كبيرة طبعاً.

ولحل ذلك قمت بالتعديل البسيط على مرفق أستاذنا أحمد مبارك ليقوم التطبيق قبل بالتحقق من خلو حقل إسم الموظف قبل إكمال الإجراء .. وفى حالة وجود إسم بالحقل يتم إلغاء التعديل وإخطار المستخدم برسالة توضح ذلك.

بالمرفق

تحياتى

محمد ندا

Numering_QuestionUP2.rar

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…