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

Barna

الخبراء
  • Posts

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

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

  • Days Won

    25

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

  1. معليش اخي محمد لم افهم المقصود باخر سطر .... هل تقصد هذا ؟؟؟ وهل الكود احيانا يعمل واحيانا لا ؟؟
  2. جاري التجربة استاذ @Ezril
  3. استخدم هذا .................. Dim i As Integer Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("t1") While rst.RecordCount >= 10 rst.MoveFirst For i = 1 To 6 rst.Delete rst.MoveNext Next Wend rst.Close MsgBox "تم حذف كل السجلات اللازمة", vbOKOnly, "تنبيه"
  4. هذه مجموعة منها ..... تفضل >>>>>>>>>>>>>>>>>>>>>>>>>>
  5. بالمناسبة ولاثراء الموضوع .... هناك مواقع متخصصة لمعرفة اي نوع من الخطوط في اي صورة
  6. الاستاذ @ابو جودي لله ما أعطى ولله ما أخذ إنا لله وإنا إليه راجعون. عظم الله اجركم ورحم الله ميتكم والهمكم وذويكم الصبر والسلوان.
  7. بل انت غصن غض والدليل عطاءك ..... بارك الله في عمرك وعملك ....
  8. نعم ولكن راجع الملف الاخير معدل ... انا اقصد الملف الاخير تم تعدي استعلامك القديم بما يتناسب سؤالك الاخير
  9. ممكن ...... جرب الاستعلام القديم .... 751محاسبة2018 مستودعات - Copy_Backup.rar
  10. لكثرة الاستعلامات لديك ..... اسم الاستعلام هو Barna
  11. تفضل ...... 751محاسبة2018 مستودعات - Copy_Backup.rar
  12. هل هذا ما تريد ..... انظر ..............
  13. حياك الله أخي @mostafaelshnawy5 بالتوفيق بالمناسبة يمكن عمل ذلك باستعلام واحد لكن للاسف لانك استخدمت اسماء الجداول واسماء الحقول بالعربية فشرقت وغربت بنا استعمال الاكواد فلذلك عملتها في اكثر من استعلام
  14. حذف كل المرتجعات والنتيجة ممتازة .............. انظر .....
  15. لكن استاذي الغالي هو سجل هذه الفترة في جدول الاجازات اجازة للموظف بما سوف يتم انظر الجدول والادخال للتاريخ به فلذلك اعطى ان هذا الموظف سوف يكون في اجازة ....
  16. انظر المرفق ..... مساعدة في الاستعلام.rar
  17. راجع هذا الاستعلام هل النتائج صحيحة كالتي تريد ؟؟؟؟؟
  18. مشاركة مع استاذي الغالي @ابوخليل انظر المرفق يمكن تسجيل اي مهمة للموظف سواءا جديده أو باثر رجعي واذا كان التاريخ ضمن نطاق اي من اجازات الموظف تخرج رسالة لاعلامك بذلك لتغيير الموظف او تعديل التاريخ جرب وأعلمنا بالنتائج ...................... fmmm2.rar
  19. نعم اخي الغالي كلامك صحيح ..... بارك الله فيك بارك الله فيك ... نحن في الخدمة .... لم نتواجد هنا سوى للتعلم والافادة ....
  20. ضع هذا الكود في النموذج الفرعي في حدث الحالي .... If Me.NewRecord Then Me.id_customer = [Forms]![frm_main]![id] End If
  21. جاري التجرية ... واعلامك بالنتيجة
  22. طيب بالنسبة للتقرير عشان تروح العصبية عشان نتفاهم على المطلوب الثاني بعدها ..... في حدث عند فتح التقرير ضع هذا ...... DoCmd.Maximize
×
×
  • اضف...

Important Information