تصحيح كود الاضافه بالباكورد مع ظهور رساله في حاله عدم وجود الصنف

[النجاشي]

السلام عليكم 

احبتي 

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

الا محيرني اذا ادرجت الصنف الذي يكون بالسجل الاول يخرج التركيز من الحقل

تحياتي احبتي

تحياتي

الباكورد.accdb

[ابو ياسين المشولي]

منذ ساعه, ابو زاهر said:

السلام عليكم 

احبتي 

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

الا محيرني اذا ادرجت الصنف الذي يكون بالسجل الاول يخرج التركيز من الحقل

تحياتي احبتي

تحياتي

الباكورد.accdb

جرب هذا

If IsNull(DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")) Then
 MsgBox " المـعـذرة  يـرجـاء  الـتـأكـد .... لا  تـو جـد صـنـف  بـهـذا  الـرقـم ", vbInformation, "رساله"
 DoCmd.CancelEvent
 End If

 

تم تعديل أكتوبر 17, 2018 بواسطه ابو ياسين المشولي

[النجاشي]

2 دقائق مضت, ابو ياسين المشولي said:

جرب هذا

If IsNull(DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")) Then
 MsgBox " المـعـذرة  يـرجـاء  الـتـأكـد .... لا  تـو جـد صـنـف  بـهـذا  الـرقـم ", vbInformation, "رساله"
 DoCmd.CancelEvent
 End If

 

يعطي رساله استاذي ابو ياسين ويظيف الرقم بالفرعي

 

[ابو ياسين المشولي]

2 دقائق مضت, ابو زاهر said:

يعطي رساله استاذي ابو ياسين ويظيف الرقم بالفرعي

 

استبدل   

 DoCmd.CancelEvent

بهذا

Exit Sub

[النجاشي]

6 دقائق مضت, ابو ياسين المشولي said:

جرب هذا

If IsNull(DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")) Then
 MsgBox " المـعـذرة  يـرجـاء  الـتـأكـد .... لا  تـو جـد صـنـف  بـهـذا  الـرقـم ", vbInformation, "رساله"
 DoCmd.CancelEvent
 End If

 

لقد اضفت عليه Exit Sub

واشتغل مظبوط بارك الله فيك يالغالي