kanory

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

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

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

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

بارك الله فيك اخي وفي جهودك في مثل هذه البرامج الموفرة لوقت المبرمج ..... اقتراح بسيط لو تسمح لي استاذي @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

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

طيب شوف الصورة وطبق ........ قص العبارة المشار اليها برقم 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 ويكمنك البحث في السيد قوقل تجد هناك العديد من برامج الشروحات .... بارك الله فيك يا دكتور @الحلبي

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