kanory

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

اخي الكريم المثال في اصله ثلاث استعلامات وانا اختصرتها في استعلام واحد ( وبه بقية الاستعلامات مخفية ) انظر المثال بعد تفكيكه الى الاستعلامات الموجودة ........ 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

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

طيب شوف الصورة وطبق ........ قص العبارة المشار اليها برقم 1 وضعها مكان الجزء من السطر المشار اليه برقم 2 امسح السطر المشار اليه برقم 3 جرب واعلمنا ....

اين هذا الجدول ؟؟؟؟ ارجو ارفاق نموذج به بيانات وهمية للتجريب والمحاولة ...

لم اجرب الكود .... جرب واعلمنا ... 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 FilePath FROM MyTable") Do While Not rs.EOF strPath = rs!FilePath 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

جرب المرفق بعد اذنك اخي محمد البرناوي <><><><><><><><><> ForTest.accdb

جرب هذا مع تعديل المكان المطلوب <><><><><><> Dim Source As String Dim Target As String Dim retval As Integer Source = CurrentDb.Name ' عدل هذا حسب المكان المطلوب C:\Users\Documents ' عدل هذا حسب اسم الملف FileName Target = "C:\Users\Documents\FileName" Target = Target & Format(Date, "dd-mm") & " " Target = Target & Format(Time, "hh-mm") & ".accdb" ' create the backup retval = 0 Dim objFSO As Object Set objFSO = CreateObject("Scripting.FileSystemObject") retval = objFSO.CopyFile(Source, Target, True) Set objFSO = Nothing

الموضوع والشرح السابق ليس لي ..... ولكن على العموم بالنسبة لي لست محترفا في الشروحات ولكني استخدم هذا البرنامج يلبي طلباتي البسيطة Snagit 2022 ويكمنك البحث في السيد قوقل تجد هناك العديد من برامج الشروحات .... بارك الله فيك يا دكتور @الحلبي

انظر هنا ربما تستطيع فهم الموضوع <<<<<<<<<

اخي واستاذي الغالي @Eng.Qassim وما انا عنك ببعيد ... نسأل الله حسن الختام

جرب كده .............. عند حدث الفتح ... DoCmd.SetOrderBy "datet, fonction, name ASC"

جرب اذا كان مناسب لك ....... Desktop.rar

انظر .....