الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود منع تكرار قيمة معينة في نموذج

بدأه coca cola7 في 7 سبتمبر 2013 · 10 رد · 3,586 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

تحياتي لكم جميعا

 

sales.rar

#2

تفضل :)

 

استخدم السطر الثاني ، بدل سطرك الاول :

a = DLookup("[iNVOICENO]", "INVOICE", "[iNVOICENO]='" & Me.INVOICENO & "'")
a = DLookup("[iNVOICENO]", "INVOICE", "[iNVOICENO]=" & Me.INVOICENO)

 

انت كنت تعامل INVOICENO انه نص ، بينما هو رقم :)

 

جعفر

تم تعديل هذه المشاركة بواسطة jjafferr في 7 سبتمبر 2013 في 00:59

1
#3

اشكرك اخي جعفر

سوف اجرب الكود الجديد وسوف اخبرك بما حصل معي ؟

#4

اشكرك اخي جعفر بارك الله فيك واحسن اليك لو تعلم كم انا ممتن لك لانني كنت عاجز جدا عن حل هذه المشكلة والسبب لانني مبتدى في تعلم الاكسيس , بس لي طلب اخر لو تكرمت :

عندما ادخل فاتورة نقدية مثلا رقمها نفس رقم الفاتورة الاجلة لايسمح النموذج بذلك , فهل من الممكن ان تجعل الكود يبحث عن الرقم والنوع في الحقلين مثلا : INVOICENO  و KINDINVOICE  , ثم يسمح لك بتدوين الرقم اذا كان غير متكرر في نفس النموذج لان لي نموذجين هم  INVOICECASH و INVOICECREDIT

#5

اخي جعفر يمكنك التاكد من وجود المشكلة من الملف المرفق في مشاركتي الاولى 

تم تعديل هذه المشاركة بواسطة coca cola7 في 7 سبتمبر 2013 في 17:12

#6

اخي جعفر 

 

ارفق لك  الملف بعد التعديل والتاكد من وجود مشلكة تكرار رقم الفاتورة النقدية والاجلة .

ولكي اوضح لك اكثر 

لدي عدد 2 نموذج واحد للفواتير النقدية واخر للفواتير الاجلة اريد من ذلك الكود ان يسمح بتكرار رقم الفاتورة ونوعها وليس برقم الفاتورة فقط حيث انه عند ادخال فاتورة اجلة رقمها 2000 يسمح  بادخال فاتورة نقدية رقمها 2000 وهذا ما لايسمح به الكود , فارجو تعديل الكود لكي يسمح لي بذلك.

تم تعديل هذه المشاركة بواسطة coca cola7 في 7 سبتمبر 2013 في 18:18

#7

ان شاء الله هذا اللي تريده :)

 

غير السطر اعلاه الى هذا السطر:

a = DLookup("[iNVOICENO]", "INVOICE", "[iNVOICENO]=" & Me.INVOICENO & " AND [KindInvoice]= '" & Me.KINDINVOICE & "'")

 

 

جعفر

1
#8

اشكرك استاذ جعفر كثيرا كثيرا كثيرا فقد تم حل المشكلة , ولكن ممكن تعلمني مما تعلمت  "فقد قيل علم شخص حرفة خير من ان تعطيه خبز كل يوم" , ممكن تشرح لي الكود وكيف يعمل وما الفرق بين الكود الاصلي الذي ارفقته انا في الملف وبين الكودين الذان اعطيتهم لي فيما بعد .

وتقبل خالص تحياتي وربنا يوفقك في الدارين

تم تعديل هذه المشاركة بواسطة coca cola7 في 8 سبتمبر 2013 في 08:07

#9

استاذ جعفر

سامحني  اتعبتك كثير ولكن اتمنا من الله ان يرزقك العلم النافع مقابل ما تعلمنا ومقابل ما تنفعنا به

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

AR.rar

#10
coca cola7 كتب:

اشكرك استاذ جعفر كثيرا كثيرا كثيرا فقد تم حل المشكلة , ولكن ممكن تعلمني مما تعلمت  "فقد قيل علم شخص حرفة خير من ان تعطيه خبز كل يوم" , ممكن تشرح لي الكود وكيف يعمل وما الفرق بين الكود الاصلي الذي ارفقته انا في الملف وبين الكودين الذان اعطيتهم لي فيما بعد .

وتقبل خالص تحياتي وربنا يوفقك في الدارين

حياك الله :)

 

وان شاء الله لما يخف عني الشغل شوي ، اشرح لك شوي :)

 

والسبب انك ما تقدر تدخل في البرنامج الثاني ، هو ان صاحبه حاط له حمايه ، فرجاء مراجعة المبرمج :)

 

واما طرق الحماية ، فاليك الرابط:

/index.php/topic/279879-مساعدة-ازالة-ازرار-التحرير-من-العمل-النهائي/?p=1349175

 

 

 

جعفر

#11

اشكرك , وربنا يوفقنا ويفوفقك في عملك 

تحياتي  :)  ;)  ;)  ;)  ;)  ;)

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…