ahmed draz قام بنشر April 13 مشاركة قام بنشر April 13 (معدل) Export_to_Excel تصدير البيانات الى اكسيل.zip السلام عليكم ورحمة الله وبركاته عند استعمال البرنامج وهو برنامج رائع جدا ومفيد للغاية وجدت انه لايستطيع أن يتعامل مع اسماء الجداول و الاستعلامات عند تسميتها باللغة العربية وبالتحديد عندم يكون الاسم مكون من عدة كلمات مثل (مستجد فنى إنتاج حيوانى) فإنه يعطي رسالة خطأ كالتالي 3131 Syntax error in FROM clause وعندما بحثت في الأمر وجدت أن اسم الجدول في كود vba غير صحيح مع العلم أنه لايوجد اسم جدول في كود vba . والخلاصة ان البرنامج لا يستطيع أن يتعامل مع اسماء الجداول باللغة العربية فهل يمكنكم مساعدتي من فضلكم ولكم جزيل الشكر Export_to_Excel xls (97-2003 format).rar تم تعديل April 13 بواسطه ahmed draz رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 13 مشاركة قام بنشر April 13 (معدل) أخي @ahmed draz ، كل عام وأنت بخير ، وأهلاً بك معنا في عالم آكسيس بداية يرجى منك أن تلتزم بقوانين المنتدى ومن أهمها :- محتوى المشاركة اقتباس 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملماً بالمشكلة مثلك ..... بالنسبة للملف الذي ارسلته كمرفق لم يعمل عندي على أوفيس 2016 . اذا تكرمت ان تقوم بحفظه على الأقل بإصدار 2007 وأحدث أو قم بقراءة الموضوع الذي أتيت بالمرفق منه في هذه المشاركة تم تعديل April 13 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 13 الكاتب مشاركة قام بنشر April 13 السلام عليكم ورحمة الله وبركاته ، أخواني الكرام تم رفع ملف Export_to_Excel تصدير البيانات الى اكسيل بواسطة الاستاذ ابو الآء في الموضع التالى ولكن عند استعمال البرنامج وهو برنامج رائع جدا ومفيد للغاية وجدت انه لايستطيع أن يتعامل مع اسماء الجداول و الاستعلامات عند تسميتها باللغة العربية وبالتحديد عن عندم يكون الاسم مكون من عدة كلمات مثل (مستجد فنى إنتاج حيوانى) فإنه يعطي رسالة خطأ كالتالي 3131 Syntax error in FROM clause وعندما بحثت في الأمر وجدت أن اسم الجدول في كود vba غير صحيح مع العلم أنه لايوجد اسم جدول في كود vba . والخلاصة ان البرنامج لا يستطيع أن يتعامل مع اسماء الجداول باللغة العربية فهل يمكنكم مساعدتي من فضلكم ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 13 الكاتب مشاركة قام بنشر April 13 شكرا لسرعة استجابة حضرتك والملف محدث بصيغة 2007 Export_to_Excel.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر April 13 أفضل إجابة مشاركة قام بنشر April 13 48 دقائق مضت, ahmed draz said: تسميتها باللغة العربية وبالتحديد عن عندم يكون الاسم مكون من عدة كلمات مثل (مستجد فنى إنتاج حيوانى) بما أن المشكلة في وجود مسافات في إسم الجدول المستهدف لتصدير سجلاته . فالحل بسيط بإذن الله لاحظ في السطر التالي الأساسي :- i_strSql = "Select * From " & Me.cmb_TQ_Name سيأخذ اسم الجدول المكون من 4 مقاطع على فرضاً ( وليس بالضرورة لغة عربية أو انجليزية ) ولن يتعرف على الإسم كاملاً . لكن ! في التعديل التالي ستلاحظ الفرق بأن الكود أخذ الإسم كاملاً بكل مقاطعه عند استخدام علامات الإقتباس [ و ] :- i_strSql = "Select * From " & "[" & Me.cmb_TQ_Name & "]" طبعاً الشكر موصول لأخونا @ابو الآء على هذا الطرح الجميل وهذا أثر جميل له رغم أن عمر المشاركة من عام 2015 على العموم جرب وأخبرني بالنتيجة رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 13 الكاتب مشاركة قام بنشر April 13 شكرا جزيلا اخي الكريم Foksh فأنت في من يصدق فيهم قول الشاعر الناس من جهة التفضيل أكفاءُ … أبوهم آدم والأم حــــــــــــــــواءُ فإن لهمْ يكن من أصلهم شرفٌ … يفاخرون به فالطينُ والمـــــــاءُ وما الفخر إلا لأهل العلم إنهمُ… على الهدى لمن استهدى أدلاءُ وقيمة المرءِ ما قد كان يحسنهُ … والجاهلون لأهل العلمِ أعـــداءٌ فَعِشْ بعلمٍ تَفُـزْ حيَّاً به أبدا … الناسُ موتى وأهلُ العلمِ أحـــــــياءُ شكرا جزيلا فلقد اوضحت المشكلة واعطيت الحل و هذا هو كمال العطاء ومشاركة مني قمت برفع الملف بعد التعديل عليه وتحسين شكله قليلا لعل الله ينفع به أحدا من المسلمين. ملاحظة: الملف المرفوع للجداول فقط وسيتم اخر قريبا للجداول والاستعلامات Export_to_Excel الملف محدث وبشكل افضل.rar 1 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 13 مشاركة قام بنشر April 13 48 دقائق مضت, ahmed draz said: شكرا جزيلا اخي الكريم Foksh فأنت في من يصدق فيهم قول الشاعر الناس من جهة التفضيل أكفاءُ … أبوهم آدم والأم حــــــــــــــــواءُ فإن لهمْ يكن من أصلهم شرفٌ … يفاخرون به فالطينُ والمـــــــاءُ وما الفخر إلا لأهل العلم إنهمُ… على الهدى لمن استهدى أدلاءُ وقيمة المرءِ ما قد كان يحسنهُ … والجاهلون لأهل العلمِ أعـــداءٌ فَعِشْ بعلمٍ تَفُـزْ حيَّاً به أبدا … الناسُ موتى وأهلُ العلمِ أحـــــــياءُ شكرا جزيلا فلقد اوضحت المشكلة واعطيت الحل و هذا هو كمال العطاء ومشاركة مني قمت برفع الملف بعد التعديل عليه وتحسين شكله قليلا لعل الله ينفع به أحدا من المسلمين. ملاحظة: الملف المرفوع للجداول فقط وسيتم اخر قريبا للجداول والاستعلامات Export_to_Excel الملف محدث وبشكل افضل.rar 81.89 kB · 1 download شكراً لك أخي @ahmed draz على هذا الشعور والكلام الطيب ؛ النابع من شخص طيب . وشكراً على التنسيق الجميل أيضاً 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 13 الكاتب مشاركة قام بنشر April 13 جزاك الله خيرا اخي الفاضل Foksh والان مع هذه الاداة الرائعة لتصدير جداول واستعلامات الاكسس الى جدول اكسل Export_to_Excel تصدير البيانات الى اكسيل محدث.rar رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 14 الكاتب مشاركة قام بنشر April 14 (معدل) اخي الفاضل Foksh لو تكرمت و ساعدتني في طلبي الأخير ان شاء الله فأنا اقوم بصنع قاعدة بيانات تقوم بإستيراد البيانات من ملفات اكسل حقولها و اسماؤها مطابقة للجداول في القاعدة ثم اجري عليها بعض العمليات و اقوم بتصديرها مرة اخري الى ملفات اكسل ليستلمها منى شخص اخر ويقوم عليها بعمليات اخرى وهكذا وقد ساعدتني مساعدة كبيرة في تصدير الملفات وجرت الامور على أكمل وجه والحمد لله ولكن تبقت معي مسألة استيراد البيانات من الاكسل فقد نجحت في اسيراد ملف واحد فقط ولكنني اريد استيراد باقي الملفات عن طريق كومبوبوكس وليس عن طريق كتابة اسم الجدول المراد استيراد البيانات اليه كل مره في كود VBA ولقد قمت بمعظم العمل والحمد لله ولكن تبقت هذه النقطة فقط و سأوضح بالصور واشكرك على صبرك وسعة صدرك. المشروع الجديد 1.rar تم تعديل April 14 بواسطه ahmed draz رفع ملف خطأ رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 14 مشاركة قام بنشر April 14 تحديثات جميلة ، الله يعطيك العافية على مجهودك ولا يهمك ، إن شاء الله حال وصولي للعمل سأتابع معك 🤗 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 14 مشاركة قام بنشر April 14 تفضل يا صديقي ، واتمنى ان اكون فهمت صح المشروع الجديد 1.zip 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 14 الكاتب مشاركة قام بنشر April 14 (معدل) اخي الفاضل Foksh أحسنت أحسنت أحسنت وجزاك الله خيرا... لم أقرأ كود vba بعد ولكن شكرا جزيلا فقد ساعدتني على صنع اداة متكاملة لاستيراد ملفات الاكسل وتصديرها عبر الاكسس وهو ما يحتاجة العديد من الزملاء الذين يعملون في كنترولات المدارس والجامعات وهو ما سأقدمه جاهزا بعد ضبطة بشكل جيد هدية لمنتدانا الكبير والفضل لله ثم لحضرتكم. رجاءاً ومن فضلك: الإشارة الى المكان الذي تم فيه التعديل لأني لم اعرف مكان التعديل و لكي اتعلم واطمع في كرمك لو تكرمت وقمت بحل رسالة الخطأ التي تظهر لو نسيت ولم اقم بإختيار كومبو بوكس ورقة العمل فإذا تكرمت و قمت بإظهار رسالة تفيد بعدم الإختيار من كومبوبوكس ورقة العمل وعدم تنفيذ الاستيراد دون اختيارهها وشكر جزيلا لك اخي الكريم. تم تعديل April 14 بواسطه ahmed draz 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 14 مشاركة قام بنشر April 14 (معدل) تفضل المشروع الجديد 1.zip تم تعديل المرفق ، كنت قد ارفقت الملف الأصلي وليس الملف الذي تم التعديل عليه تم تعديل April 14 بواسطه Foksh تعديل المرفق 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 14 الكاتب مشاركة قام بنشر April 14 اخي الفاضل Foksh لا ادري إن كنت افهمك بالشكل الصحيح .... وأذا كان التعديل الأخير الخاص برسالة الخطأ التي تظهر عند عدم اختيار كومبوبوكس اختيار ورقة العمل ام لا ...لأنها لا تزال تظهر ... وان كنت أخي الكريم مشغولا فأنا لست متعجلا للحل حتى لا ازعجك بإي شكل من الاشكال وجزاك الله خيراً. واشكرك على صبرك وسعة صدرك. 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 14 مشاركة قام بنشر April 14 7 دقائق مضت, ahmed draz said: اخي الفاضل Foksh لا ادري إن كنت افهمك بالشكل الصحيح .... وأذا كان التعديل الأخير الخاص برسالة الخطأ التي تظهر عند عدم اختيار كومبوبوكس اختيار ورقة العمل ام لا ...لأنها لا تزال تظهر ... وان كنت أخي الكريم مشغولا فأنا لست متعجلا للحل حتى لا ازعجك بإي شكل من الاشكال وجزاك الله خيراً. واشكرك على صبرك وسعة صدرك. اعتذر ، تم تعديل المشاركة السابقة والملف المرفق فيها . 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 14 الكاتب مشاركة قام بنشر April 14 اخي الفاضل Foksh بارك الله فيك و في علمك ونفع بك الناس ووجدت عونك للناس خيراً يوم القيامة. اّمين (شكرا جزيلا لوقتك الثمين) رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 14 مشاركة قام بنشر April 14 41 دقائق مضت, ahmed draz said: بارك الله فيك و في علمك ونفع بك الناس ووجدت عونك للناس خيراً يوم القيامة. اّمين ولك يالمثل أخي @ahmed draz رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 14 الكاتب مشاركة قام بنشر April 14 (معدل) شكرا جزيلا شكرا جزيلا تم تعديل April 14 بواسطه ahmed draz رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 14 الكاتب مشاركة قام بنشر April 14 (معدل) السلام عليكم ورحمة الله اخي الفاضل Foksh أقدم للمنتدى الاداة المتميزة والمتطوره لإستيراد جداول الإكسل و تصديرها عبر اكسس هي اداة كنت ابحث عنها منذ مده و وجدتها في هذا المنتدى في مشاركة من 2015 وقدم لي أخونا الكريم Foksh مساعدة كبيرة في تطوير الأداة ولم يبخل بالجهد أو الوقت فجزاه الله خيراً ولعل الله ينفع بها احداً من المسلمين. اداة لإستيراد جداول الإكسل و تصديرها.rar تم تعديل April 14 بواسطه ahmed draz 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 15 الكاتب مشاركة قام بنشر April 15 اخي الفاضل Foksh لو تكرمت وساعدتني في اضافة الاعدادات الموجودة في نموذج التصدير من جدول الى الاكسل الى نموذج استيراد من جدول الاكسل وخصوصا بند ( إصافة بدون حذف) اي إلحاق بيانات من جدول اكسل لجدول الاكسس دون حذف البيانات الموجوده فيه. فلقد حاولت مرارا تقليد الكود في نموج التصدير ليصلح في نموذج الاستيراد ولكنني لم انجح فأنا لا اطلب المساعدة إلا بعد استنفاذ جيع المحاولات ولك جزيل الشكر. رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر April 15 مشاركة قام بنشر April 15 شكر وتقدير واحترام من اخيك رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 15 مشاركة قام بنشر April 15 (معدل) 13 ساعات مضت, ahmed draz said: اخي الفاضل Foksh لو تكرمت وساعدتني في اضافة الاعدادات الموجودة في نموذج التصدير من جدول الى الاكسل الى نموذج استيراد من جدول الاكسل وخصوصا بند ( إصافة بدون حذف) اي إلحاق بيانات من جدول اكسل لجدول الاكسس دون حذف البيانات الموجوده فيه. فلقد حاولت مرارا تقليد الكود في نموج التصدير ليصلح في نموذج الاستيراد ولكنني لم انجح فأنا لا اطلب المساعدة إلا بعد استنفاذ جيع المحاولات ولك جزيل الشكر. بدايةً الموضوع ليس بالسهولة التي تتوقعها أخي @ahmed draz . بالإضافة إلى أن الفكرة قد تسبب تكرار للبيانات في الجداول داخل اكسيس . سأحاول غداً إن شاء الله المحاولة 😅 تم تعديل April 16 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر April 16 الكاتب مشاركة قام بنشر April 16 اخي الكريم Foksh شكرا جزيلا فأنت صبور معى لحد كبير . و أعلم أن بعض الطلبات غير قابلة للتنفيذ أحياناً وهي من باب تحسين اداة الاستيراد. ولكنني توسمت فيك الخبرة والقدرة على صنع ماتريده بكود vba . فلا تحمل نفسك عناء صعوبة طلبى وتقديري لوقتك. فما قدمته لي من مساعدة يصعب علي مكافأتها بكل كلمات الشكر والتقدير . رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر April 16 مشاركة قام بنشر April 16 (معدل) السلام عليكم ورحمة الله وبركاته بارك الله فيك بشمهندس احمد على طرح هذا الموضوع المهم وبارك الله في بشمهندس foksh لتعبه وتطويره المبدع صراحة قد خطر لي سؤال او هاجس ( ولا ادرى هل محل هذا الموضوع هذا السؤال ام يستدعى فتح موضوع جديد ) والسؤال يقول : هل يمكن في عملية تصدير الجدول ان اختار من الجدول مااريد ان اصدره من حقول او حتى من صفوف ؟ والشكر موصول للجميع تم تعديل April 16 بواسطه SAROOK 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 16 مشاركة قام بنشر April 16 (معدل) جرب هذا التعديل أخي @ahmed draz ، في زر الإستيراد في نموذج الإستيراد . Private Sub BtnImpotData_Click() If IsNull(listBoxWorksheets) Then MsgBox "لم تقم باختيار ورقة العمل من ملف الاكسل", vbCritical, "" Exit Sub Else Call GetWaiting("انتظر لحظة من فضلك .... يتم معالجة البيانات") Dim sheetRange As String Dim strTable As String Dim strPath As String Dim Check30 As Integer strTable = Me.cmb_TQ_Name.Value strPath = Me.txtPath sheetRange = listBoxWorksheets Check30 = Me.Check30.Value If Check30 = 1 Then DeleteTableSafe strTable End If DoEvents Dim objExc As Object ' late Dim objWbk As Object ' late Dim objWsh As Object ' late 'Set objExc = New Excel.Application ' early Set objExc = CreateObject("Excel.Application") ' late Set objWbk = objExc.workbooks.Open(Me.txtPath) For Each objWsh In objWbk.Worksheets 'Debug.Print objWsh.Name Next DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, strTable, strPath, True, sheetRange & "$" DoCmd.Close acForm, "frmWaiting" Set objWsh = Nothing objWbk.Close Set objWbk = Nothing objExc.Quit Set objExc = Nothing subFormData.SourceObject = "Table.elemnts 1" subFormData.Visible = True End If End Sub وأخبرني بالنتيجة اداة لإستيراد جداول الإكسل و تصديرها.accdb 13 دقائق مضت, SAROOK said: هل يمكن في عملية تصدير الجدول ان اختار من الجدول مااريد ان اصدره من حقول او حتى من صفوف ؟ هذا السؤال موجه لأخ @ahmed draz صاحب الموضوع والتطوير على أداة أستاذنا @ابو الآء تم تعديل April 16 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان