kanory

للاسف عندك بعض المواد فيها علامات 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

انظر .....

تفضل <><><><><><><><> وممكن تختصر الفلم الموجود في التقرير بهذا .... انا تركتها للتوضيح فقط للتاريخ =Format(Date();"dd/mm/yyyy") للوقت =Format(Time();"hh:nn:ss ampm") sptialtest.accdb

اعمل زر وضع فيه التالي :::: Me.QareeWeb.SetFocus DoCmd.RunCommand acCmdInsertHyperlink جرب واخبرنا

طيب طالما انه زر ... جرب هذا ... Dim obj As AccessObject For Each obj In CurrentProject.AllForms If obj.IsLoaded And Not obj.Name = "FormToKeepOpen" Then DoCmd.Close acForm, obj.Name End If Next obj For Each obj In CurrentProject.AllReports If obj.IsLoaded And Not obj.Name = "ReportToKeepOpen" Then DoCmd.Close acReport, obj.Name End If Next obj او ادرج مثال مصغر للتطبيق ....

جرب هذا .... Sub CloseAllFormsAndReportsExceptOne() Dim obj As AccessObject For Each obj In CurrentProject.AllForms If obj.IsLoaded And Not obj.Name = "FormToKeepOpen" Then DoCmd.Close acForm, obj.Name End If Next obj For Each obj In CurrentProject.AllReports If obj.IsLoaded And Not obj.Name = "ReportToKeepOpen" Then DoCmd.Close acReport, obj.Name End If Next obj End Sub

زيادة لما تفضل به استاذنا @Moosak استخدم هذا ... جرب ... Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Me.kan.Left = (Me.Width - Me.kan.Width) / 2 End Sub

علما بان الاكسس مهيأ لفعل ماتريد لكن هل ممكن مثال لما تريد بالضبط مع شرح ومرفق للتطبيق عليه حتى يسهل فهم طلبك بارك الله فيك

انظر هل هذا ما تريد """""" test (1).mdb

لقد اضفت ( صالح - محمد - احمد - عبدالهادي ) انظر الصورة وعرضتها ولم اجد المشكلة التي لديك في الشرح ؟؟؟؟؟؟