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

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

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

  • Posts

    1,752

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

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

  • Days Won

    24

 نوع المحتوي 

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

  1. ابو ياسين المشولي
    اتفضل اتمنى يكون المطلوب Database2 (1).rar
  2. ابو ياسين المشولي
    اخي الكريم حاول تعمل الصور في الجدول ثم تستدعيها هكذا او ارفق ملف مصغر Me.اسم الحقل = DLookup(" [اسم الصورة] ", "اسم الجدول")
  3. ابو ياسين المشولي
    هل هذا هو المطلوب SearchRpt.rar
  4. ابو ياسين المشولي
    الحمد لله انك وصلت الى غايتك انا فهمتك وانت لم تفهمني انا كما قلت لك جربتها قبل ارسلها وكنت متاكد منها ميه في الميه
  5. ابو ياسين المشولي
    اذا كنت تريد تغير الطباعة عند الطابعه هذا عند الطباعه يغير الطابعه الافتراضيه Set Application.Printer = Application.Printers(DLookup("[printerName]", "pirent", "[Number]=5")) SetDefaultPrinter (DLookup("[printerName]", "pirent", "[Number]=5")) انا ما ارسلته الا بعد تجربه
  6. ابو ياسين المشولي
    كيف لم يتم تغير الطابعه الافتراضيه عند اختيار الطابعة ستجد رساله هل تريد اختيار الطابعه اذا اخترت نعم سوف يتم اختيار الطابعه الافتراضيه انا مجربه على 3 طابعات
  7. ابو ياسين المشولي
    اتفضل اتمنى يكون طلبك 2 (3).rar 1 (3).rar
  8. ابو ياسين المشولي
    اتفضل اتمنى يكون كما طلبت Print.accdb
  9. ابو ياسين المشولي
    حسب فهمي لسوال هل تقصد هذا [صورة89].Picture = "D:\اسم المجلد\DATA\Scans\cb.bmp"
  10. ابو ياسين المشولي
    العفو اخي Khalf
  11. ابو ياسين المشولي
    هو انا ضغط على شفت وعدلت فيه لو انك تركز عدلت فيه لنه اذا سويت الغاء يخرج من البرنامج بدل ماكان يفضل معلق في ادارة المهام
  12. ابو ياسين المشولي
    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]))
  13. ابو ياسين المشولي
    شغال مافي اي مشكلة Test.accdb
  14. ابو ياسين المشولي
    وهذا كود بدون ما تسجل اسم المسار فقط تحطه جوار البرنامج وتسجل اسم البرنامج بدون المسار ويشتغل من اي مكان فقط انه يكون بجواره 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")
  15. ابو ياسين المشولي
    بالتوفيق اخي كلنا تعلمنا من هذا المنتدى الكبير وكل مشكله ولها حل بارك الله فيك ولك بالمثل في الدعاء
  16. ابو ياسين المشولي
    بارك الله فيك استاذي القدير ابو خليل لك مني كل الود والاحترام الف تحيه لك
  17. ابو ياسين المشولي
    انا لم اقول لك اني اعطيتك الحل ولم اقول اني حليت لك انا قلت لك اعطيتك الفكرة وانت اكمل الباقي اولا انت اعطيت نتايج مختلفه وقلت انها من البرنامج انا دورت على رصيد 3400000 الين دخت لذلك اختصرت لك وقلت لك انا عملت لك الفكرة وانت اكمل الباقي اي عملت عند الرقم معيار وانت اعمل المعيار حيث شات مثلا تقدر تعمل معيار معيارين وكما تفضل الاستاذ ابو خليل الاساسيات غير صحيحه تحياتي
  18. ابو ياسين المشولي
    انا عملت لك الفكرة وانت اكمل الباقي Prog45.mdb
  19. ابو ياسين المشولي
    اخلص شغلي وابشر
  20. ابو ياسين المشولي
    اخي صمم الاستعلام ثم التقرير واجعل مصدرة الاستعلام ثم في المعاير عند اسم الصنف اعمل [مباني] وهكذا لبقيه المعاير تحياتي
  21. ابو ياسين المشولي
    IIf([TempVars]![xv]=" ";[البيان];([حركات].[البيان]) Like "*" & [TempVars]![xv] & "*") Or Like "*" & [TempVars]![xv] & "*" عدلتها هذا وصارت ممتاز الف شكر اخي رمهان رمهان (2).accdb
  22. ابو ياسين المشولي
    هل جربتها اخي رمهان قبل ترسلها انا اشوف ان الاول افضل هذه لم تجيب نتيجه بالعكس الاولى ممتازه اشكرك والتمس السماح منك اتعبتك معي
  23. ابو ياسين المشولي
    تسلم بارك الله فيك
  24. ابو ياسين المشولي
    بس انا عدلتها باسم بيان وجعلته افتراضي هههههههههه بقيت بالرساله ما عرفت الغي شعار اكسس بمعنى مش راضيه تزبط معي MsgBox , vbExclamation, " رسالة"
  25. ابو ياسين المشولي
    هههههههههههه انك لم تدعه فاضي جعلته قيمه افتراضية "" ههههههههههه
×
×
  • اضف...

Important Information

  I accept