خروجی به اکسل از فرم فیلتر شده

[majid44]

با سلام
من یک فرم دارم که اطلاعات آن از دو جدول گرفته شده است وقتی فرم را فیلتر می کنم مثلا دوکلاس ششم دارم وقتی یک کلاس را انتخاب می کنم ومی خواهم اطلاعات آن را به اکسل منتقل کنم
اسامی دو کلاس منتقل می شود خیلی جستجو کردم ولی نتیجه ای نگرفتم دوستان واساتید محترم لطفا راهنمایی فرمایند با تشکر

[majid44]

با سلام لطفا فقط راهنمایی کنید که من یک دکمه روی گزارش گذاشتم چه دستوری برای آن بنویسم که گزارش به خروجی اکسل صادر شود

[Mehr@ban]

سلام

حتما راه بهتری وجود داره ولی چیزی که فعلا به ذهنم میرسه اینه که شما برای نمایش از فیلتر استفاده کردید
لذا برای خروجی باید مجددا دیتاسورس مورد نظرتون رو مجدد فیلتر کنید و سپس خروجی بگیرید

[majid44]

با سلام وتشکر از راهنمایی ارزشمند شما ، بله شما درست حدس زدید من فرم خود را فیلتر کرده بودم وفعلا از دکمه خود داخل فرم گزارش خروجی اکسل را می گیرم ووقتی خروجی گرفته می شود اسامی ونوشته ها در اکسل کم رنگ نمایش داده می شود باید آنها را انتخاب وبا انتخاب رنگ پر رنگ شود نمی دانم علت آن چیست

[Mehr@ban]

خواهش میکنم
نمونه خودتون رو قرار بدین تاببینم میشه یه کاریش کرد یا دیگر دوستان باید کمک کنند :))

[majid44]

با سلام وتشکر
فایل برنامه به حضورتان ارسال می گردد 1- وقتی دکمه ارسال به اکسل زده می شود اسامی داخل اکسل کم رنگ می باشد نیاز به اصلاح دارد 2- وقتی دکمه چاپ زده می شود خروجی به اکسل انجام نمی شود ومهم تر اینکه فیلتر نمی شود

[Mehr@ban]

دستور زیر رو برای دکمه خروجی بنویسید:
On Error Resume Next
If vbYes = (MsgBox("Click 'Yes' to output to Excel format." & vbNewLine & _
"Click 'No' to output to other formats.", vbYesNo, "A Small Question")) Then
DoCmd.OutputTo acOutputReport, "Information Students", acFormatXLS, , True
Else
DoCmd.OutputTo acOutputReport, "Information Students", , , True
End If

برای رنگ متن خروجی هم بستگی داره به رنگ انتخابی برای متن در گزارشتون. اون رو اصلاح کنید درست میشه

[majid44]

با سلام مجدد
عالی بود بسیار سپاسگزارم نوشته ها پر رنگ شد
امابرای دکمه خروجی کد خطا می دهد

[simorgh2000]

سلام خدمت دوستان
دوست عزیز برای گرفتن خروجی اکسل استفاده از ماکروexportwithformattingبهتر و راحت است در قسمت object name میتونید جدول یا کوئری خود را انتخاب کنید و بقیه قسمت ها را تنظیم کنید و برای فیلتر کردن از کوئری استفاده کنید و شرط خود را بذارید

[Mehr@ban]

با سلام مجدد
عالی بود بسیار سپاسگزارم نوشته ها پر رنگ شد
امابرای دکمه خروجی کد خطا می دهد

کد بالا رو در رویداد on click دکمه قرار دادین؟

[Mehr@ban]

در این کد به کاربر اطلاع داده میشه که:
اگر دکمه yes رو بزنه خروجی به فرمت اکسل براش آماده میشه
و برای خروجی در فرمت های دیگر no را انتخاب کنه

[majid44]

سلام کد به این صورت است وعمل نمی کند
150829

[Mehr@ban]

سلام کد به این صورت است وعمل نمی کند
150829
آقا مجید، یه غلط املایی داری که خطا گرفتی!
خط اول کد بنده رو با کد خودت مطابقت بده On Error نه Don Error!

[majid44]

با سلام ببخشید من در کپی کردن کد شما D باقیمانده را پاک نکردم ولی باز هم جواب نگرفتم ومنظور شما را متوجه نشدم

[simorgh2000]

با سلام ببخشید من در کپی کردن کد شما D باقیمانده را پاک نکردم ولی باز هم جواب نگرفتم ومنظور شما را متوجه نشدم

دوست عزیز بهترین راه برای جستجوی پیشرفته یا فیلتر استفاده از کوئری است اول از جدول خود کوئری بسازید و شرط های خود را بذارید و و توی شرط ها آدرس فرم مربوطه را بدید و سورس فرم را کوئری بدید و از کوئری خود گزارش درست کنید و روی فرم یه دکمه بذارید و از ماکرو exportwithformating استفاده کنید

[Mehr@ban]

فایل رو براتون فرستادم بررسی کنید

خروجی از اکسس به اکسل با vba

[majid44]

سلام فایل ارسالی را بررسی کردم دست شما درد نکند . خیلی زحمت کشیدید (سپاسگزارم )

[Mehr@ban]

سلام فایل ارسالی را بررسی کردم دست شما درد نکند . خیلی زحمت کشیدید (سپاسگزارم )

از اظهار لطفتون ممنونم
کد ارائه شده در پست بالا هم اصلاح شد برای دوستانی که میخوان استفاده کنند