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

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

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1757

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

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

  • Days Won

    24

 نوع المحتوي 

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

  1. ابو ياسين المشولي
    انا اخطات بتحميل الملف حمله مرة اخرى هذا الناتج اللي طلع عندي
  2. ابو ياسين المشولي
    حسب فهمي لسوال شوف المرفق الجرد (2).rar
  3. ابو ياسين المشولي
    لو تشرح بالصور ماهي النتيجه المطلوبه فهم السوال نصف الاجابه
  4. ابو ياسين المشولي
    اتفضل اخي qathi اتمنى يكون كما طلبت SearchRpt.rar
  5. ابو ياسين المشولي
    نعم اخي Shivan Rekany انا كنت حاولت فيها ولم اعرف اين المشكله ههههههههههه في النماذج فيها سر غامض
  6. ابو ياسين المشولي
    اتفضل اتمنى يكون المطلوب Database2 (1).rar
  7. ابو ياسين المشولي
    اخي الكريم حاول تعمل الصور في الجدول ثم تستدعيها هكذا او ارفق ملف مصغر Me.اسم الحقل = DLookup(" [اسم الصورة] ", "اسم الجدول")
  8. ابو ياسين المشولي
    هل هذا هو المطلوب SearchRpt.rar
  9. ابو ياسين المشولي
    الحمد لله انك وصلت الى غايتك انا فهمتك وانت لم تفهمني انا كما قلت لك جربتها قبل ارسلها وكنت متاكد منها ميه في الميه
  10. ابو ياسين المشولي
    اذا كنت تريد تغير الطباعة عند الطابعه هذا عند الطباعه يغير الطابعه الافتراضيه Set Application.Printer = Application.Printers(DLookup("[printerName]", "pirent", "[Number]=5")) SetDefaultPrinter (DLookup("[printerName]", "pirent", "[Number]=5")) انا ما ارسلته الا بعد تجربه
  11. ابو ياسين المشولي
    كيف لم يتم تغير الطابعه الافتراضيه عند اختيار الطابعة ستجد رساله هل تريد اختيار الطابعه اذا اخترت نعم سوف يتم اختيار الطابعه الافتراضيه انا مجربه على 3 طابعات
  12. ابو ياسين المشولي
    اتفضل اتمنى يكون طلبك 2 (3).rar 1 (3).rar
  13. ابو ياسين المشولي
    اتفضل اتمنى يكون كما طلبت Print.accdb
  14. ابو ياسين المشولي
    حسب فهمي لسوال هل تقصد هذا [صورة89].Picture = "D:\اسم المجلد\DATA\Scans\cb.bmp"
  15. ابو ياسين المشولي
    العفو اخي Khalf
  16. ابو ياسين المشولي
    هو انا ضغط على شفت وعدلت فيه لو انك تركز عدلت فيه لنه اذا سويت الغاء يخرج من البرنامج بدل ماكان يفضل معلق في ادارة المهام
  17. ابو ياسين المشولي
    Between (IIf(Len([Forms]![tabf2]![start] & "")=0;Nz([numx];"0");[Forms]![tabf2]![start])) And (IIf(Len([Forms]![tabf2]![end] & "")=0;Nz([numx];"0");[Forms]![tabf2]![end]))
  18. ابو ياسين المشولي
    شغال مافي اي مشكلة Test.accdb
  19. ابو ياسين المشولي
    وهذا كود بدون ما تسجل اسم المسار فقط تحطه جوار البرنامج وتسجل اسم البرنامج بدون المسار ويشتغل من اي مكان فقط انه يكون بجواره Dim xlApp, xlBook dim fso dim curDir set fso = CreateObject("Scripting.FileSystemObject") curDir = fso.GetAbsolutePathName(".") Set xlapp = CreateObject("Excel.Application") xlapp.Visible = false Set xlBook = xlApp.Workbooks.Open(curDir & "\Projram.xlsb")
  20. ابو ياسين المشولي
    بالتوفيق اخي كلنا تعلمنا من هذا المنتدى الكبير وكل مشكله ولها حل بارك الله فيك ولك بالمثل في الدعاء
  21. ابو ياسين المشولي
    بارك الله فيك استاذي القدير ابو خليل لك مني كل الود والاحترام الف تحيه لك
  22. ابو ياسين المشولي
    انا لم اقول لك اني اعطيتك الحل ولم اقول اني حليت لك انا قلت لك اعطيتك الفكرة وانت اكمل الباقي اولا انت اعطيت نتايج مختلفه وقلت انها من البرنامج انا دورت على رصيد 3400000 الين دخت لذلك اختصرت لك وقلت لك انا عملت لك الفكرة وانت اكمل الباقي اي عملت عند الرقم معيار وانت اعمل المعيار حيث شات مثلا تقدر تعمل معيار معيارين وكما تفضل الاستاذ ابو خليل الاساسيات غير صحيحه تحياتي
  23. ابو ياسين المشولي
    انا عملت لك الفكرة وانت اكمل الباقي Prog45.mdb
  24. ابو ياسين المشولي
    اخلص شغلي وابشر
  25. ابو ياسين المشولي
    اخي صمم الاستعلام ثم التقرير واجعل مصدرة الاستعلام ثم في المعاير عند اسم الصنف اعمل [مباني] وهكذا لبقيه المعاير تحياتي
×
×
  • اضف...

Important Information

  I accept