السلام عليكم ورحمة الله وبركاته
عملت برنامج يقوم بنحضير الطلاب وبعد الانتهاء من التحضير يتم تغييب الطلاب الذيم لم يحضروا في هذا اليوم ثم تصدير تقدير باسماء الطلاب الغائبون في هذا اليوم على صورة اكسل و pdf وحتى لا يشكل علي في ملفات الغياب جعلت البرنامج يعطي الملف بعد التصدير اسم تاريخ اليوم وبهذا يكون لدينا ملفات الاكسل بعدد ايام الغياب وبهذا يكون ملف الاكسل أو pdf بهذه الصورة 24-09-1436 .
المشلكة هي:
في برنامج من الاخ ........... محمد صالح .....
وهو ارسال البريد من الاكسس مباشرة ، المشلكة عند الضغط على رز الارسال للارسال وتحميل ملف الاكسل أو pdf ، لا يتعرف البرنامج على الملف حيت يعطي أن الملف غير موجود في المسار المحدد
كود تصدير التقرير الى اكسل و pdf وحفظهم في ملف باسم saleh
Private Sub ÃãÑ2_Click()
Dim MyFiLeName As String
MyFiLeName = "C:\saleh\saleh\" & Format(Date, "yyyy-mm-dd") & ".xls"
DoCmd.OutputTo acOutputReport, "tbl_hdoor_t", acFormatXLS, MyFiLeName, True, acExportQualityPrint
End Sub
وهذا كود مسار الملف المراد تحميلة مع البريد في حالة الارسال
.AddAttachment CurrentProject.Path & "\saleh\" & (Date) & ".xls"
والسلام ختام