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

السلام عليكم ...

برنامج زيارات المدارس ... عندي صور للبرنامج ...

مرفق لك ملف به صور للبرنامج .

scolpic.rar

اشكرك اخي فتى الوادي

البرنامج المرسله صورة شكله رائع

لكن انا قمت بتصميم برنامج عن الزيارات ولكن صادفتني بعض العوائم مثل ما ذكرته في بداية الموضوع

أرجوا ان كان لديك حل لطلبي أن تكتبة

تحياتي

السلام عليكم ...

ابشر ولا يهمك ...

أرسل لي القاعدة والمطلوب ... وسأصلحها لك إذا أستطعت ..

amotaib@hotmail.com

اشكرك اخي فتى الوادي على تجاوبك معي

لكن مشروعي ضخم جداً ولا يمكنني ارساله لانه يحتوي على اكثر من اربعين نموذج و تقرير

والجداول في قاعدة ثانية

اكرر شكري وتقديري لك

واتمنى منك ومن الأخوه ممن لديه الحل فل يسارع به مشكوراً

أربط بين الشروط الثلاثة بواسطة and ثم then بعد الشروط الثلاثة.

من فضلك هل تربط لي الشروط الثلاثة مع بعضها لاني حاولت كثيراً لكن لم انجح

فالفواصل والفواصل المنفوطة وعلامة التنصيص والأقواس وغيرها والتي نرها دائماً في الأكواد

اجهل بها كثيراً وتتداخل لدي

اتمنى اللا اكون قد اثقلت عليك

تحياتي

ضع نسخة من الجدول الموجود فيه هذه الحقول و ان أمكن نموذج الادخال و سوف أحاول معه.

تفضل استاذي القدير الجداول مع النماذج

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

http://www.officena.com/ib/index.php?showtopic=5934

آمل أن تجد حلاً

وتقبل تحياتي

أخي أبورغد الكود مكتوب بشكل سليم"فيما يخص شروط if الثلاثة" و لكن فعلا في بعض الأحيان يشتغل بشكل صحيح و الأخرى يسمح بتكرار نفس المعلومات

اشكرك اخي

هل تسطيع جمع الشروط الثلاثة بشرط واحد

يعني جمله if واحده بدلاً من ثلاث جمل

ولك تحياتي

هذا هو الكود مع if واحد

 If DCount("school", "Tvisit", "school = forms!visit!school2") > 1 And DCount("date_d", "Tvisit", "date_d = forms!visit!day_1") > 1 And DCount("date_m", "Tvisit", "date_m = forms!visit!day_2") > 1 Then

يمكن أن تستبدل عبارة and بعبارة or حسب الطريقة التي تريد بها تنفيذ الاستعلام.

لا تنسى أن تمسح سطرين end if كوننا أنقصنا 2 if من الكود.

اشكرك ايها المشرف القدير

لقد ركبت الكود واصبح يعمل بشكل جيد

تقبل تحياتي