moham_q قام بنشر يونيو 12, 2015 قام بنشر يونيو 12, 2015 السلام عليكم اعضاء المنتدى المحترمين ... ارجو مساعدتي على طريقة لتصدير جدول اكسيس الى ملف نصي text من خلال فورم يحوي هذا الجدول ويفضل ان يكون الملف النصي خال من اي خطوط او هوامش وغيرها ولكم جزيل الشكر والامتنان .... تحياتي لكم
ابوخليل قام بنشر يونيو 12, 2015 قام بنشر يونيو 12, 2015 تفضل ضع هذا الكود في حدث الزر DoCmd.TransferText acExportDelim, "", "Tbl1", strPath & "\Tbl1.txt", True, "" Tbl1 هو اسم الجدول المراد تصديره strPath هو الامتداد او مكان حفظ الجدول Tble1.txt هو اسم النسخة المحفوظة 1
moham_q قام بنشر يونيو 12, 2015 الكاتب قام بنشر يونيو 12, 2015 السيد ابو خليل المحترم ... لدى وضع الكود المشار اليه اعلاه تظهر وعند التنفيذ تظهر الرسالة التاليه عن الضغط على زر command30 the microsoft office access database engine could not find the object salary#txt , make sure the object exists and that you spell its name and the path name correctly للعمل اسم الجدول المراد تحويله الى ملف نصي هو salary ارجو التوضيح مع خالص شكري وامتناني
moham_q قام بنشر يونيو 12, 2015 الكاتب قام بنشر يونيو 12, 2015 تفضل ضع هذا الكود في حدث الزر DoCmd.TransferText acExportDelim, "", "Tbl1", strPath & "\Tbl1.txt", True, "" Tbl1 هو اسم الجدول المراد تصديره strPath هو الامتداد او مكان حفظ الجدول Tble1.txt هو اسم النسخة المحفوظة لسيد ابو خليل المحترم ... لدى وضع الكود المشار اليه اعلاه تظهر وعند التنفيذ تظهر الرسالة التاليه عن الضغط على زر command30 the microsoft office access database engine could not find the object salary#txt , make sure the object exists and that you spell its name and the path name correctly للعمل اسم الجدول المراد تحويله الى ملف نصي هو salary ارجو التوضيح مع خالص شكري وامتناني
moham_q قام بنشر يونيو 12, 2015 الكاتب قام بنشر يونيو 12, 2015 اين تريد تحفظ الناتج ؟ على سطح المكتب desktop
ابوخليل قام بنشر يونيو 12, 2015 قام بنشر يونيو 12, 2015 تفضل من مكتبتي الملف الذي استللت منه الكود تصدير الجدول الى سطح المكتب كملف نصي تصدير جدول الى سطح المكتب.rar
moham_q قام بنشر يونيو 13, 2015 الكاتب قام بنشر يونيو 13, 2015 تفضل من مكتبتي الملف الذي استللت منه الكود تصدير الجدول الى سطح المكتب كملف نصي تفضل من مكتبتي الملف الذي استللت منه الكود تصدير الجدول الى سطح المكتب كملف نصي الاخ العزيز ابوخليل المحترم ... اشكرك على تجاوبك الرائع واهتمامك الكبير وانا استفدت من ما قدمته من المشاركة ... ارجو ان تساعدني على ان يكون الملف النصي النهائي المصدر خالي من الفوارز والكوتيشنات والنقاط في الحقول ويكون كل قيد مدموج بحقوله مع بعض وان لا تظهر اسماء حقول الجدول في اول قيد في الجدول كما حصل لي بعد اكتمال تصدير الملف الذي يحوي عيى اربعة حقول ...اشكرك على تواصلك وادعو الله ان يوفقك لما فيه خدمة للجميع 1
ابوخليل قام بنشر يونيو 13, 2015 قام بنشر يونيو 13, 2015 استبدل الدالة acExportDelim الموجودة داخل الكود بهذه acExportMerge الاخيرة تزيل الفواصل 2
moham_q قام بنشر يونيو 13, 2015 الكاتب قام بنشر يونيو 13, 2015 استبدل الدالة acExportDelim الموجودة داخل الكود بهذه acExportMerge الاخيرة تزيل الفواصل الاخ العزيز ابو خليل المحترم ... لقد غيرتها وازيلت فقط الفوارز اما الكوتيشنات " " فقد بقت موجودة .... وظهرت فراغات بين البيانات النهائية لكل قيد ... انا اريد ان يظهر القيد الذي تم تصديره في الجدول على النحو التالي 3420200800000028306000000806201501 ولا يظهر على النحو التالي عندما اقوم بعملية التصدير "3420200800","00000283060","08062015","01" حيث ان القيد يتكون من الجزء الاول يمثل الرقم والجزء الثاني يمثل الكود والجزء الثالث يمثل التاريخ والاخير يمثل النوع لهذا اريده ان يظهر بصورة حقل واحد مدموج البيانات مع بعض اشكرك مرة ثانية اتعاونك معي ومساعدتي على انجاز العمل وفقك الله ....تحياتي
رمهان قام بنشر يونيو 13, 2015 قام بنشر يونيو 13, 2015 هل ممكن مرفقك ! والذي به الحقول :الرقم والكود والتاريخ والنوع ؟؟!1
moham_q قام بنشر يونيو 13, 2015 الكاتب قام بنشر يونيو 13, 2015 السلام عليكم زملائي اعضاء المنتدى ارفق لكم ادناه جدول الاكسيس المراد تصديره الى ملف نصي من خلال فورم واستخدام command bottun ولقد ارفقت معه نسخة من الملف النصي الذي اريده كنموذج على ان يكون شكل الملف بعد تصديره بنفس الشكل ادناه علما ان الملف النصي يكون خاليا من الفوارز والكوتيشنات والنقاط بحيث اريده ان يكون على شكل قيد واحد مدموج القيم مع شكري وامتناني T2.txt t2.rar
ابوخليل قام بنشر يونيو 13, 2015 قام بنشر يونيو 13, 2015 استبدل الدالة acExportDelim الموجودة داخل الكود بهذه acExportMerge الاخيرة تزيل الفواصل الاخ العزيز ابو خليل المحترم ... لقد غيرتها وازيلت فقط الفوارز اما الكوتيشنات " " فقد بقت موجودة .... وظهرت فراغات بين البيانات النهائية لكل قيد ... انا اريد ان يظهر القيد الذي تم تصديره في الجدول على النحو التالي 3420200800000028306000000806201501 ولا يظهر على النحو التالي عندما اقوم بعملية التصدير "3420200800","00000283060","08062015","01" حيث ان القيد يتكون من الجزء الاول يمثل الرقم والجزء الثاني يمثل الكود والجزء الثالث يمثل التاريخ والاخير يمثل النوع لهذا اريده ان يظهر بصورة حقل واحد مدموج البيانات مع بعض اشكرك مرة ثانية اتعاونك معي ومساعدتي على انجاز العمل وفقك الله ....تحياتي اخي الكريم يمكنك ضم الحقول داخل استعلام ثم تصدير الاستعلام كحقل واحد
moham_q قام بنشر يونيو 13, 2015 الكاتب قام بنشر يونيو 13, 2015 استبدل الدالة acExportDelim الموجودة داخل الكود بهذه acExportMerge الاخيرة تزيل الفواصل الاخ العزيز ابو خليل المحترم ... لقد غيرتها وازيلت فقط الفوارز اما الكوتيشنات " " فقد بقت موجودة .... وظهرت فراغات بين البيانات النهائية لكل قيد ... انا اريد ان يظهر القيد الذي تم تصديره في الجدول على النحو التالي 3420200800000028306000000806201501 ولا يظهر على النحو التالي عندما اقوم بعملية التصدير "3420200800","00000283060","08062015","01" حيث ان القيد يتكون من الجزء الاول يمثل الرقم والجزء الثاني يمثل الكود والجزء الثالث يمثل التاريخ والاخير يمثل النوع لهذا اريده ان يظهر بصورة حقل واحد مدموج البيانات مع بعض اشكرك مرة ثانية اتعاونك معي ومساعدتي على انجاز العمل وفقك الله ....تحياتي اخي الكريم يمكنك ضم الحقول داخل استعلام ثم تصدير الاستعلام كحقل واحد اخي ابوخليل الرجاء توضيح هذه الطريقة من خلال الاستعلام ومن ثم تصديره ... مع الشكر الجزيل
ابوخليل قام بنشر يونيو 13, 2015 قام بنشر يونيو 13, 2015 تفضل هذا تعديل اتمنى ان يكون قريبا من طلبك db2.rar
رمهان قام بنشر يونيو 14, 2015 قام بنشر يونيو 14, 2015 اعمل ملف نصي بنفس مكان ملف الاكسس وليكن باسم "ramhan" ضع هذا الكود خلف زر الامر وعند النقر او عند اي حدث مناسب Open CurrentProject.Path & "\ramhan.txt" For Output As #1 Set rs = CurrentDb.OpenRecordset("t2") Do While Not rs.EOF Print #1, rs!all rs.MoveNext Loop rs.Close Set rs = Nothing Close #1 ملاحظة : تم التطبيق على المرفق وبالمشاركة رقم 12 ! فتلاحظ استخدام الجدول t2 والعمود all تحيات رمهان
ابوخليل قام بنشر يونيو 14, 2015 قام بنشر يونيو 14, 2015 جميل الطباعة خارج السرب وهذا كود اذا كان الجدول يشتمل على اكثر من حقل وترغب في دمجهم Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("tbl1") Open CurrentProject.Path & "TAX.txt" For Output As #1 Do Until rs.EOF EName = rs("t1") Edesg = rs("t2") ecode = rs("t3") Print #1, ecode & EName & Edesg rs.MoveNext Loop Close #1 rs.Close Set rs = Nothing لزيادة معلومات او تنسيقات انظر هنا http://bytes.com/topic/access/answers/945153-print-data-txt-file-tabular-format وهذا تطبيق تصدير جدول الى ملف نصي .rar
رمهان قام بنشر يونيو 14, 2015 قام بنشر يونيو 14, 2015 جميل الطباعة خارج السرب وهذا كود اذا كان الجدول يشتمل على اكثر من حقل وترغب في دمجهم Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("tbl1") Open CurrentProject.Path & "TAX.txt" For Output As #1 Do Until rs.EOF EName = rs("t1") Edesg = rs("t2") ecode = rs("t3") Print #1, ecode & EName & Edesg rs.MoveNext Loop Close #1 rs.Close Set rs = Nothing لزيادة معلومات او تنسيقات انظر هنا http://bytes.com/topic/access/answers/945153-print-data-txt-file-tabular-format وهذا تطبيق لا اعلم هل للاخ السائل فائدة بهذه المشاركة ؟ ! ولكي لا تسيئ الظن وانا غير مجبر على ذلك : مادفعني للمشاركة معك انه مازال النص المصدر في مثالك السابق مازالت وجود الدبل كوتس والتي هي من اساسيات طلب الاخ السائل بعدم احتواء النص على دبل كوتس . وكنت ساشارك بكيفية التخلص منها وبنفس طريقتك ولكنني فضلت ان اذهب لطريقة نعرفها من عهد الفيجول بيسك 4 لكي نسلم وللاسف لم نسلم ! ولماذا ذهبت تصول وتجول وهنا وفي منتدانا العزيز لهم سبق في ذلك : http://www.officena.net/ib/index.php?showtopic=23394 رمضان كريم
ابوخليل قام بنشر يونيو 14, 2015 قام بنشر يونيو 14, 2015 لكي نسلم وللاسف لم نسلم ! تسلم اناملك واول سطر بدأت به ذكرت جمال ما اتحفتنا به والرابط فيه زيادة في تنسيق المخرجات غير موجودة في مشاركة ابو يامن وطلب السائل تصدير اكثر من حقل فاحببت ان اعقب بهذه الفائدة
moham_q قام بنشر يونيو 14, 2015 الكاتب قام بنشر يونيو 14, 2015 السلام عليكم اخوتي في المنتدى اولا رمضان مبارك عليكم اجمعين ان شاءالله ثانيا احب ان اشكر كل الاخوة المشاركين معي والذين ساهموا في ايجاد حل لطريقة تصدير جدول الاكسيس الى ملف نصي واخص بالذكر كلا من الاخ العزيز ابوخليل والاخ العزيز رمهان الذين افادوني في مشاركتهم معي وسعيهم للوصول الى نتيجة مفيدة لي ... وفقكم الله شاكرا تعبكم وتواصلكم معي مع خالص تقديري وامتناني
عبدالله المجرب قام بنشر يونيو 15, 2015 قام بنشر يونيو 15, 2015 لا اعلم هل للاخ السائل فائدة بهذه المشاركة ؟ ! الله أعلم ولكن قد تكون مشاركة اشمل من مشاركة فمثلاً مشاركتك لخيار واحد (مثلاً) فأتي أنا بنفس كودك أضيف خيارات أخرى قد اراها مناسبة فما الضير في هذا بل هو زيادة في الخير ====================================== ولكي لا تسيئ الظن وانا غير مجبر على ذلك : مادفعني للمشاركة معك هذا هو ديدننا هنا من لديه حل أخر أو طريقة أخرى أو إضافة يضعها فلا باس في ذلك لكي نسلم وللاسف لم نسلم مما تسلم وكيف لم تسلم بالله عليك أفدنا =========== في الختام استفدنا نحن المتعلمين طريقة جديدة في تصدير الملف ا لى ملف نصي فسلمت انامل الاستاذين أبو خليل والاستاذ رمهان وشكراً
رمهان قام بنشر يونيو 15, 2015 قام بنشر يونيو 15, 2015 اتوقع انني من اساء الظن ومن الشيطان ! عذرا اباخليل ! عذرا للجميع ! مشكورين 1
moham_q قام بنشر يونيو 15, 2015 الكاتب قام بنشر يونيو 15, 2015 لا اعلم هل للاخ السائل فائدة بهذه المشاركة ؟ ! الله أعلم ولكن قد تكون مشاركة اشمل من مشاركة فمثلاً مشاركتك لخيار واحد (مثلاً) فأتي أنا بنفس كودك أضيف خيارات أخرى قد اراها مناسبة فما الضير في هذا بل هو زيادة في الخير ====================================== ولكي لا تسيئ الظن وانا غير مجبر على ذلك : مادفعني للمشاركة معك هذا هو ديدننا هنا من لديه حل أخر أو طريقة أخرى أو إضافة يضعها فلا باس في ذلك لكي نسلم وللاسف لم نسلم مما تسلم وكيف لم تسلم بالله عليك أفدنا =========== في الختام استفدنا نحن المتعلمين طريقة جديدة في تصدير الملف ا لى ملف نصي فسلمت انامل الاستاذين أبو خليل والاستاذ رمهان وشكراً الاخ Quote اعتقد ان المشاركة كانت مفيدة لي واعانتي في عملي واعتقد مفيدة ايضا لاي شخص لا يعرف كيفية تصدير ملف الاكسيس الى ملف نصي والدليل هو المتابعة و المشاركة من قبل اعضاء المنتدى ...شكراااا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.