اذهب الي المحتوي
أوفيسنا

ابوخليل

أوفيسنا
  • Posts

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

  • Days Won

    239

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

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

Important Information