هديل الحارثي قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 (معدل) السلام عليكم ورحمة الله وبركاته أولاً اشكر الأخوة جميعا من مشرفين والقائمين على الموقع .. ابصراحة الموقع يقدم مساعدة مهمة جداً للأعضاء وأنا استفدت كثير من الموقع .. بحثت كثير بالمواقع عن حل لمشكلة التصدير إلى الأكسل والورد ووجدت الميثال المرفق نفس آلية البحث في برنامجي بس لا يصدر البيانات وأتمني منكم المساعدة بطريقة برمجة محترفة كما تعودنا منكم . * للعلم الأهم التصدير للأكسل . * الاوفيس إللي معاي 2013 يعني التصدير يكون على تنسيق ( .xlsx ) شاكره لكم الموظفين.rarFetching info... تم تعديل يناير 30, 2017 بواسطه هديل الحارثي
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 أتمنى أيجاد حل أو طريقة لتصدير البيانات ...
Shivan Rekany قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 في 30/1/2017 at 17:08, هديل الحارثي said: أتمنى أيجاد حل أو طريقة لتصدير البيانات ... Expand اليك هذا الكود DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX" بدل table1 ب اسم جدول اللي تريد 2
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 في 30/1/2017 at 17:12, Shivan Rekany said: اليك هذا الكود DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX" بدل table1 ب اسم جدول اللي تريد Expand مشكورة ولكن هل سيتم التصدير بعد عملية البحث ؟
Shivan Rekany قام بنشر يناير 30, 2017 قام بنشر يناير 30, 2017 في 30/1/2017 at 17:15, هديل الحارثي said: مشكورة ولكن هل سيتم التصدير بعد عملية البحث ؟ Expand بعد المشاركة انا نزلت قاعدة بياناتك انتظرني غدا ان شاء الله سارجع من جديد 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 في 30/1/2017 at 21:10, 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 جعفر Expand هل ممكن تعدل الميثال المرفق مع السؤال ... أكون شاكره لك
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 في 30/1/2017 at 21:18, jjafferr said: تفضلي 563.الموظفين.mdb.zipFetching info... Expand أشكرك أخى جعفر
هديل الحارثي قام بنشر يناير 30, 2017 الكاتب قام بنشر يناير 30, 2017 (معدل) في 30/1/2017 at 21:18, jjafferr said: تفضلي 563.الموظفين.mdb.zipFetching info... Expand لا تزال فيه مشكلة في الميثال أثناء التصدير " تعذر العثور على الكائن " qry_Temp تم تعديل يناير 30, 2017 بواسطه هديل الحارثي
jjafferr قام بنشر يناير 31, 2017 قام بنشر يناير 31, 2017 وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip 1
Shivan Rekany قام بنشر يناير 31, 2017 قام بنشر يناير 31, 2017 في 31/1/2017 at 07:49, jjafferr said: وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zipFetching info... Expand ما خليت شي لنا ان نعمل يا ابو حسين انا جربت القاعدة وبيعمل المطلوب ممتاز اليك مني +1 1
هديل الحارثي قام بنشر يناير 31, 2017 الكاتب قام بنشر يناير 31, 2017 في 31/1/2017 at 07:49, jjafferr said: وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zipFetching info... Expand أشكرك أخى جعفر سوف أجرب وارد عليك اليوم
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب قام بنشر فبراير 2, 2017 في 31/1/2017 at 07:49, jjafferr said: وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.Fetching info... mdb.zipFetching info... Expand أشكرك أخى جعفر سوف أجرب وارد عليك اليوم اشكرك أستاذى بالفعل التطبيق صحيح والتصدير يعمل ..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.