مدحت توفيق قام بنشر سبتمبر 11, 2020 قام بنشر سبتمبر 11, 2020 إنشاء زر يطبع تقرير البحث وزر اخر تصدير الي الاكسل f4.rar
محمد التميمي قام بنشر سبتمبر 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.