النجاشي قام بنشر أغسطس 19, 2018 قام بنشر أغسطس 19, 2018 السلام عليكم ورحمه الله وبركاته عيدكم مبارك مقدما كل عام وانتم بخير سالين المولى عز وجل أن يعيده علينا وعليكم وانتم في أتم الصحه والعافيه استاتذتي الكرام اريد مثال يحفظ التقرير بالمستندات بصيغه الدفتر شاكرين ابو زاهر 1
Shivan Rekany قام بنشر أغسطس 19, 2018 قام بنشر أغسطس 19, 2018 في 19/8/2018 at 14:00, ابو زاهر said: اريد مثال يحفظ التقرير بالمستندات بصيغه الدفتر Expand هل قصدك بصيغة تيكست فايل اذا نعم اليك هذا DoCmd.OutputTo acOutputReport, "Report1", "TEXT FILES(*.Txt)", "E:\DDD.txt" 1
النجاشي قام بنشر أغسطس 19, 2018 الكاتب قام بنشر أغسطس 19, 2018 (معدل) في 19/8/2018 at 16:55, Shivan Rekany said: هل قصدك بصيغة تيكست فايل اذا نعم اليك هذا DoCmd.OutputTo acOutputReport, "Report1", "TEXT FILES(*.Txt)", "E:\DDD.txt" Expand كم انت طيب القلب استاذي شفان ريكاني الله يعطيك الصحه والعافيه ممتاز جدا جربته حلو جدا لكن كيف احفظ اكثر من تقرير هل توجد طريقه مثلا زي طريقه النسخ الاحتياطي يراكم لي حفظ التقارير الف الف شكر لك يابو محمد ياليت شرح مختصر للكود للمعرفه تم تعديل أغسطس 19, 2018 بواسطه ابو زاهر
Shivan Rekany قام بنشر أغسطس 20, 2018 قام بنشر أغسطس 20, 2018 في 19/8/2018 at 17:20, ابو زاهر said: كيف احفظ اكثر من تقرير Expand ما قصدك ؟ في 19/8/2018 at 17:20, ابو زاهر said: DoCmd.OutputTo acOutputReport, "Report1", Expand اخراج تقرير بالاسم ريبورت 1 في 19/8/2018 at 17:20, ابو زاهر said: "TEXT FILES(*.Txt)" Expand هناك تقوم بتحديد نوعيته ( اكسل او وورد او تيكست او .... الخ ) في 19/8/2018 at 17:20, ابو زاهر said: , "E:\DDD.txt" Expand وهنا مكان واسم للحفظ التقرير ريبورت1 1
النجاشي قام بنشر أغسطس 20, 2018 الكاتب قام بنشر أغسطس 20, 2018 استاذي @Shivan Rekany الكود اعجبنا بقرب لك الموضوع ان شاء الله تفهمني انظر الي النموذج به عده سجلات فانا عندما اعمل اخراج لسجل ينحفظ بالدي اوكه لكن لو عملت مره اخري لسجل يستبدل الاول فانا اريد يحفظ كل تقرير لحاله اليك المثال تحياتي اليك يالغالي Database1.accdbFetching info...
Shivan Rekany قام بنشر أغسطس 20, 2018 قام بنشر أغسطس 20, 2018 في 20/8/2018 at 16:37, ابو زاهر said: انظر الي النموذج به عده سجلات فانا عندما اعمل اخراج لسجل ينحفظ بالدي اوكه لكن لو عملت مره اخري لسجل يستبدل الاول فانا اريد يحفظ كل تقرير لحاله Expand اتفضل استخدم هذا Private Sub أمر28_Click() Dim RepName As String RepName = Me.frmsubSearch_sales.Form.Rjmfatwra DoCmd.OutputTo acOutputReport, "بحث في فواتير البيع", "TEXT FILES(*.Txt)", "E:\" & RepName & ".txt" End Sub سيحفظ كل تقرير باسم رقم الفاتورة Database1.accdb 1 1
النجاشي قام بنشر أغسطس 20, 2018 الكاتب قام بنشر أغسطس 20, 2018 في 20/8/2018 at 17:12, Shivan Rekany said: اتفضل استخدم هذا Private Sub أمر28_Click() Dim RepName As String RepName = Me.frmsubSearch_sales.Form.Rjmfatwra DoCmd.OutputTo acOutputReport, "بحث في فواتير البيع", "TEXT FILES(*.Txt)", "E:\" & RepName & ".txt" End Sub سيحفظ كل تقرير باسم رقم الفاتورة Database1.accdbFetching info... Expand بارك الله فيك وزاداك الله علما اجيت فوق الجرح هذا ما اريده الله يجزيك كل خير ممتاز يابو محمد الف الف شكر يالغالي 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.