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

[أكسس وبس]

اخوانى فى فاتورة المشترياتTrans_in يوجد نموذج فرعى frmPurches به حقل اسمه كود الصنف لاختيار كود الصنف لي طلبين بخصوص هذا الحقل 

الاول : اريد عند ادخال كود فى هذا الحقل وهذا الكود غير موجود بجدول الاصناف تظهر رسالة ان ( هذا الكود غير موجود من فضل ادخل الكود الصحيح ) 

الثانى : اريد عدم تسجيل كود غير مسجل سابقاً لصنف فى هذا النموذج لان اذا تم وادخل كود جديد وغير مسجل فى جدول الاصناف سوف يتم تسجيل كود بدون اسم الصنف 

فاتورة مشتريات.rar

[اكرم العريقي]

استخدم دالة dcount

 

[ابو جودي]

23 ساعات مضت, أكسس وبس said:

اخوانى فى فاتورة المشترياتTrans_in يوجد نموذج فرعى frmPurches به حقل اسمه كود الصنف لاختيار كود الصنف لي طلبين بخصوص هذا الحقل 

الاول : اريد عند ادخال كود فى هذا الحقل وهذا الكود غير موجود بجدول الاصناف تظهر رسالة ان ( هذا الكود غير موجود من فضل ادخل الكود الصحيح ) 

الثانى : اريد عدم تسجيل كود غير مسجل سابقاً لصنف فى هذا النموذج لان اذا تم وادخل كود جديد وغير مسجل فى جدول الاصناف سوف يتم تسجيل كود بدون اسم الصنف 

فاتورة مشتريات.rar

طيب شوف الفكرة دى 

فاتورة مشتريات_2.rar

[ابو جودي]

3 ساعات مضت, اكرم العريقي said:

استخدم دالة dcount

 

- يمكن تحقيق المطلوب باكثر من طريقة 

1- NotInList عندما تكون القيمة غير موجوده فى قائمة مربع التحرير والسرد   وهذه الطريقة تقتصر على مربع التحرير والسرد 

حدث غير موجود فى القائمة

'الطريقة الاولى

'Private Sub Category_Code_NotInList(NewData As String, Response As Integer)
'MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه"
'Me.Undo
'SendKeys "{Esc}{Esc}"
'End Sub

2- كما تفضلتم عن طريق DCount

'الطريقة الثانية
'DCount

Private Sub Category_Code_BeforeUpdate(Cancel As Integer)

Dim Code_NotInList As Integer
Code_NotInList = DCount("Category_Code", "Items", "Category_Code= " & [Category_Code])
If Code_NotInList <> 1 Then
MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه"
Me.Undo
Else
End If

End Sub

3- وايضا ممكن عن DLookup 

حدث قبل التحديث

'الطريقة الثالثة
'DLookup

Private Sub Category_Code_BeforeUpdate(Cancel As Integer)

Dim Code_NotInList
Code_NotInList = DLookup("Category_Code", "Items", "Category_Code= " & [Category_Code])
If IsNull(Code_NotInList) Or Code_NotInList = "" Then
MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه"
Me.Undo
Else
End If

End Sub

وتم ادراج الاكواد المناسبة للثلاث طرق فى المرفق الاتى 

يمكن التبديل بينهم للتجربة

 

المطلوب بثلاث طرق - فاتورة مشتريات.rar