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

kanory

الخبراء
  • Posts

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

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

  • Days Won

    138

كل منشورات العضو kanory

  1. بالتوفيق .... الحمد لله رب العالمين
  2. لم افهم ماذا تقصد .... هل تم حل مشكلتك ... ام لم تصل فكرتي اليك ...
  3. لاحظ التقرير ....... سؤال لماذا تلك الازرة والبحث في التقرير وليس النموذج ؟؟؟؟؟ sc002.rar
  4. لكن عموما عدل كما في الصورة ........
  5. راجع هذا الموضوع تجد فيه طلبك ....
  6. تأكد من ملفك .... لاننا لم نستطع التحميل ..... خفف الكائنات الموجودة في الملف وحمله في الموقع أفضل لتجد الردود
  7. واياك ..... الحمد لله رب العالمين
  8. بارك الله فيك تم ادراج الدائرة الحمراء في الحقل المطلوب .... ثم في تفصيل التقرير وتحت حدث عند التنسيق تم إدراج هذا الكود : ' اسم الدائرة الحمراء kan ' اذا كانت الدرجة أقل من 100 يتم اظهار الدارة الحمراء If Me.sum < 100 Then Me.kan.Visible = True ' غير ذلك ( أي اذا كانت الدرجة 100 أو اكبر يخفي الدائرة Else Me.kan.Visible = False End If
  9. وضح اكثر ماهو التعديل وأين الخطأ ......
  10. نفترض أن الرسوب أقل من 100 ...... انظر المرفق ... db2-٢.rar
  11. البرنامج شغال لدي .... جربه على جهاز اخر
  12. مبدئيا .... انشئ استعلام وحدد في حقل العمر مابين كذا وكذا ... وفي حقل الرقم اجعله قيم فريدة ... ثم ارسل حسب ذلك الاستعلام
  13. الحمد لله رب العالمين ...
  14. انظر لهذا الحل ..... رواتب .rar
  15. اخي @qathi نصيحة لك ... لكي تحصل على الاجابات من الزملاء ..... ضع سؤال واحد في كل مشاركة . .... .
  16. المثال الموجود في الموضوع يتم التعديل فيه .... وهل هو مختلف عن برنامجك ....
  17. بارك الله فيك .... بالعكس نحن في الخدمة ...... لم نتواجد هنا الا للاستفاده والافادة ....
  18. تفضل جرب هذا ..... نسخ حقل في 1النماذج.rar
  19. لا تستبدل شيئ ... انسخ والصق فقط
  20. تفضل جرب هذا ..... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE DISTINCTROW kan2 LEFT JOIN kan1 ON kan2.emp_code1 = kan1.emp_code SET kan2.madfoa_kabl_tasweat = [kan1].[safy_madfoa] " & " WHERE (((kan2.mn1)=[forms]![quary]![mm]) AND ((kan2.yr1)=[forms]![quary]![nn]));" DoCmd.SetWarnings True Me.tasweat.Requery
  21. تفضل ..... [اسم_الحقل_المراد_نقل_التركيز_إليه].SetFocus
  22. استبدل الكود بهذا ..... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE DISTINCTROW tasweat LEFT JOIN safy_madfoa ON tasweat.emp_code1 = safy_madfoa.emp_code SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa] " & vbCrLf & _ "WHERE (((tasweat.mn1)=[forms]![quary]![mm]) AND ((tasweat.yr1)=[forms]![quary]![nn]));" DoCmd.SetWarnings True Me.tasweat.Requery
  23. جرب هذا الكود ..... DoCmd.RunSQL "UPDATE DISTINCTROW tasweat LEFT JOIN safy_madfoa ON tasweat.emp_code1 = safy_madfoa.emp_code SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa] " & vbCrLf & _ "WHERE (((tasweat.mn1)=[forms]![quary]![mm]) AND ((tasweat.yr1)=[forms]![quary]![nn]));"
  24. اذن . لاحظ ان السجلات في الجدول المنسوخ والمنسوخ اليه هناك سجلات غير فريدة اي متكررة من حيث العام والشهر لموظف واحد بنفس الكود . الاختلاف فقط في المبلغ . هل هذا طبيعي في برنامجك
×
×
  • اضف...

Important Information