هديل الحارثي قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 (معدل) السلام عليكم ورحمة الله وبركاته أولاً اشكر الأخوة جميعا من مشرفين والقائمين على الموقع .. ابصراحة الموقع يقدم مساعدة مهمة جداً للأعضاء وأنا استفدت كثير من الموقع .. بحثت كثير بالمواقع عن حل لمشكلة التصدير إلى الأكسل والورد ووجدت الميثال المرفق نفس آلية البحث في برنامجي بس لا يصدر البيانات وأتمني منكم المساعدة بطريقة برمجة محترفة كما تعودنا منكم . * للعلم الأهم التصدير للأكسل . * الاوفيس إللي معاي 2013 يعني التصدير يكون على تنسيق ( .xlsx ) شاكره لكم الموظفين.rar تم تعديل يناير 30, 2017 بواسطه هديل الحارثي
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 أتمنى أيجاد حل أو طريقة لتصدير البيانات ...
Shivan Rekany قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 2 دقائق مضت, هديل الحارثي said: أتمنى أيجاد حل أو طريقة لتصدير البيانات ... اليك هذا الكود DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX" بدل table1 ب اسم جدول اللي تريد 2
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 2 دقائق مضت, Shivan Rekany said: اليك هذا الكود DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX" بدل table1 ب اسم جدول اللي تريد مشكورة ولكن هل سيتم التصدير بعد عملية البحث ؟
Shivan Rekany قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 3 دقائق مضت, هديل الحارثي said: مشكورة ولكن هل سيتم التصدير بعد عملية البحث ؟ بعد المشاركة انا نزلت قاعدة بياناتك انتظرني غدا ان شاء الله سارجع من جديد 2
jjafferr قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 وعليكم السلام تفضلي ، التصدير الى اكسل وورد: Private Sub TOEX_Click() On Error GoTo err_TOEX_Click 'delete qry_Temp DoCmd.DeleteObject acQuery, "qry_Temp" 'make the new qry_Temp Set qrydf = CurrentDb.CreateQueryDef("qry_Temp", Me.S_NAME.Form.RecordSource) 'Export to xls 'File_Name= "C:\ASD\ASD.xlsx" File_Name = Application.CurrentProject.Path & "\myExcel.xls" 'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qry_Temp", File_Name, True DoCmd.OutputTo acOutputQuery, "qry_Temp", acFormatXLS, File_Name, True 'Export to Word File_Name = Application.CurrentProject.Path & "\myWord.rtf" DoCmd.OutputTo acOutputQuery, "qry_Temp", acFormatRTF, File_Name, True CurrentDb.QueryDefs.Delete qrydf.Name 'cleanup Set qrydf = Nothing Exit Sub err_TOEX_Click: If Err.Number = 7874 Then 'qry_Temp does not exist Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 الان, jjafferr said: وعليكم السلام تفضلي ، التصدير الى اكسل وورد: Private Sub TOEX_Click() On Error GoTo err_TOEX_Click 'delete qry_Temp DoCmd.DeleteObject acQuery, "qry_Temp" 'make the new qry_Temp Set qrydf = CurrentDb.CreateQueryDef("qry_Temp", Me.S_NAME.Form.RecordSource) 'Export to xls 'File_Name= "C:\ASD\ASD.xlsx" File_Name = Application.CurrentProject.Path & "\myExcel.xls" 'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qry_Temp", File_Name, True DoCmd.OutputTo acOutputQuery, "qry_Temp", acFormatXLS, File_Name, True 'Export to Word File_Name = Application.CurrentProject.Path & "\myWord.rtf" DoCmd.OutputTo acOutputQuery, "qry_Temp", acFormatRTF, File_Name, True CurrentDb.QueryDefs.Delete qrydf.Name 'cleanup Set qrydf = Nothing Exit Sub err_TOEX_Click: If Err.Number = 7874 Then 'qry_Temp does not exist Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر هل ممكن تعدل الميثال المرفق مع السؤال ... أكون شاكره لك
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 الان, jjafferr said: تفضلي 563.الموظفين.mdb.zip أشكرك أخى جعفر
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 (معدل) 10 دقائق مضت, jjafferr said: تفضلي 563.الموظفين.mdb.zip لا تزال فيه مشكلة في الميثال أثناء التصدير " تعذر العثور على الكائن " qry_Temp تم تعديل يناير 30, 2017 بواسطه هديل الحارثي
jjafferr قام بنشر يناير 31, 2017 قام بنشر يناير 31, 2017 وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip 1
Shivan Rekany قام بنشر يناير 31, 2017 قام بنشر يناير 31, 2017 2 ساعات مضت, jjafferr said: وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip ما خليت شي لنا ان نعمل يا ابو حسين انا جربت القاعدة وبيعمل المطلوب ممتاز اليك مني +1 1
هديل الحارثي قام بنشر يناير 31, 2017 الكاتب قام بنشر يناير 31, 2017 3 ساعات مضت, jjafferr said: وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip أشكرك أخى جعفر سوف أجرب وارد عليك اليوم
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب قام بنشر فبراير 2, 2017 في ٣١/٠١/٢٠١٧ at 11:49, jjafferr said: وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip أشكرك أخى جعفر سوف أجرب وارد عليك اليوم اشكرك أستاذى بالفعل التطبيق صحيح والتصدير يعمل ..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.