PDA

View Full Version : کدی برای اکسپورت



amir4_1363
سه شنبه 10 اسفند 1389, 12:19 عصر
من فرمی را میخواهم که در ان کامبو باکس یا لیست باکسی وجود داشته باشد که تمام ریپورتها را نمایش دهد و کامند باتنی که در آن کدی باشد که بعد از انتخاب یک ریپورت وزدن دکمه (کامند باتن) بدون نیاز به ماکرو ریپورت مربوطه به اکسل یا هر پسوند دیگری اکسپورت شود .

با سپاس

stabesh
سه شنبه 10 اسفند 1389, 12:43 عصر
با سلام برای هر پسوندی فرق داره
باری اکسل
http://msdn.microsoft.com/en-us/library/aa193071%28v=office.10%29.aspx
http://msdn.microsoft.com/en-us/library/bb214131%28v=office.12%29.aspx
برای فایلهای text
http://msdn.microsoft.com/en-us/library/aa220768%28v=office.11%29.aspx
http://msdn.microsoft.com/en-us/library/bb214141%28v=office.12%29.aspx
http://www.blueclaw-db.com/transfertext-docmd.htm
برای یک یک دیتابیس دیگه
http://support.microsoft.com/kb/298174
http://www.blueclaw-db.com/transferdatabase-docmd.htm
http://msdn.microsoft.com/en-us/library/bb214131%28v=office.12%29.aspx
یه نمونه قبلا داشتم ولی پیداش نتونستن بکنم اگه پیداش کردم میذارمش

stabesh
سه شنبه 10 اسفند 1389, 12:58 عصر
اگه می خواهید از خود اکسس استفاده کنید هم می تونید این طوری که در پیوست گداشتم عمل کنید
که البته از کدهای بالا هم استفاده نمیکنه میذاره کاربر خودش انتخاب کنه و فقط برای گزارش ممکنه از ویزارد استفاده کرد برای بقیه باید کدنویسی انجام بشه
http://msdn.microsoft.com/en-us/library/bb238050%28v=office.12%29.aspx
http://msdn.microsoft.com/en-us/library/aa141534%28v=office.10%29.aspx
http://www.blueclaw-db.com/download/transfertext_outputto_examples.htm
http://www.blueclaw-db.com/docmd_outputto_example.htm

stabesh
سه شنبه 10 اسفند 1389, 13:06 عصر
سئوالاتون عوض کردید
فکر کنم این همونه که لازم دارید

amir4_1363
سه شنبه 10 اسفند 1389, 13:09 عصر
دستت درد نکنه اما من میخوام از لیست موجود قابل انتخاب باشه بعد اکسپورت بشه

bita_ziba77
سه شنبه 10 اسفند 1389, 13:25 عصر
با سلام
يك كليك در فرم خود قرار داده و سپس كد زير را به آن اضافه نماييد:

Private Sub Command3_Click()
On Error GoTo Command3_Click_Err

DoCmd.OutputTo acOutputReport, me.combo1, "Excel97-Excel2003Workbook(*.xls)", "", True, "", 0, acExportQualityPrint


Command3_Click_Exit:
Exit Sub

Command3_Click_Err:
MsgBox Error$
Resume Command3_Click_Exit

End Sub

سپس به جاي combo1 نام كمبوباكسي كه نام گزارشات در آن قرار دارد را وارد نماييد.

با تشكر

amir4_1363
سه شنبه 10 اسفند 1389, 13:58 عصر
توی خط سوم کد ارور میده واجرا نمیشه

stabesh
سه شنبه 10 اسفند 1389, 17:03 عصر
دستت درد نکنه اما من میخوام از لیست موجود قابل انتخاب باشه بعد اکسپورت بشه
چی قابل انتخاب باشه گزارشو که انتخاب کنید باتونو بزنید یک فرم باز میشه که میگه به چی تبدیلش کنم مورد دیگه چیه که می خواید انتخاب کنید ؟

amir4_1363
پنج شنبه 12 اسفند 1389, 06:58 صبح
سئوالاتون عوض کردید
فکر کنم این همونه که لازم دارید

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

stabesh
پنج شنبه 12 اسفند 1389, 09:58 صبح
حرف شما کاملا درسته اما پنجره خود اکسس هم برای انتخاب باز میشه اما ارور میده واکسپورت انجام نمیشه
من نميدونم چرا كار نميكنه
لينك زيرو هم ببينيد
http://barnamenevis.org/showthread.php?261784-%DA%AF%D8%B2%D8%A7%D8%B1%D8%B4-%D8%A7%D8%B2-%D8%A7%D9%83%D8%B3%D8%B3-%D8%A8%D9%87-%DB%8C%D9%83-%D9%81%D8%A7%DB%8C%D9%84-%D8%A7%D9%83%D8%B3%D9%84