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

ابوخليل

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    12,480

  • تاريخ الانضمام

  • Days Won

    233

 نوع المحتوي 

كل منشورات العضو ابوخليل

  1. ابوخليل
    السلام عليكم تم اصلاح البحث البحث بالتاريخين اجباري والحقلين الآخرين اختياري ايضا يمكنك فتح التقرير على نتائج البحث وحيث يوجد في جهازي الاصدار 2003 فاضطررت الى تحويل الصيغة الى mdb تفضل مثالك بعد التعديل vcb.rar
  2. ابوخليل
    اخونا وحبيبنا هي ليست فكرة وليست نجاح وفشل هي حقيقة الكود يلغي رسائل التحذير على مستوى قاعدة البيانات مالم تعكس الكود ويبدو ان هذا ما يحدث عندك من خلال النماذج الاخرى تتبع هذه العبارة DoCmd.SetWarnings بالبحث في برنامجك وعطلها
  3. ابوخليل
    وعليكم السلام الامر يسير فقط اكتب سطر التعطيل في حدث فتح نموذج البداية DoCmd.SetWarnings False سيتم تعميم الاجراء على كافة قاعدة البيانات حتى يتم اغلاقها
  4. ابوخليل
    السلام عليكم مادام الكود يعمل ؛ انظر الى امان الماكرو في اكسس وقم بتخفيضه الى الحد الأدنى فقد يكون ارتفاع الأمان هو السبب
  5. ابوخليل
    اخوي طارق نحن ننظر للسؤال ونحاول تطبيق المطلوب بالضبط الدالة Round تعطي نتيجة 12 وليس 11 هذا هو اللبس الذي وقع بينك وبين اخوتك وهو ان السؤال الذي طرحته غير مطابق لما تريد
  6. ابوخليل
    مفهوم هذا الكلام انك تريد حذف الكسر العشري مهما كان بدون ان يتأثر العدد الصحيح ودالة Int تفعل ذلك
  7. ابوخليل
    تم مع الشكر والتقدير
  8. ابوخليل
    في المرات القادمة اعمل مثال بسيط ، يوضح الفكرة تفضل تم التعديل على مصنف اكسل ، والدالة لا يختلف عملها هنا او هناك Xl00.rar
  9. ابوخليل
    نعم كلامك صحيح ، الصور خارج قاعدة البيانات فليس لها تأثير
  10. ابوخليل
    السلام عليكم جرب استخدام int هكذا Int([text1])
  11. ابوخليل
    في بالي لوكان المرفق mdb لاشارككم استاذنا تمون واكثر .. وأشكرك على تواضعك ولطفك وبالعكس مثل هذه تحمل بين طياتها التقدير والمحبة ، اكرر شكري وتقديري .. ترشيح محل اعتبار
  12. ابوخليل
    مشاركة مع الاستاذ محمد جزاه الله خيرا هنا يلغي رسالة أكسس Private Sub المهنة_NotInList(NewData As String, Response As Integer) Undo Response = 0 MsgBox "(لاتوجد هذه المهنه ضمن الاختيارات)" End Sub
  13. ابوخليل
    جرب اضف مع الكود المذكور الجملة التالية : Or Is Null
  14. ابوخليل
    وعليكم السلام اجابة لسؤالك الاول تفضل من هنا .. هذا ما تبحث عنه السؤال الثاني فضلا ادرجه في موضوع جديد مستقل
  15. ابوخليل
    شكرا لكم جميعا ولا يحتاج تاخذون رأي احد لانكم انتم اهل المنتدى واعرف بالفائدة والمصلحة العامة
  16. ابوخليل
    If MsgBox("هل تريد حذف هذا السجل ؟", _ vbCritical + vbYesNo, _ "تحذير") = vbYes Then DoCmd.RunCommand acCmdDeleteRecord Else Exit Sub @Shivan Rekany
  17. ابوخليل
    احتمال يكون الخلل من تفعيل بعض خصائص قاعدة البيانات الصورة في المرفقات هي لخيارات قاعدة بيانات mdb ابحث عن الخاصية المحاطة بالمربع الاحمر في الخيارات الخاصة بالاصدار الذي تعمل عليه ثم ازل العلامات من مربع الخيار ان وجدت ثم اغلق قاعدة البيانات وافتحها من جديد
  18. ابوخليل
    السلام عليكم مشاركة معكم احبتي الكود الذي تفضلت بعرضه ثم قام بالتعديل عليه الاستاذ جمال يعمل بكفاءة حسب الطلب في المثال : انقر على الزر فيقوم بتغيير الخاصية على جميع النماذج حتى النموذج المفتوح db1.rar
  19. ابوخليل
    السلام عليكم يتصور حدوث هذا في كود تحديث update يمر على الحقل ويقارن ويطبق التعديل ويمكن تضع هذا الكود في عنصر تحكم حقل غير منضم داخل النموذج =IIf([a]=[b];0;[a]) وكذلك يمكن تطبيقه عند ادخال القيمة في النموذج وفي حدث بعد التحديث لحقل a If a = b Then a = 0 اي لما ادخل قيمة في a تساوي قيمة b تتحول لصفر بمجرد خروجي من الحقل
  20. ابوخليل
    شكرا استاذنا العلامة محمد صالح شرح ولا اروع درر ونفائس وعمل احترافي نادر جعله الله في موازين اعمالك
  21. ابوخليل
    الاكواد واضحة ليست بحاجة لشرح اذا فيه حاجة خافية عليك خبرني
  22. ابوخليل
    جزاك الله خير
  23. ابوخليل
    وعليكم السلام ورحمة الله وبركاته تم النقل الى القسم المناسب
  24. ابوخليل
    نعم يمكن توظيف كود الاستاذ sandanet لانه لا فرق بين جلب رقم قطعة واحدة او اكثر ، لاننا نجلب نتيجة معادلة ولكن الاشكالية تبقى مع العميل ,, ما ذا لو اراد تغيير الجهاز .. كما هو معلوم التقنية في تطور دائم اما ان نعمل جانب حسن الظن او سنخسر كثير من شعبيتنا بانتظار نتائج التجربة والملاحظات ان وجدت من بقية الاخوة الاعضاء
  25. ابوخليل
    السلام عليكم تفضل تم التعديل كما طلبت بالصورة عد نوع التعليم.rar
×
×
  • اضف...

Important Information

  I accept