ابورغد

الأخ أمجد اعتذر عن عدم الرد وانا لدي معرفة بسيطة عن ما تريد وذلك بسبب بعدي عن المنتدى في الفترة السابقة فما تعنية انت هو جهاز صغير يباع لدينا في السعودية واسمة الجرس المدرسي ، يتم ربطة مع جهاز الحاسب عن طريق الكيبل الخاص بالطابعة وذلك من اجل برمجه ، ويوجد لدى وكلاء هذا المنتج المنتشرين في المدن برنامج خاص ببرمجة المواعيد (الطابور الصباحي ،الحصة الأولى ،الثانية ،الفسحة ، وهكذا وكذلك يتم برمجة عدد دقات الجرس ، مره أو مرتين وعلى ما اعتقد ان أكثر مدة للدقات الجرس هي 9 ثواني وذلك لكي لا يتلف الجرس الموصل به الفكرة بدأت من شباب في كلية الهندسة على ما اعتقد في جامعة الملك سعود بالرياض ومن ثم تم تطوريها وتم انتاجة في تايلند واصبح بشكل جديد وبتقنيات أفضل حيث تم التحكم به عن طريق الجهاز نفسة دون الرجوع الى الحاسب ويجود مع الجهاز برنامج والوصلات الخاصة به لربطة بالحاسب ويمكن أن يتم تخزين حوالي 12 جدول زمني مثلاً جدول للمدارسة الصباحية وجدول للمدرسة الليلية وجدول للدوام الصيفي وجدول للدوام الشتوي وهكذا بحيث يتم تحديد الجدول المخزن ومن ثم يتولى هو دقات الجرس المخزنه به الجهاز سعره حوالي 800 ريال شامل الملحقات هذا مالدي وآمل أن اكون قد أفدك بشي من عندي وتقبل تحياتي

اكرر شكري لك اخي رضوان بالنسبة للزيارة الخاصة بالمدرسة فانا أرغب اللا تتكرر للمدرسة في نفس اليوم والشهر والسنة فيوم السبت مثلاً الموافق 1\1\1425 هناك زيارة للمدرسة رقم 500 للمشرف رقم 1 ويوم الأحد الموافق 2\1\1425 هناك زيارة للمشرف نفسة لكن في مدرسة رقم 501 وهكذا لكن اذا قمت بتسجيل زيارة للمشرف رقم 2 في يوم 1\1\1425 للمدرسة رقم 500 هنا يتحقق الشرط الذي أريد اما بالنسبة لوضع رقم المشرف ورقم المدرسة مفتاح اساسي فهذا يسبب لي مشكلة لانه يوجد زيارات للمشرف في نفس المدرسة اكثر من مرة في العام الواحد اي انه يمكن ان يقوم المشرف زيارة مدرسة معينه اكثر من مرة سواء في الأسبوع الواحد او الشهر الواحد اما بالنسبة لعدم وضعي التاريخ بالتنسيق الطويل فهذا يسبب لي مشاكل في ادخال التاريخ لانه سوف يوزع البرنامج على الشبكة ويقوم كل مشرف بوضع خططة الخاصة بنفسة ، ولتفادي ذلك فقد جعلت التاريخ عبارة عن ثلاثة حقول في الجدول ويتم ادخالة عن طريف النموذج بواسطة قوائم تحرير وسرد فالهدف هو عدم تكرار زيارة المدرسة الواحده في نفس اليوم والشهر والسنه واعطاء رسالة تنبيه بذلك ولعلي اوضح لك ذلك بالكود التالي If DCount("school", "Tvisit", "school = forms!visit!visit1!school") > 1 Then If DCount("day", "Tvisit", "day = forms!visit!visit1!day") > 1 Then If DCount("visit_id", "Tvisit", "visit = forms!visit!visit1!visit_id") > 1 Then If DCount("day_1", "Tvisit", "date_d = forms!visit!visit1!day_1") > 1 Then If DCount("day_2", "Tvisit", "date_m = forms!visit!visit1!day_2") > 1 Then If DCount("day_3", "Tvisit", "date_y = forms!visit!visit1!day_3") > 1 Then If MsgBox(" هذه المدرسة قد سجل لها زيارة في نفس اليوم من قبل مشرف آخر ", vbMsgBoxRight + vbYesNo + vbDefaultButton2, "الاشراف التربوي ") = vbYes Then DoCmd.GoToRecord , , acNewRec Cancel = True Else If MsgBox("هل تريد عرض الزيارات المشابهة", vbMsgBoxRight + vbYesNo + vbDefaultButton2, "الاشراف التربوي") = vbYes Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.OpenForm "visit6" (visit6)= نموذج مصدر بياناته عبارة عن استعلام ويقوم بعض الزيارات المتشابهه للزيارة المسجلة حالياً Else MsgBox "اذا عليك تسجيل الزيارة من جديد ", vbMsgBoxRight + vbOKOnly + vbDefaultButton2, "الاشراف التربوي " DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Cancel = True End If End If End If End If End If End If End If End If End Sub ارجوا أن اكون قد اوضحت واتقدم لك بالشكر الزيل اخي رضوان ولدي طلب آخر وهو عند فتح النموذج visit6 كيف يكون المعيار الخاص بذلك وخاصة أن النموذج كما هو موضح بالكود يحتوي على نوذجين visit = النوذج الأصلي visit1= النموذج الفرعي والذي من خلاله يتم تسجيل الزيارات

اشكرك اخي رضوان على تجاوبك معي ما اعنيه هو أن لدي جدول خاص بزيارات مشرفين تربويين للمدارس والهدف هو عدم وجود زيارة لمشرفين في نفس اليوم الواحد وليس الجدول اسمة Tvisit الحقول ID = رقم السجل المدني للمشرف school=رقم المدرسة التي سوف تزار day=يوم الزيارة day_1 = تاريخ يوم الزيارة day_2 = شهر الزيارة day_3 = سنة الزيارة visit_ID = الهدف من الزيارة الحقول السته الأخيرة هي التي أرغب عند تكرارها في الجدول يعطيني رسالة تنيه وانا مخير بتسجيلها أو حذفها وقد ركبت الجملة الشرطية التي ذكرتها في بداية الموضوع وذلك بجعل كل حقل له جملة شرطية واحدة ، وانا ارغب بأن اجمع تلك الحقول في جملة واحدة فقط وليس بست جمل شرطية أرجوا أن اكون قد أوضحت وتقبل تحياتي

السلام عليكم ورحمة الله وبركاته لقد تتبعت المنتدى وبحثت عن عدم تكرار السجلات في الجدول ووجدت المطلوب وذلك بتحقق شرط واحد فقط كما في الكود : Dim Result As Long Result = DCount("[FldName]", "YourTbl", "[FldName] = '555'") If Result = 10 Then MsgBox ("Your message here") End If لكن ما أريده هو أن أجعل الشرط بأكثر من حقل ولكن بدون تكرار الجملة الشرطيه، وانما بتعدد الحقول أرجو أن اكون قد أوصلت الفكره بشكل واضح ولكم تحياتي وتقديري

قام الأستاذ/ مهند عبادي مشرف قسم الفيجول والأكسس بمنتدى الفريق العربي بوضع هذه الأداء ، وقد قام مشكوراً بشرحها لكن للأسف لم استطيع فهمها بشكل واضح ، فمن يستطيع شرحها يتفضل مشكوراً وجزاه الله منا ألف خير وهذا رابط الموضوع http://www.arabteam2000-forum.com/index.ph...topic=40335&hl= وشكراً