PDA

View Full Version : سوال: ايجاد پنجره import يا Export در يك دكمه(كد نويسي)



خدابخشی
یک شنبه 21 تیر 1388, 11:45 صبح
با سلام
مي خواستم اگه ممكن در يك فرم با فشردن يك دكمه شبيه به استفاده از منوي فايل و Importو Export گزارشات و يا جداول را به مسير دلخواه و فرمت مورد نظر ارسال و يا دريافت نمايم:قهقهه:

bita_ziba77
یک شنبه 21 تیر 1388, 11:56 صبح
براي اين كار يك كليد به فرم اضافه نموده و در يك ماكرو به آن اختصاص دهيد.
درون ماكرو در قسمت Action گزينه OutputTo را انتخاب نماييد.
سپس در قسمت Object Type فرمت مورد نظر (جدول، فرم ،گزارش،كوئري) و در قسمت Object nameنام گزارش يا فرم و يا جدول ويا كوئري را وارد نماييد.

amir4_1363
یک شنبه 21 تیر 1388, 12:16 عصر
ممنون از رهنمائی تون بیتا خانوم اما اینجا یه اشکال کوچیک داره اگه یه برنامه ای که تمام اون فارسی باشه وقتی که پنجره OutputTo باز میشه انگلیسی هستش ایا راهی داره که همون پنجره OutputTo بصورت یک فرم قابل دسترسی بصورت فارسی باشه

wolfstander
یک شنبه 21 تیر 1388, 14:51 عصر
جهت دادن خروجی اکسل :
با دو دستور می توانید این کار را انجام بدهید.
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

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

dadsara
سه شنبه 20 مرداد 1388, 10:57 صبح
سلام
من مطابق کدهای جنابعالی اقدام نمودم ، ولی هنگام ارسال ارور شماره 2306 ظاهر می گردد ، می خواهم بدانم آیا در ارسال اطلاعات محدودیتی از نظر رکورد وجود دارد
( تعداد رکورد من 50000 می باشد)

dadsara
شنبه 24 مرداد 1388, 09:47 صبح
از دوستان اگر کسی به راه حلی رسیده لطفا راهنمائی کند

dadsara
یک شنبه 01 شهریور 1388, 13:35 عصر
سلام
من مطابق کدهای جنابعالی اقدام نمودم ، ولی هنگام ارسال ارور شماره 2306 ظاهر می گردد ، می خواهم بدانم آیا در ارسال اطلاعات محدودیتی از نظر رکورد وجود دارد
( تعداد رکورد من 50000 می باشد)
اگر کسی راه حلی به نظرش رسیده لطفا اعلام کنه

amir4_1363
دوشنبه 02 شهریور 1388, 07:24 صبح
والا من دقیقا از خود اکسس اطلاعاتی ندارم که تا چند رکورد محدودیت داره ولی اروری که شما میفرمائید دقیقا معنیش اینه که شما در اوت پوت یک محدودیت خاصی دارید و ردیفها برای اینکار بسیار زیاد است
اما شما میتونید تو دو یا چند نوبیت اینکار را انجام دهید

dadsara
دوشنبه 16 شهریور 1388, 08:58 صبح
سلام
من مطابق کدهای جنابعالی اقدام نمودم ، ولی هنگام ارسال ارور شماره 2306 ظاهر می گردد ، می خواهم بدانم آیا در ارسال اطلاعات محدودیتی از نظر رکورد وجود دارد
( تعداد رکورد من 50000 می باشد)
لطفا راهنمائی کنید