مدحت توفيق قام بنشر سبتمبر 11, 2020 مشاركة قام بنشر سبتمبر 11, 2020 إنشاء زر يطبع تقرير البحث وزر اخر تصدير الي الاكسل f4.rar رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر سبتمبر 11, 2020 مشاركة قام بنشر سبتمبر 11, 2020 اين المرفق اخي ليتم التعديل عليه رابط هذا التعليق شارك More sharing options...
مدحت توفيق قام بنشر سبتمبر 11, 2020 الكاتب مشاركة قام بنشر سبتمبر 11, 2020 f4.rar رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر سبتمبر 11, 2020 مشاركة قام بنشر سبتمبر 11, 2020 منذ ساعه, سالم محمد said: إنشاء زر يطبع تقرير البحث وزر اخر تصدير الي الاكسل f4.rar اخي لا يوجد تقرير في المرفق على كل حال اليك الاكواد التي تحتاجها 1- كود طباعة البحث ضعه في زر امر Dim RName, FldCriteria As String RName = "اسم التقرير" FldCriteria = "[اسم الترقيم في الجدول]=" & Me![اسم الترقيو في الجدول] DoCmd.OpenReport RName, acViewNormal, , FldCriteria 2- كود تصدير التقرير الى اكسل On Error Resume Next DoCmd.SelectObject acReport, namerpts DoCmd.OutputTo acOutputReport, namerpts, "MicrosoftExcelBiff8(*.xls)", "", True, ".xls", , acExportQualityPrint رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.