منع تكرار الصنف في الفاتورة

[ديو05]

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

وشكرا

[محمد أبوعبدالله]

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

تفضل اخي الكريم

Private Sub item_BeforeUpdate(Cancel As Integer)

Dim r As Integer
If DCount("*", "Buy_invoice", "item=" & item & " and id_invoice=" & id_invoice) > 0 Then
MsgBox "صنف مكرر", vbInformation, "تحذير"
Cancel = True
End If
End Sub

 

تحياتي

[ديو05]

10 دقائق مضت, محمد ابوعبد الله said:

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

تفضل اخي الكريم

Private Sub item_BeforeUpdate(Cancel As Integer)

Dim r As Integer
If DCount("*", "Buy_invoice", "item=" & item & " and id_invoice=" & id_invoice) > 0 Then
MsgBox "صنف مكرر", vbInformation, "تحذير"
Cancel = True
End If
End Sub

 

تحياتي

ياليت تعدل على مثالي اخي ابو عبد الله

م1.rar

ملاحظة المثال 2003

[محمد أبوعبدالله]

ممكن التوضيح لماذا حقل رقم الصنف N_alsenf = نص
وحقل رقم الفاتورة raq_fatorh = نص

لو عدلت خصائص هذه الحقول الى رقم لما حدثت مشكلة بالعكس سيكون هذا افضل في اداء البرنامج
تحياتي

 

تم تعديل مارس 29, 2017 بواسطه محمد ابوعبد الله

[ديو05]

منذ ساعه, محمد ابوعبد الله said:

ممكن التوضيح لماذا حقل رقم الصنف N_alsenf = نص
وحقل رقم الفاتورة raq_fatorh = نص

لو عدلت خصائص هذه الحقول الى رقم لما حدثت مشكلة بالعكس سيكون هذا افضل في اداء البرنامج
تحياتي

 

اعمل ماتراه مناسبا اخي الغالي

واعطني تعديلك لو تكرمت

[ديو05]

للرفع

[ديو05]

للحين مافي حل يا اخوان

[محمد أبوعبدالله]

السلام عليكم
اخي الكريم  ديو05
توجد عدة مشاكل في مثالك
مثلا لا يتم الجمع في الجداول لمعرفة الرصيد ولكن في الاستعلامات نقوم بالعمليات الرياضية ( جمع - طرح - قسمة ) فينتج الرصيد بعد ذلك من ناتج طرح كمية الشراء - كمية البيع

ثانياً المفروض ان يوجد
1 - جدول خاص ببيانات الاصناف
2 - جدول خاص ببيانات الموردين
3 - جدول خاص ببيانات العملاء

4 - جدول خاص بفواتير الشراء
5 - جدول خاص بتفاصيل فواتير الشراء

6 - جدول خاص بفواتير البيع
7 - جدول خاص بتفاصيل فواتير البيع

 

جهزت لك ملف سريع لبيان جداول العملاء والاصناف وفاتورة بيع وتفاصيل فواتير البيع
وجهزت لك نموذج فاتورة بيع

اكمل على نفس هذه الطريقة وستفيدك جداً باذن الله تعالى

تحياتي

db5.rar

[mrbakr]

جزاك الله كل خير