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

[محب العقيدة]

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

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

مثلا اريد ان افتح على شاشة الفواتير

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

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

نفرض ان حقل التاريخ قي جدول الحركات اسمه date وحقل رقم السند اسمه number  ونوع السند  اسمهtype

نضع عمود جديد في الاستعلام اذا اردنا عدم التكرار في السنة الواحدة

Year: Format([Date],"yyyy")

واذ اردنا عدم التكرار في الشهر الواحد

Year: Format([Date],"yyyymm")

نذهب لىشاشة الفواتير وضع في حقل رقم الفاتورة بعد التجديث

Dim I As Integer
I = DCount("number", "qq7", "Year = " & Format(Me!date.value, "yyyy") & "" & " and [type]='" & "فاتورة" & "'" & " and [number]=" & Me.number.value)
If I > 0 Then
MsgBox "هذا الرقم مكرر في نفس السنة ونفس نوع السند !! اختر رقما آخر"
Undo
Exit Sub

ولاقتراح رقم السند للمستخدم 

Me.Text7 = Nz(DMax("number", "qq7", "Year = " & Format(Me!date.value, "yyyy") & "" & " and [type]='" & "فاتورة" & "'"), 0)

 

[sandanet]

باختصار شديد يمكنك وضع مفتاح اساسي على تلك الحقول لمنع التكرار

[محب العقيدة]

اخي كلامك غير دقيق

اولا

لنفرض اريدادخال سند صرف رقمه1 بتاريخ1-1-2018

و سند صرف رقمه1 بتاريخ1-3-2018

سيقبل النظام

ثانيا

لا يمكن انا ابني علاقات قوية بين الجداول واقيد نفسي بمفاتيح اساسية

ثالثا

ولنفرض ان استطعت ان تنجح باستخادم المفاتيح الاساسية ارني كيف ستقترح على اليوزر الرقم المناسب للسند في السنة المدخله 

تم تعديل يناير 6, 2018 بواسطه محب العقيدة

[sandanet]

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

انت في مثالك السابق تتحدث عن طريقة فلترة البيانات حيث انك تريد فتح تقرير يعرض لك رقم السند الذي رقمه 1 مثلاً ونوعه سند صرف لشهر 5/ 2017 فقط وليس لشهر 5 / 2015 وشهر 5 /2016 وشهر 5 /2017 مجتمعة 

عملية الفلترة هذه تقوم بها من خلال استعلام فقط اي تقوم بتحديد شرط التاريخ في الاستعلام فقط لكن الجدول الرئيسي لديك يحتوي على تلك القيم المكررة اي رقم السند 1 ونوعه سند صرف موجود في تاريخ 1/5/2015 و 1/5/2016 و 1/5/2017 

اذن انت تريد الاستعلام عن قيم غير مكررة عن طريق التاريخ بينما انا اتحدث عن عدم تكرار القيم في الجدول لنفس التاريخ

تحياتي

 

تم تعديل يناير 6, 2018 بواسطه sandanet