اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابوخليل

أوفيسنا
  • Content count

    8,131
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    81

ابوخليل last won the day on April 14

ابوخليل had the most liked content!

السمعه بالموقع

2,588 Excellent

عن العضو ابوخليل

  • الرتبه
    فريق الموقع

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    طالب علم
  • بلد الإقامة
    القصيم
  • الإهتمامات
    التصميم والبرمجة

اخر الزوار

6,508 زياره للملف الشخصي
  1. ولماذا تخفيها ؟ فلست في حاجة لذلك عند التحويل الى mde يستحيل فتح التصميم ، ولو تم كسرها فانها ستفتح بدون اكواد برمجية اما الفتح للعرض فيمكنك وضع ضوابط بحيث لا يمكن فتح النموذج الا بعد الدخول الصحيح الى البرنامج
  2. اول مرة أمر بحالة تشبه طلبك 800 زر في شاشة واحدة .. .. غير معقول لماذا غير معقول ؟ لان فكرة البرمجة جاءت لاختصار مثل هذه الخطوات واختزالها في حركات يسيرة المطلوب منك اخي الكريم تشرح لنا طبيعة المشروع الذي تعمل عليه ولماذا ستدرج هذا الكم الهائل من الازرار ؟ فقد نجد سبيلا لمساعدتك في تحسين الفكرة
  3. الفرق بين دالة if و nz

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

    فضلا افتح موضوعا جديدا لاستفساراتك الجديدة
  5. السلام عليكم فضلا ابو زاهر لا تضع في المثال الا الكائنات المراد التعديل عليها اختصار الامثلة مطلوب تفضل تم التعديل ظهور نوع المستند.rar
  6. انا اخبرتك بالمشكلة وانها المعيار المعيار لا يتوافق مع التنسيق في حقل التاريخ واللي عملته انني وحدت التنسيق في الجدولين وفي مربعات التحرير في النماذج كيف ؟ انت وضعت في بعض الاماكن التنسيق هكذا : Month([date_n]) & " / " & year([year_n]) وفي البعض الآخر هكذا : Month([date_n]) & "/" & year([year_n]) لاحظ الفرق والمتمثل في المسافات الخالية في : " / " والافضل انك تجعلها جميعا مثل الثانية اي بدون مسافات
  7. اخي الكريم المشكلة لديك بسبب المعايير تفضل تم التعديل Data2.rar
  8. منع التكرار في النموذج الفرعي

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

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

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

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

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