ابوخليل

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

اول مرة أمر بحالة تشبه طلبك 800 زر في شاشة واحدة .. .. غير معقول لماذا غير معقول ؟ لان فكرة البرمجة جاءت لاختصار مثل هذه الخطوات واختزالها في حركات يسيرة المطلوب منك اخي الكريم تشرح لنا طبيعة المشروع الذي تعمل عليه ولماذا ستدرج هذا الكم الهائل من الازرار ؟ فقد نجد سبيلا لمساعدتك في تحسين الفكرة

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

تم فصل الموضوع

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

السلام عليكم فضلا ابو زاهر لا تضع في المثال الا الكائنات المراد التعديل عليها اختصار الامثلة مطلوب تفضل تم التعديل ظهور نوع المستند.rar

انا اخبرتك بالمشكلة وانها المعيار المعيار لا يتوافق مع التنسيق في حقل التاريخ واللي عملته انني وحدت التنسيق في الجدولين وفي مربعات التحرير في النماذج كيف ؟ انت وضعت في بعض الاماكن التنسيق هكذا : Month([date_n]) & " / " & year([year_n]) وفي البعض الآخر هكذا : Month([date_n]) & "/" & year([year_n]) لاحظ الفرق والمتمثل في المسافات الخالية في : " / " والافضل انك تجعلها جميعا مثل الثانية اي بدون مسافات

اخي الكريم المشكلة لديك بسبب المعايير تفضل تم التعديل Data2.rar

الاستاذ محمد انا لا اوافقك بجعل المستخدم يدخل اسم المدينة كتابة .. حيث يجب الاختيار من قائمة حيث يكون عرضة للاخطاء الاملائية المقصودة وغير المقصودة مثلا في مثالك انت قمت بكتابة البحة بدلا من الباحة تم عمل المطلوب ويمكنك التجربة يمكنك ايضا لسد الثغرات نقل الكود الى حدث قبل تحديث الفورم بدلا من حدث الحقل db1.rar

استخدم حدث قبل التحديث وضع هذا السطر لالغاء الحدث DoCmd.CancelEvent

السلام عليكم انت ارفقت الجداول فقط ولكن من توضيحك لطريقة الادخال اليك الحل حسب تصوري 1- اعمل استعلاما يجمع بين رقم الشركة من الجدول الرئيس واسم المدينة والتاريخ من الفرعي 2- اعمل متغيرا نصيا عاما يحمل رقم الشركة عند كل اختيار او تغيير للشركة في النموذج الرئيس 3- في حدث قبل التحديث لحقل التاريخ مثلا في النموذج الفرعي اعمل بحث و مقارنة : ايجاد عدد السجلات في الاستعلام بحيث :( اسم المدينة + التاريخ +رقم الشركة) = (اسم المدينة + التاريخ + متغير رقم الشركة) في السجل الحالي .. اذا الناتج اكبر من صفر فيعني ان السجل الحالي مكرر ...

شكرا للاستاذ العزيز kaser906 لما يبذل من وقته وجهده اخي الكريم في التقرير لست بحاجة الى اكواد ، يوجد خاصية الفرز والتجميع انظر الصورة تتحدث ، في الاصدارات الاحدث ابحث عن الفرز والتجميع قد لا تجده كما في الصورة الأعلى يكون له الاولوية في الفرز ثم الذي يليه .. وهكذا ...

قصدت من كلامي لو اردت ان الرقم يبقى على القرن الحالي الافتراضي اللي هو 2000 فقط احذف (1-) الموجود في سطر الكود لن تتمكن من الحصول على نتيجتين مختلفتين في حقل واحد الا باستخدام واسطة لان اكسس حين تكتب الرقم ( 05) لا يعلم هل تريد 2005 أو 1905 لذا يجب ان تستخدم وسيطة مثلا : - تستخدم خانة خيار بجانب الحقل لتحديد القرن او - يتم ادخال رقم كعلامة على القرن مثلا الرقم 05 اذا ادخلته هكذا تكون النتيجة 2005 ولكن اذا اردت القرن السابق يجب ان تضيف صفرا بالبداية 005 لتكون النتيجة 1905 هذه الوسيطة يتم معالجتها داخل الكود باستخدام الشرط ( اذا كان عدد الارقام 3 اذن = 19 واذا 2 = 20 ) شي مشابه لهذا او اي وسيطة اخرى ترى انها مناسبة فالبرمجة فكر وطريقة كلمة اخيرة : كتابة اربعة ارقام اسهل من كل هذه الدوشة ..

على اعتبار ان اسم حقل تاريخ الميلاد txtdate فيما لواحتجت التغيير بين سنة 2000 و 1900 في حدث بعد التحديث اكتب السطر التالي : Private Sub txtdate_AfterUpdate() txtdate = Left(Format(Date, "yyyy"), 2) - 1 & txtdate End Sub او هذا الاختصار يقوم بالمهمة Private Sub txtdate_AfterUpdate() txtdate = "19" & txtdate End Sub واكتب في قناع الادخال في النموذج صفرين حتى لاتمكن من ادخال اكثر من رقمين