طلب تطبيق كود على نموذج مرفق .

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

كنت سالت عن صياغة الكود المرفق من قبل

والحمد لله وجدت الرد من بعض الاخوه الافاضل واظن ان قد فهمته

لكن عند محاولة تطبيقه على قاعدة البيانات الخاصة بى لم افلح

برجاء المساعده فى تطبيقه

وجزاكم الله خيرا.

الكود

Private Sub كود_الصنف_AfterUpdate()

[بيان الصنف] = DLookup("[Name]", "Names", "Number=[كود الصنف]")

[unit price] = DLookup("[unit price]", "Names", "number=[كود الصنف]")

[unit] = DLookup("[unit]", "Names", "number=[كود الصنف]")

If IsNull(DLookup("[number]", "names", "[number]='" & [كود الصنف] & "'")) Then

MsgBox " هذا الكود غير موجود بدليل أصناف المخازن ", vbCritical

Cancel = -1

End If

رابط الملف المراد تعديله

الغرض من الكود جلب البيانات من جدول الاصناف الى بيانات اذن الصرف \ توريد البضاعه

ومن ثم باقى معاملات الشركة سوء بيع او شراء.