ابوخليل

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

If KeyCode = 27 Then DoCmd.OpenForm "frm1" End If

المسألة واضحة ليست بحاجة الى شرح تم الاعلان عن متغير mys اذا تم الفتح بطريقة نظامية المتغير سيحمل القيمة 5 عند فتح اي نموذج والقيمة لا تساوي 5 يتم اغلاق قاعدة البيانات مرفق مثال بدون الوحدة النمطية التي تحمل قيمة mys وانما نستخدم الوحدة النمطية لاستعمالات اوسع dbx2.rar

نعم في المثال ما يغني عن المقال dbx.rar

البرنامج يحتوي على كائن عنصر Actevix وهذا الكائن بحاجة الى مكتبة خارجية ( برنامج او تعريف) جرب تشغله على اصدارات احدث من اوفيس يمكن انها تشتمل على هذه المكتبة

هذه وحدة نمطية صنعتها لك افتح النموذج على التصميم واذهب الى محرر الفيجوال سوف ترى الوحدة النمطية وهي عبارة عن استعلام يجيب اخر قيمة من الرصيد الختامي lastrseed() هي قيمة الاستعلام نفسه ولاحظ اني اضفت مفتاح للجدول وهو عبارة عن حقل ترقيم تلقائي من اجل اجعله معيار لآخر قيمة

تفضل تم التعديل في نموذج الادخال يتم نقل الرصيد الختامي الى الحقل الجديد في الرصيد الاولي وذلك بالاستفادة من خصائص القيمة الافتراضية للحقل الآن بمجرد تحديث الرصيد الختامي يتحدث الرصيد الاولي التالي اتمنى ان تروق لك هذه الحيلة process1.rar

تفضل عزيزي افتح frm3 واعطني صورة منه كلمة المرور 123 dbx.rar

ولماذا تخفيها ؟ فلست في حاجة لذلك عند التحويل الى 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 واكتب في قناع الادخال في النموذج صفرين حتى لاتمكن من ادخال اكثر من رقمين

ملاحظاتك في محلها ومشكلة شاشة التحويل ان كود الرصيد كان يقرأ من المحول اليه وليس من المحول منه تم الضبط وايضا تم عمل كشف للارصدة نكون هنا استوفينا أساسات المشروع اتمنى لك التوفيق ،،، db14.mdb

امسح كلمة : تجميع حسب التي تحت Expr1