المساعدة فى عدم ظهور رسالة تعذر على مشغل قاعدة البيانات

[أكسس وبس]

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

فى الملف المرفق فى النموذج Trans_in الخاصة بفاتورة المشتريات  فى  الجزء الاسفل الخاص ببيانات  الصنف عند الضغط على  مفتاح انتر  او تاب وترك سجل فارغ تظهر هذه  الرسالة :

الرجاء  المساعدة فى عدم ظهورر رسالة  (تعذر على مشغل قاعدة البيانات microsoft office access العثور على سجل فى جدول (name) باستخدام مفتاح يتوافق مع الحقل (الحقول) number )

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

Copy of HorusAccount-1223.zip

[ابوخليل]

عليكم السلام

اطلعت على العلاقات بين الجداول وكأنها بيت العنكبوت

العلاقات لانضعها بين الجداول  الا لتقييد الادخال

احذف العلاقة الموجودة بين جدول names  وجدول  Store

[أكسس وبس]

اخى اكرمك الله

حذفت العلاقة وقمت بفتح  نموذج  Transaction subform بالضغط على مفتاح تاب عشان اترك سجل فارغ وانتقل الى السجل الى بعده تظهر نفس  الرسالة

وبعدين اريد ربط الاصناف مع المخازن عشان عند الاستعلام عن مخزن معين اعرف الاصناف الموجوده فيه

[أكسس وبس]

اين انتم   يا احباب

[ابوخليل]

منذ ساعه, أكسس وبس said:

وبعدين اريد ربط الاصناف مع المخازن عشان عند الاستعلام عن مخزن معين اعرف الاصناف الموجوده فيه

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

الا اذا اردت ان تقيد المستخدم بادخال معين  اجباريا

اذا المشكلة ما زالت قائمة  راجع العلاقات  ستجد علاقات يجب ازالتها

 

[أكسس وبس]

الاخ الفاضل ابو خليل جزاك الله خيرا عملت وجربت الى حضررتك قولت عليه برده الرسالة بتظهر عايز  يكون المستخدم حر فى التعامل مع الفاتورة المشكلة المستخدم عايز السهوله تقريبا على  حسب خبرتي فى الاكسس ان عشان  numbr فى جدول name مفتاح لا يتخطى السجل  الى  السجل التالى ويترك السجل السابق  فارغ او ان يتم وضع كود  لصنف وهو غير موجود فى جدول name  ده بالنسبة لجزء الاسفل للفاتورة على الاقل  حل المشكلة يكون حتى لو ترك المستخدم السجل فارغ لا تظهر هذه  الرسالة واذا كتب كود لصنف غير  موجود تظهر رسالة ان هذا  الصنف غير موجود وده  كود لخانة كود الصنف فى  النموذج Transaction subform عند الخروج أنا حذفته  لان فى كلتا الحالتين  سواء ترك السجل فارغ او كتب كود غير موجود تظهر الرسالة ان هذا  الصنف غير موجود ممكن تصحيح الكود بحيث يكون فى حالة لو كتب كود غير موجود

( If IsNull(DLookup("[number]", "names", "[number]='" & [ßæÏ ÇáÕäÝ] & "'")) Then
       MsgBox " åÐÇ ÇáßæÏ ÛíÑ ãæÌæÏ ÈÏáíá ÃÕäÇÝ ÇáãÎÇÒä ", vbCritical
       Cancel = -1
       End If )

معلش خليها شويه  عليك وادخل  على الملف ولا  يعدل التلميذ على استاذه

تم تعديل نوفمبر 30, 2016 بواسطه أكسس وبس

[أكسس وبس]

يا   اخى الله يكرمك ايهالحل

[ابوخليل]

تفضل تم التعديل

 

Copy of HorusAccount-122345.rar

[أكسس وبس]

اشكرك واعانك الله على فعل الخير

 

[أكسس وبس]

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