ايجاد پنجره import يا Export در يك دكمه(كد نويسي)

[خدابخشی]

با سلام
مي خواستم اگه ممكن در يك فرم با فشردن يك دكمه شبيه به استفاده از منوي فايل و Importو Export گزارشات و يا جداول را به مسير دلخواه و فرمت مورد نظر ارسال و يا دريافت نمايم

[bita_ziba77]

براي اين كار يك كليد به فرم اضافه نموده و در يك ماكرو به آن اختصاص دهيد.
درون ماكرو در قسمت Action گزينه OutputTo را انتخاب نماييد.
سپس در قسمت Object Type فرمت مورد نظر (جدول، فرم ،گزارش،كوئري) و در قسمت Object nameنام گزارش يا فرم و يا جدول ويا كوئري را وارد نماييد.

[amir4_1363]

ممنون از رهنمائی تون بیتا خانوم اما اینجا یه اشکال کوچیک داره اگه یه برنامه ای که تمام اون فارسی باشه وقتی که پنجره OutputTo باز میشه انگلیسی هستش ایا راهی داره که همون پنجره OutputTo بصورت یک فرم قابل دسترسی بصورت فارسی باشه

[wolfstander]

جهت دادن خروجی اکسل :
با دو دستور می توانید این کار را انجام بدهید.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "TableName", "C:\Eee.xls"

DoCmd.OutputTo acOutputTable, "ObjectName", acFormatXLS, "C:\EEEEE.xls"
روش دوم بهتره ، چون می تونید هم کووری و هم جدول و هم ریپورت و غیره ارسال کنید
برای اطلاعات بیشتر کلمه Output را در قسمت برنامه نویسی انتخاب کنید و دکمه F1 را بزنید تا Help مربوط به همه موارد را ببینید.
در صورتی که مسیر داده نشود ، خود برنامه از شما سوال خواهد کرد.
این مثال در مورد خروجی یک گزارش است:

Private Sub Command37_Click()
On Error GoTo Err_Command37_Click

Dim stDocName As String

stDocName = "rpt_Wage"
DoCmd.OutputTo acReport, stDocName, acFormatXLS

Exit_Command37_Click:
Exit Sub

Err_Command37_Click:
MsgBox Err.Description
Resume Exit_Command37_Click

End Sub
در مثال زیر خروجی از یک جدول را بررسی کرده ایم:
Private Sub Command37_Click()
On Error GoTo Err_Command37_Click

Dim stDocName As String

stDocName = "tbl__LCSS_Part"
DoCmd.OutputTo acOutputTable, stDocName, acFormatXLS

Exit_Command37_Click:
Exit Sub

Err_Command37_Click:
MsgBox Err.Description
Resume Exit_Command37_Click

End Sub

[خدابخشی]

ضمن تشكر از دوستان ، منظور من باز شدن پنجره Import دقيقا شبيه به انتخاب آن از منوي فايل بوده و چون در حال حاضر يك فايل TEXTرا مي خواهم Import كنم از روشهاي فوق عملاٌ ممكن نمي باشد اگر راه حلي ارائه نماييد در حق اينجانب لطف نموده ايد

[dadsara]

سلام
من مطابق کدهای جنابعالی اقدام نمودم ، ولی هنگام ارسال ارور شماره 2306 ظاهر می گردد ، می خواهم بدانم آیا در ارسال اطلاعات محدودیتی از نظر رکورد وجود دارد
( تعداد رکورد من 50000 می باشد)

[dadsara]

از دوستان اگر کسی به راه حلی رسیده لطفا راهنمائی کند

[dadsara]

سلام
من مطابق کدهای جنابعالی اقدام نمودم ، ولی هنگام ارسال ارور شماره 2306 ظاهر می گردد ، می خواهم بدانم آیا در ارسال اطلاعات محدودیتی از نظر رکورد وجود دارد
( تعداد رکورد من 50000 می باشد)

اگر کسی راه حلی به نظرش رسیده لطفا اعلام کنه

[amir4_1363]

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

[dadsara]

سلام
من مطابق کدهای جنابعالی اقدام نمودم ، ولی هنگام ارسال ارور شماره 2306 ظاهر می گردد ، می خواهم بدانم آیا در ارسال اطلاعات محدودیتی از نظر رکورد وجود دارد
( تعداد رکورد من 50000 می باشد)

لطفا راهنمائی کنید