kanory

مشاركة مع اخي @محمد احمد لطفى تفضل ..... Output_Path = "C:\Users\ACER\Desktop" & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.OutputTo acOutputQuery, "استعلام1", "ExcelWorkbook(*.xlsx)", Output_Path, True, "", , acExportQualityPrint

طيب جرب كده .................. Sales.accdb

طيب جرب كده ...... Sales.accdb

Sales.accdb

مشاركة ما اساتذتي الافاضل .... انظر التوزيع هل تصوري صحيح ؟؟؟؟؟

ومساءك احي الكريم ... من قال اني عالم ... ومن قال اني خبير ... لم اقل .. بارك الله فيك اي اسلوب تتحدث عنه وانما تكلمت انا عن الطريقة التي استخدمتها انا في اعطاء النتيجة التي طلبتها انت وتذكرت ردك السابق لان الطريقة كانت فعلا معقده ولست انت المقصود بها لم يتم فتح مثل هذه المنتديات الا لتبادل الافكار وكلما كانت الردود من اكثر من عضو كانت الفائدة اعظم .... ولم اتحسس انا من كلامك ولكن اردت التوضيح والدليل في الرد السابق كانت هناك ضحكات مداعبه وليس سخرية وحاشا ان اسخر من اي عضو بالمناسبة اكرر انا لست خبير ولكن ظن المشرفين بي هو من سماني خبير ... انا لازلت طالب علم جزاك الله خيرا واسعدك في الدنيا والاخر واكرر اسفي ان فهمت الرد بغير ما انا اردته من مداعبه ..

هل الصور التي لديك في النموذج ( مضمنة ام مشترك - أم ارتباط ) .... انظر الصورة

مشاركة مع استاذي الفاضل @ابوخليل هل هذا ماتريد ؟؟؟؟

انظر طريقة معقدة .... هههههه تريده هكذا ..................

ههههه ... عرفنا كيف نصيدك كلنا في شوق وشتياق لابداعاتك ... وشكرا مقدما لك ... بارك الله فيك

بارك الله فيك اخي وفي جهودك في مثل هذه البرامج الموفرة لوقت المبرمج ..... اقتراح بسيط لو تسمح لي استاذي @Moosak لو سمح وقتك في تحديث البرنامج بحيث المستخدم لا يدخل ولا نقطة ويقوم البرنامج بكل هذا ..... انظر الصورة المقترحة وهي غير كاملة بالطبع ولكن عملتها للاقتراح عليك

صمم استعلام وضع في هذا SELECT MSysResources.Data FROM MSysResources WHERE (((MSysResources.Id)=2)); ثم شغل الاستعلام لترى كل الصور المضمنة

قم بمسح المسار ووافق على الرسالة التي تظهر نعم تقلل من حجم القاعدة حسب حجم الصورة

اخي الكريم المثال في اصله ثلاث استعلامات وانا اختصرتها في استعلام واحد ( وبه بقية الاستعلامات مخفية ) انظر المثال بعد تفكيكه الى الاستعلامات الموجودة ........ TEST (23).accdb

افتح التقرير في وضع المعاينة

تفضل <><><><><><> TEST (23).accdb

بهذا الشكل تريد ؟؟؟؟

وعليكم السلام ورحمة الله وبركاته اهلا بك .... ارفق مرفق مبسط لكي تجد المساعدة من الاعضاء الكرام ....

طيب استاذ @خالد عبد الغفار صورة التقرير هذا هل هو المطلوب ؟؟؟

انا فمتك في هذه ..... لكن انظر الصورة السابقة التي بها السهم .... السهم يشير لمسافة ظاهرة لنا .. ولكن ده مش مسافة وانما علامة Unicode ولذلك الكود لا يستطيع تجاوزها ويعتبرها شيئ وهي الظاهر لنا لاشي انظر النتيجة لهذا الطالب في التقرير التالي .....

للاسف عندك بعض المواد فيها علامات Unicode لذلك وجدت صعوبة في قرائتها بالكود انظر مثلا الطالب رقم 5919513 !!!!!!!!

اخي @سامر محمود لا عليك .. جرب المرفق هذا .................... test_kanory.accdb

تفضل <><><><><><> Sub PrintFiles() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPath As String Dim strFile As String Set db = CurrentDb Set rs = db.OpenRecordset("SELECT المسار FROM جدول_طابعة_مرفقات") Do While Not rs.EOF strPath = rs!المسار strFile = Dir(strPath) If Len(strFile) > 0 Then Application.FollowHyperlink strPath, , True, "print" End If rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing End Sub

الطريقة السابقة ليس فيها اختيار مكان الحفظ .. بل يحفظ تلقائيا في المسار المحدد مسبقا في الكود المشار اليه برقم واحد ... اذهب للمسار وشاهد هل هنا ملف محفوظ ام لا