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

[ تمت الإجابة ]أريد كود خاص للأصناف بشرط عند كتابة نوع الصنف

بدأه Azizmm في 9 يوليو 2009 · 6 رد · 497 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

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

عندي مشكلة وأريد حلاً لها يا أعضاء ومشرفي المنتدى وهي كالتالي:

في جدول الأصناف جعلت كود الصنف على هذا الشكل:00-000 وبناءاً على نوع الصنف يأخد الصنف رقم كوده فمثلا عندنا للأصناف عدة أنواع:طلاء-كهربية-بلاستيك-وغير ذلك وقد جعلت لكل نوع كوده الخاص به فمثلا:

النوع طلاء يكون كوده يبدأ بـ 10-001 وكما نعلم بأن هذا النوع له عدة أنواع:10-001-

10-002

10-003 الخ

كوده النوع كهربية

11-001

11-002

11-003 الخ

والنوع بلاستيك كوده يبدأ:

12-001

12-002

12-003الخ

وأريد عند كتابة نوع الصنف يأخد الصنف كوده بناءاً على نوعه ويكون مرتباً

وقد أرفقت جدول الاصناف واريد حلا لهذا الاشكال

ولكم جزيل الشكر والعرفان

________003.rar

تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 11 يوليو 2009 في 19:52

#2

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

نحتاج أخي إلى إضافة حقل الكود (10، 11، 12، ...) إلى جدول الأنواع (حديد، بلاستيك، كهربائية،...) لنعرف بداية كود كل نوع، وإلى إضافة الكود التالي في نموذج إدخال الأصناف (عند اختيار نوع الصنف DES):

Private Sub DES_AfterUpdate()
	If IsNull(ITEM_NO) Then
		ITEM_NO = DLookup("code", "units", "units = '" & DES & "'") & Right(DMax("item_no", "inventory", "des = '" & DES & "'") + 1, 3)
	End If
End Sub

تجد هذا في الملف المرفق، ربما تستفيد منه إن لم يكن المطلوب تماماً...

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

InventoryNumbering.rar

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

#3

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

لقد اعجبني مقترحك يا اخ احمد مبارك الحيق ولكن هذا إذا كان لدينا رقم مسبق أما إذا لم يكن هناك رقم مسبق للصنف فإنه لا يعمل

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

أرجو الرد السريع

والسلام وجزاك الله خيراً أعذرني ....

#4

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

أرجو تعديل الكود إلى التالي:

If IsNull(ITEM_NO) Then
		ITEM_NO = (DLookup("code", "units", "units = '" & DES & "'") * 1000) + Right(Nz(DMax("item_no", "inventory", "des = '" & DES & "'"), 0) + 1, 3)
	End If
#5

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

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

وشكرا على مجهودك وتشكر عليه ونسأل الله ان يجعله في ميزان حسناتك وبارك الله فيك وفي الأخوه على رحابة صدرهم

والسلام..........................ومشكووووووووووور

#6

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

جرب فقط أن تبعد الــif

'If IsNull(ITEM_NO) Then
		ITEM_NO = (DLookup("code", "units", "units = '" & DES & "'") * 1000) + Right(Nz(DMax("item_no", "inventory", "des = '" & DES & "'"), 0) + 1, 3)
'End If
#7

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

مشكور على فكرتك وقد نجحت وبارك الله فيك يا اخ احمد وبارك الله فيجميع اعضاء المنتدى من مشرفين ومبرمجين واعضاء وزوار ...

وأزيدعلى ذلك اتمنى وارجو من الله ان يجعل عملك في ميزان حسناتك

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

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

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

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

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