ارسال اطلاعات به اکسل در حالتی که محیط اکسس مخفی شده

[Rasool-GH]

سلام دوستان
من محیط اکسس رو مخفی کردم ولی در برنامه وقتی که میخوام یک جدول رو با ماکرو به اکسل بفرستن بعد از ارسال جدول محیط اکسس ظاهر میشه ولی هیچ چیزی داخلش نیست و هیچ کاریش نمیشه کرد مگر اینکه مجددا کد مخفی کردن محیط اکسس اجرا بشه (یک صفحه ابی رنگ به صورت بک گراند فرم ظاهر میشه که کل صفحه رو میگیره)

[Abbas Amiri]

ببین با اضافه کردن یک دستور به ماکرو برای ناپدیدکردن محیط درست می شود؟

[Rasool-GH]

اقای امیری
وقتی ماکرو اجرا میشه یک پنجره میاد که فایل اکسل در کجا ذخیره بشه . در اون پنجره حتی اگر Cancel رو بزنم بازهم این اتفاق میوفته . فکر نکنم به ماکرو مربوط باشه

[Abbas Amiri]

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

[Rasool-GH]

از Export With Formating استفاده کردم. هم جدول و هم کوئری رو با فرمت اکسل 2003 خارج میکنه
البته این رو هم بگم که در اکسس 2010 مشکلی نیست و در 2007 هم در بعضی ورژن ها مشکل ظاهر میشه
اگه دستوری که این کار رو انجام میده معرفی کنید ممنون میشم

[Abbas Amiri]

چرا از TransferDatabase استفاده نمی کنید که آدرس هم درخود آن باشد

[Rasool-GH]

بیشتر به دلیل اینکه نیاز دارم ادرس رو کاربر بده از این دستور استفاده کردم
تو TransferDatabase که خروجی اکسل نمیده . فقط ایتمهای زیر رو میده که فکر میکنم برای بردن به اکسل باید تبدیل بشن .
Microsoft Access (default)
Jet 2.x
Jet 3.x
dBase III
dBase IV
dBase 5.0
Paradox 3.x
Paradox 4.x
Paradox 5.x
Paradox 7.x
ODBC Database
WSS

[Abbas Amiri]

منظورم TransferSpreadsheet بود
DoCmd.TransferSpreadsheet acExport, , "QryTemp", "E:\Book1.xlsx", True

[Rasool-GH]

اقاي اميري من دوتا مشكل دارم . اول اينكه نياز دارم موقع خروجي گرفتن برنامه از كاربر مسير درخواست كنه دوم اينكه جدولي كه اكسپورت ميشه به جاي نام فيلد كپشن اون فيلد خارج بشه
البته امكان داره اين مشكل فقط مربوط به سيستم من باشه اگه ممكنه لطفا بگين چطور دستور مخفي كردن اكسس رو در ادامه ماكرو اضافه كنم .
مثل نمونه

[Abbas Amiri]

در مورد اول که در برنامه شما Open Dialog ظاهر می شود ودرست عمل میکند ود مورد دوم هم میتوان یک کوئری ساخت که شامل فیلدهای جدول باشد وبجای نام آنها کپشن آنها را بگذارید .اگر برای یک جدول میخواهید بصورت دستی کوئری رابسازید درغیر اینصورت با کدنویسی هم میشود.

[Rasool-GH]

ممنون
عرض کردم که در بعضی سیستمها این مشکل ایجاد میشه . من ماکرو رو حذف کردم و از کد زیر استفاده کردم نیازهامو براورده میکنه ولی وقتی Open Dialog رو کنسل میکنم خطا میده

DoCmd.OutputTo acOutputTable, "TableName", acFormatXLS, , False
HideAccess
شرمنده که تاپیک کشدار شد

[Abbas Amiri]

باتوجه به مشکل شما احتمالا فایل اصلاح شده جواب شمارا می دهد

[Rasool-GH]

اقا ممنون خیلی زحمت کشیدی . همون دستور بالایی رو راه مینداختی کافی بود .