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

الترقيم بناءً على إسم الشركة

بدأه slamc2000 في 25 مارس 2020 · 2 رد · 419 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أخواني لدي نموذج مرفق أريد ترقيم الموظفين بناءً على إسم الشركة (Company_Name) والحقل المطلوب ظهور الرقم فيه هو (Staff_No) 

أي يكون هناك ترقيم متسلسل للموظفين بناءً على إسم الشركة 

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

المحاولات:

Me.Staff_No = Nz(DMax("[Staff_No]", "Staffs_Table", "[Company_Name] = '" & Me.Company_Name & "'"), 0) + 1

 

Me.Staff_No.Value = DCount("Company_Name", "Staffs_Table", "Company_Name= ' " & Me.Company_Name.Value & " ' ") + 1
 

http://www.mediafire.com/file/2i79npmb2pn9td5/site.rar/file

 

توجد أخطاء بالبرنامج بسبب حذف بعض الجداول لتصغير حجم الملف

 

site.laccdb

#2

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

جرى تصحيح ما يلي:

Me.Staff_No = Nz(DMax("[Staff_No]", "Staffs_Table", "[Company_Name] = '" & Me.Company_Name & "'"), 0) + 1

الى

Me.Staff_No = Nz(DMax("[Staff_No]", "Staffs_Table", "[Company_Name] = " & Me.Company_Name), 0) + 1

الخطا في Company_Name هو عبارة عن رقم وليس إسم

جرى التعديل على نفس المرفق

site.rar

تم تعديل هذه المشاركة بواسطة abd151 في 1 أبريل 2020 في 12:51

الحمد لله

#3

Me.NoEmployee.Value = DCount("NameCompany", "Table2", "NameCompany = '" & Me.NameCompany.Value & "' ") + 1

DcountforCompany.rar

تم تعديل هذه المشاركة بواسطة mmsrmacc في 11 أبريل 2020 في 01:40

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