هديل الحارثي قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 (معدل) السلام عليكم ورحمة الله وبركاته أولاً اشكر الأخوة جميعا من مشرفين والقائمين على الموقع .. ابصراحة الموقع يقدم مساعدة مهمة جداً للأعضاء وأنا استفدت كثير من الموقع .. بحثت كثير بالمواقع عن حل لمشكلة التصدير إلى الأكسل والورد ووجدت الميثال المرفق نفس آلية البحث في برنامجي بس لا يصدر البيانات وأتمني منكم المساعدة بطريقة برمجة محترفة كما تعودنا منكم . * للعلم الأهم التصدير للأكسل . * الاوفيس إللي معاي 2013 يعني التصدير يكون على تنسيق ( .xlsx ) شاكره لكم الموظفين.rar تم تعديل يناير 30, 2017 بواسطه هديل الحارثي رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب مشاركة قام بنشر يناير 30, 2017 أتمنى أيجاد حل أو طريقة لتصدير البيانات ... رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 2 دقائق مضت, هديل الحارثي said: أتمنى أيجاد حل أو طريقة لتصدير البيانات ... اليك هذا الكود DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX" بدل table1 ب اسم جدول اللي تريد 2 رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب مشاركة قام بنشر يناير 30, 2017 2 دقائق مضت, Shivan Rekany said: اليك هذا الكود DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX" بدل table1 ب اسم جدول اللي تريد مشكورة ولكن هل سيتم التصدير بعد عملية البحث ؟ رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 3 دقائق مضت, هديل الحارثي said: مشكورة ولكن هل سيتم التصدير بعد عملية البحث ؟ بعد المشاركة انا نزلت قاعدة بياناتك انتظرني غدا ان شاء الله سارجع من جديد 2 رابط هذا التعليق شارك More sharing options...
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 جعفر رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر يناير 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 جعفر هل ممكن تعدل الميثال المرفق مع السؤال ... أكون شاكره لك رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 تفضلي 563.الموظفين.mdb.zip رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب مشاركة قام بنشر يناير 30, 2017 الان, jjafferr said: تفضلي 563.الموظفين.mdb.zip أشكرك أخى جعفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 1 رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب مشاركة قام بنشر يناير 30, 2017 (معدل) 10 دقائق مضت, jjafferr said: تفضلي 563.الموظفين.mdb.zip لا تزال فيه مشكلة في الميثال أثناء التصدير " تعذر العثور على الكائن " qry_Temp تم تعديل يناير 30, 2017 بواسطه هديل الحارثي رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 2 ساعات مضت, jjafferr said: وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip ما خليت شي لنا ان نعمل يا ابو حسين انا جربت القاعدة وبيعمل المطلوب ممتاز اليك مني +1 1 رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر يناير 31, 2017 الكاتب مشاركة قام بنشر يناير 31, 2017 3 ساعات مضت, jjafferr said: وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip أشكرك أخى جعفر سوف أجرب وارد عليك اليوم رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 في ٣١/٠١/٢٠١٧ at 11:49, jjafferr said: وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip أشكرك أخى جعفر سوف أجرب وارد عليك اليوم اشكرك أستاذى بالفعل التطبيق صحيح والتصدير يعمل .. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان