Printable View
با سلام
من یک فرم دارم که اطلاعات آن از دو جدول گرفته شده است وقتی فرم را فیلتر می کنم مثلا دوکلاس ششم دارم وقتی یک کلاس را انتخاب می کنم ومی خواهم اطلاعات آن را به اکسل منتقل کنم
اسامی دو کلاس منتقل می شود خیلی جستجو کردم ولی نتیجه ای نگرفتم دوستان واساتید محترم لطفا راهنمایی فرمایند با تشکر
با سلام لطفا فقط راهنمایی کنید که من یک دکمه روی گزارش گذاشتم چه دستوری برای آن بنویسم که گزارش به خروجی اکسل صادر شود
سلام
حتما راه بهتری وجود داره ولی چیزی که فعلا به ذهنم میرسه اینه که شما برای نمایش از فیلتر استفاده کردید
لذا برای خروجی باید مجددا دیتاسورس مورد نظرتون رو مجدد فیلتر کنید و سپس خروجی بگیرید
با سلام وتشکر از راهنمایی ارزشمند شما ، بله شما درست حدس زدید من فرم خود را فیلتر کرده بودم وفعلا از دکمه خود داخل فرم گزارش خروجی اکسل را می گیرم ووقتی خروجی گرفته می شود اسامی ونوشته ها در اکسل کم رنگ نمایش داده می شود باید آنها را انتخاب وبا انتخاب رنگ پر رنگ شود نمی دانم علت آن چیست
خواهش میکنم
نمونه خودتون رو قرار بدین تاببینم میشه یه کاریش کرد یا دیگر دوستان باید کمک کنند :))
با سلام وتشکر
فایل برنامه به حضورتان ارسال می گردد 1- وقتی دکمه ارسال به اکسل زده می شود اسامی داخل اکسل کم رنگ می باشد نیاز به اصلاح دارد 2- وقتی دکمه چاپ زده می شود خروجی به اکسل انجام نمی شود ومهم تر اینکه فیلتر نمی شود
دستور زیر رو برای دکمه خروجی بنویسید:
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
برای رنگ متن خروجی هم بستگی داره به رنگ انتخابی برای متن در گزارشتون. اون رو اصلاح کنید درست میشه
با سلام مجدد
عالی بود بسیار سپاسگزارم نوشته ها پر رنگ شد
امابرای دکمه خروجی کد خطا می دهد
سلام خدمت دوستان
دوست عزیز برای گرفتن خروجی اکسل استفاده از ماکروexportwithformattingبهتر و راحت است در قسمت object name میتونید جدول یا کوئری خود را انتخاب کنید و بقیه قسمت ها را تنظیم کنید و برای فیلتر کردن از کوئری استفاده کنید و شرط خود را بذارید
کد بالا رو در رویداد on click دکمه قرار دادین؟نقل قول:
نوشته شده توسط majid44
در این کد به کاربر اطلاع داده میشه که:
اگر دکمه yes رو بزنه خروجی به فرمت اکسل براش آماده میشه
و برای خروجی در فرمت های دیگر no را انتخاب کنه
سلام کد به این صورت است وعمل نمی کند
ضمیمه 150829
آقا مجید، یه غلط املایی داری که خطا گرفتی!نقل قول:
نوشته شده توسط majid44
خط اول کد بنده رو با کد خودت مطابقت بده On Error نه Don Error!
با سلام ببخشید من در کپی کردن کد شما D باقیمانده را پاک نکردم ولی باز هم جواب نگرفتم ومنظور شما را متوجه نشدم
دوست عزیز بهترین راه برای جستجوی پیشرفته یا فیلتر استفاده از کوئری است اول از جدول خود کوئری بسازید و شرط های خود را بذارید و و توی شرط ها آدرس فرم مربوطه را بدید و سورس فرم را کوئری بدید و از کوئری خود گزارش درست کنید و روی فرم یه دکمه بذارید و از ماکرو exportwithformating استفاده کنیدنقل قول:
نوشته شده توسط majid44
فایل رو براتون فرستادم بررسی کنید
خروجی از اکسس به اکسل با vba
سلام فایل ارسالی را بررسی کردم دست شما درد نکند . خیلی زحمت کشیدید (سپاسگزارم )
از اظهار لطفتون ممنونمنقل قول:
نوشته شده توسط majid44
کد ارائه شده در پست بالا هم اصلاح شد برای دوستانی که میخوان استفاده کنند