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

ابو ياسين المشولي

الخبراء
  • Posts

    1,752
  • تاريخ الانضمام

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

  • Days Won

    24

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

  1. ان شاء الله بتجد الجواب الكافي والحل الوافي من الاخ jjafferr ربنا يعطيه الصحه
  2. بارك الله فيك اخي jjafferr هذا يعتبر ابداع من ابداعاتك ربي يحفظك
  3. وانا كمان اضفت لك حاجه حاول تدخل 3 مرات بالخطاء وشوف النتيجه تصيد المتلاعب-4.rar
  4. اخي الكريم اعتقد في تعارض بالمسميات في النماذج انا حاولت فيه بصراحه ما لم انجح
  5. اخي العزيز بارك الله فيك الملف اللي انا بعثته فيه استعلام الحاق اللي هو لونه اخضر ا افتح قاعده البينات تبعك واعمل استيراد الى قاعده البينات تبعك او من نفس الملف اعمل له تصدير وغيرت المسميات اعمل بالاستعلام تصميم وحتفهم ان شاء الله بالتوفيق
  6. عملت استعلام الحاق اسمهQ وعملت الكود بعد الحدث Private Sub t2_AfterUpdate() DoCmd.SetWarnings False DoCmd.OpenQuery "delete" Me.Requery DoCmd.OpenQuery "Q" DoCmd.SetWarnings True End Sub
  7. نفس الشي اخي شوف الصورة
  8. اتفضل اخي ارجو ان يكون المطلوب نموذج مختصر.rar
  9. اخي العزيز الملف معطوب حاول ترفعه برابط خارجي واجعله بدون ضغط
  10. حاولت بما استطيع والباقي عليك هههههه ما عرفت ايش اللي تقصده حسابات قيد مزدوج1.rar
  11. اخي الكريم هل هذا ماتقصده شوف المرفق Database10.rar
  12. تقدر تعمل الكود في التقرير في حدث عند الاغلاق If MsgBox("هل تريد حذف البيانات ¿", vbYesNo, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL " delete * from TblMihawlatLogIn" MsgBox "لقد تم حذف البينات بنجاح !!!!", vbOKOnly, "تنبيه" 'Me.Refresh Else DoCmd.CancelEvent End If
  13. بالتوفيق اخي وبارك الله فيك بصراحه انا عمله القيمه الافتراضيه على تاريخ الجهاز وماعندي اي عامله التاريخ =date() لكن بحاول اذا قدرت اضبطه ابشر وممكن من الاخوان من هم خبرة يضبطوه
  14. اتفضل اخي هذا ما توصلت اليه شوف المرفق Database10.rar
  15. اخي الفاضل شكل الملف مفيرس لم يفتح عندي حاول ترفعه على اي موقع بدون ضغط ارفع الملف ولا تعمله مضغوط
  16. حاول ترفع الملف وان شاء الله تطلع بنتيجيه
  17. اخي الكريم ياليت لو ترفع ملف يكون افضل جرب هذا Me.date = DateSerial(Year(date), Month(date) - 3, 0) Me.date = DateSerial(Year(date), Month(snddate) + 3, 0) Me.تاريخ اليوم = DateSerial(Year(تاريخ اليوم), Month(تاريخ اليوم) - 3, 0) Me.تاريخ اليوم = DateSerial(Year(تاريخ اليوم), Month(تاريخ اليوم) + 3, 0) الاول 3 اشهر الثاني سته اشهر
  18. بارك الله فيك اخي جعفر انا عملت اصلاح قاعدة البيانات فقط
  19. حبيت اشارك بنفس الطريقه ولكن بدل النموذج تقرير تصيد المتلاعب-3.rar
×
×
  • اضف...

Important Information