ابا عمرو قام بنشر مارس 13, 2015 مشاركة قام بنشر مارس 13, 2015 (معدل) الأخوه الكرام / أعضاء المنتدى سلام الله عليكم ورحمته لدي قاعدة بيانات أقوم بتصدير الجدول في صورة اكسل واستيراده مرة ثانية للقاعدة بنجاح المشكلة : في حالة تسجيل عنوان في خصائص الحقل بالجدول لا يمكن استيراد الجدول وإذا تم تفريغ العنوان في خصائص الحقل بالجدول يتم استيراده بسهولة . المطلوب كيف يمكن التغلب على هذه المشكلة جزاكم الله خيرا مرفق لكم نموذج للقاعدة وبها عناوين في خصائص الحقول بالجدول وأخرى فارغة أرجو أن أكون وصلت المشكلة . قاعدة بيانات ليس بها عناوين حقول في خصائص الحقول.rar قاعدة بيانات بها عناوين حقول.rar تم تعديل مارس 13, 2015 بواسطه ابا عمرو رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 13, 2015 مشاركة قام بنشر مارس 13, 2015 وعليكم السلام أخي جرب المرفق في الرابط التالي ، وهو يصدر البيانات للاكسل كما تريد: http://www.officena.net/ib/index.php?showtopic=58001 جعفر رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر مارس 14, 2015 الكاتب مشاركة قام بنشر مارس 14, 2015 أخي الكريم / جعفر جزاكم الله خيرا وزادكم علما برنامج لائع ومفيد جدا ولكن أخي الكريم هل يمكنكم التعديل لمعرفة سبب عدم امكانية استيراد ملف اكسل إدا كان تم تصديره بعناوين (وليس أسماء) الحقل الموجود في خصائص الحقل ومرة ثانية جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 14, 2015 مشاركة قام بنشر مارس 14, 2015 أخي اباعمرو انت مشكلتك في استيراد بيانات الاكسل ، مب في الاكسس انا اعطيك اسهل طريقة لاستيراد بياناتك من الاكسل الى للاكسس: 1. استعمل الكود التالي ، والذي سيستورد بيانات الاكسل الى جدول مؤقت اسمه Temp: DoCmd.DeleteObject acTable, "Temp" DoCmd.TransferSpreadsheet acImport, 8, "Temp", ImportFileName, True 2. اعمل استعلام الحاقي ليأخذ بيانات الجدول Temp الى جدولك "جدول تسجيل الكتب" ، سر نجاح هذه الطريقة هي ، يا أخي خلي الاكسل يتدلل ويتدلع ، بس خليه يجيب البيانات ، وبعدين لما كل شئ عندنا في الاكسس ، نعرف كيف التعامل معاه جعفر 2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 14, 2015 مشاركة قام بنشر مارس 14, 2015 أخي اباعمرو 2. اعمل استعلام الحاقي ليأخذ بيانات الجدول Temp الى جدولك "جدول تسجيل الكتب" ، سر نجاح هذه الطريقة هي ، يا أخي خلي الاكسل يتدلل ويتدلع ، بس خليه يجيب البيانات ، وبعدين لما كل شئ عندنا في الاكسس ، نعرف كيف التعامل معاه جعفر تحية وشكر لك استاذنا جعفر وهذا هو الذي انا اسير عليه في برامجي حيث اضع جدولا وسيطا وقد حاولت حل المسألة من وجهة نظر اخونا ابو عمرو وخرجت بنتيجة لعلها تكون مرضية وهي كالتالي : استبدال السطر الخاص بالتصدير والموجود في الوحدة النمطية العامة : 'DoCmd.OutputTo acOutputTable, "جدول تسجيل الكتب", acFormatXLS, CurrentProject.Path & "\MyBackup" & "\سجل الكتب.xls", true, "" بهذا السطر : DoCmd.TransferSpreadsheet acExport, 8, "جدول تسجيل الكتب", CurrentProject.Path & "\MyBackup" & "\سجل الكتب.xls", False, "" وفي المثال تطبيق للمقال exp@Emp.rar 1 رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر مارس 15, 2015 الكاتب مشاركة قام بنشر مارس 15, 2015 أخي وأستاذي الكريم / جعفر ، وأبو خليل السلام عليكما ورحمة الله بارك الله فيكم وفي علمكم وزادكم علما وفتح الله عليكم من علمه لا أدري والله ما أقول لكم إلا كما علمنا رسول الله صلى الله عليه وسلم فيما معناه " من قدم لكم معروفا فكافئوه فإن لم تجدوا فإن لم تجدوا ما تكافئونه " فأنا لا أملك إلا أن أقول لكما جزاكما الله خيرا وزادكم علما ونفع بعلمكما المسملين . وأرجو أن تتذكرا والدي بدعوة في ظهر الغيب أن يرحمه الله رحمة واسعة ويدخله جنته 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 15, 2015 مشاركة قام بنشر مارس 15, 2015 حياك الله اخوي اباعمرو ونعم الابن البار والله ان شاء الله يتغمد والدينا ووالديك الاحياء منهم والاموات بإحسانه ولطفه دنيا وآخرة ويحشرهم في زمرة المصطفى صلاوات ربي وسلامه عليه جعفر 1 رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر مارس 15, 2015 الكاتب مشاركة قام بنشر مارس 15, 2015 أخي وأستاذي الكريم / جعفر ، وأبو خليل السلام عليكما ورحمة الله وكنت أتمنى أن تظهر التسمية التوضيحية للحقول الموجودة في خصائص الجدول في الاكسس تظهر في صفحة الاكسل بدلا من اسماء الحقول ولكن حتى لا أكلف عليكم بأكثر من ذلك وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 15, 2015 مشاركة قام بنشر مارس 15, 2015 أخي اباعمرو ، جربت طريقتي؟ جعفر رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر مارس 16, 2015 الكاتب مشاركة قام بنشر مارس 16, 2015 استاذي الكريم / جعفر سلام الله عليكم ورحمته وبركاته أستاذي أنا للأسف لم أجرب طريقتك وأرجو إن أمكن (طلب وليس أمر) تطبق ما ذكرته على المثال المرفق لكم سابقا على قاعدة بيانات بها عناوين حقول في خصائص الحقل حتى اتمكن من استيعاب ما ذكرته وأكون بذلك مشكور جدا . رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 16, 2015 مشاركة قام بنشر مارس 16, 2015 السلام عليكم ورحمة الله وبركاته أخي اباعمرو ضع هذا الكود على زر استيراد جدول (بدل الكود القديم) Private Sub Command2_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\MyBackup\سجل الكتب" & ".xls" 'DoCmd.TransferSpreadsheet acImport, 8, "جدول تسجيل الكتب", ImportFileName, True DoCmd.DeleteObject acTable, "Temp" DoCmd.TransferSpreadsheet acImport, 8, "Temp", ImportFileName, True Dim fld As Field Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Temp") mySQL = "INSERT INTO [جدول تسجيل الكتب] ( title, [اسم المؤلف], [مكان النشر], الناشر, ملاحظات ) Select" For Each fld In rst.Fields i = i + 1 If i <> 1 Then mySQL = mySQL & " [" & fld.Name & "]," End If Next mySQL = Mid(mySQL, 1, Len(mySQL) - 1) & " From Temp" 'Debug.Print mySQL CurrentDb.Execute (mySQL) End Sub جعفر رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر مارس 17, 2015 الكاتب مشاركة قام بنشر مارس 17, 2015 (معدل) أستناذي الكريم / جعفر بعد وضع هذا الكود على زر استيراد الجدول ماذا عن الجدول Temp والاستعلام الالحاقي أرجو التوضيح على المرفق التالي رحم الله والدايك ووالدي مثال.rar تم تعديل مارس 17, 2015 بواسطه ابا عمرو رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 17, 2015 مشاركة قام بنشر مارس 17, 2015 وعليكم السلام ما لك شغل فيهم ، الكود يعمل كل شئ بنفسه جعفر رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر مارس 17, 2015 الكاتب مشاركة قام بنشر مارس 17, 2015 استاذي الكريم / سلام الله عليكم للأسف في مشكلة في الكود وأعطاء لي رسالة أسف إن كنت بثقل عليكم بطلب هذا ولكن احترامكم وتقديركم لطلبي شجعني على ذلك مرفق لكم رسالة الخطأ رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر مارس 17, 2015 أفضل إجابة مشاركة قام بنشر مارس 17, 2015 آسف ، ما جربت البرنامج كفاية الان تم تجربته بالكود التالي: Private Sub Command2_Click() On Error GoTo err_Command2_Click Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\MyBackup\سجل الكتب" & ".xls" 'DoCmd.TransferSpreadsheet acImport, 8, "جدول تسجيل الكتب", ImportFileName, True DoCmd.DeleteObject acTable, "Temp" DoCmd.TransferSpreadsheet acImport, 8, "Temp", ImportFileName, True Dim fld As Field Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Temp") mySQL = "INSERT INTO [جدول تسجيل الكتب] ( title, [اسم المؤلف], [مكان النشر], الناشر, ملاحظات ) Select" For Each fld In rst.Fields i = i + 1 If i <> 1 Then mySQL = mySQL & " [" & fld.Name & "]," End If Next mySQL = Mid(mySQL, 1, Len(mySQL) - 1) & " From Temp" 'Debug.Print mySQL CurrentDb.Execute (mySQL) DoCmd.DeleteObject acTable, "Temp" MsgBox "Done" Exit Sub err_Command2_Click: If Err.Number = 7874 Then 'table Temp not found, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر جعفر 2 رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر مارس 18, 2015 الكاتب مشاركة قام بنشر مارس 18, 2015 أستاذي الكريم / جعفر سلام الله عليكم ورحمته جزاكم الله خيرا على مجهودكم ووقتم التي قضيتموه من أجلي ونفع الله بعلمكم المسملين رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 18, 2015 مشاركة قام بنشر مارس 18, 2015 رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر مارس 25, 2015 الكاتب مشاركة قام بنشر مارس 25, 2015 (معدل) اخي الكريم / وضح لكم من ردي السابق ان المشكلة تم حلها ولكن أنا أتطفل عليكم أكثر لاخبركم بأن المشكلة ما زالت فالملف الذي يتم تصديره الى اكسل ما زال بعناوين أجنبية وكنت أريدها تظهر كما ذكرت لكم باللغة العربية فهل في استطاعتكم المساعدة تم تعديل مارس 25, 2015 بواسطه ابا عمرو رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.