اذهب الي المحتوي
أوفيسنا

كيفية تحويل جدول الى ملف نصي txt وحفظه على سطح المكتب


moham_q

الردود الموصى بها

السلام عليكم اعضاء المنتدى المحترمين ...

ارجو مساعدتي على طريقة لتصدير جدول اكسيس الى ملف نصي text من خلال فورم يحوي هذا الجدول ويفضل ان يكون الملف النصي خال من اي خطوط او هوامش وغيرها ولكم جزيل الشكر والامتنان .... تحياتي لكم

رابط هذا التعليق
شارك

تفضل ضع هذا الكود في حدث  الزر

DoCmd.TransferText acExportDelim, "", "Tbl1", strPath & "\Tbl1.txt", True, ""

Tbl1 هو اسم الجدول المراد تصديره

strPath   هو  الامتداد او مكان  حفظ الجدول

Tble1.txt هو اسم النسخة المحفوظة 

  • Like 1
رابط هذا التعليق
شارك

السيد ابو خليل المحترم ... لدى وضع الكود المشار اليه اعلاه تظهر وعند التنفيذ تظهر الرسالة التاليه عن الضغط على زر 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

ارجو التوضيح مع خالص شكري وامتناني

رابط هذا التعليق
شارك

تفضل ضع هذا الكود في حدث  الزر

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

ارجو التوضيح مع خالص شكري وامتناني

رابط هذا التعليق
شارك

تفضل من مكتبتي الملف الذي استللت منه الكود

تصدير الجدول الى سطح المكتب كملف نصي

 

تفضل من مكتبتي الملف الذي استللت منه الكود

تصدير الجدول الى سطح المكتب كملف نصي

الاخ العزيز ابوخليل المحترم ... اشكرك على تجاوبك الرائع واهتمامك الكبير وانا استفدت من ما قدمته من المشاركة ... ارجو ان تساعدني على ان يكون الملف النصي النهائي المصدر خالي من الفوارز والكوتيشنات والنقاط في الحقول ويكون كل قيد مدموج بحقوله مع بعض وان لا تظهر اسماء حقول الجدول في اول قيد في الجدول كما حصل لي بعد اكتمال تصدير الملف الذي يحوي عيى اربعة حقول ...اشكرك على تواصلك وادعو الله ان يوفقك لما فيه خدمة للجميع

  • Like 1
رابط هذا التعليق
شارك

استبدل الدالة acExportDelim  الموجودة داخل الكود بهذه  acExportMerge

 

الاخيرة تزيل الفواصل

الاخ العزيز ابو خليل المحترم ... لقد غيرتها وازيلت فقط الفوارز اما الكوتيشنات "   "      فقد بقت موجودة  ....  وظهرت فراغات بين البيانات النهائية لكل قيد ...

انا اريد ان يظهر القيد الذي تم تصديره في الجدول على النحو التالي

3420200800000028306000000806201501

ولا يظهر على النحو التالي عندما اقوم بعملية التصدير

"3420200800","00000283060","08062015","01"

حيث ان القيد يتكون من  الجزء الاول يمثل الرقم والجزء الثاني يمثل الكود والجزء الثالث يمثل التاريخ والاخير يمثل النوع

لهذا اريده ان يظهر بصورة حقل واحد مدموج البيانات مع بعض

اشكرك مرة ثانية اتعاونك معي ومساعدتي على انجاز العمل وفقك الله ....تحياتي

رابط هذا التعليق
شارك

السلام عليكم زملائي اعضاء المنتدى

ارفق لكم ادناه جدول الاكسيس المراد تصديره الى ملف نصي من خلال فورم واستخدام command bottun
ولقد ارفقت معه نسخة من الملف النصي الذي اريده كنموذج على ان يكون  شكل الملف بعد تصديره بنفس الشكل ادناه علما ان الملف النصي يكون خاليا من الفوارز والكوتيشنات والنقاط بحيث اريده ان يكون على شكل قيد واحد مدموج القيم
مع شكري وامتناني

T2.txt

t2.rar

رابط هذا التعليق
شارك

 

استبدل الدالة acExportDelim  الموجودة داخل الكود بهذه  acExportMerge

 

الاخيرة تزيل الفواصل

الاخ العزيز ابو خليل المحترم ... لقد غيرتها وازيلت فقط الفوارز اما الكوتيشنات "   "      فقد بقت موجودة  ....  وظهرت فراغات بين البيانات النهائية لكل قيد ...

انا اريد ان يظهر القيد الذي تم تصديره في الجدول على النحو التالي

3420200800000028306000000806201501

ولا يظهر على النحو التالي عندما اقوم بعملية التصدير

"3420200800","00000283060","08062015","01"

حيث ان القيد يتكون من  الجزء الاول يمثل الرقم والجزء الثاني يمثل الكود والجزء الثالث يمثل التاريخ والاخير يمثل النوع

لهذا اريده ان يظهر بصورة حقل واحد مدموج البيانات مع بعض

اشكرك مرة ثانية اتعاونك معي ومساعدتي على انجاز العمل وفقك الله ....تحياتي

 

 

اخي الكريم 

يمكنك ضم الحقول داخل استعلام  ثم تصدير الاستعلام كحقل واحد

رابط هذا التعليق
شارك

 

 

استبدل الدالة acExportDelim  الموجودة داخل الكود بهذه  acExportMerge

 

الاخيرة تزيل الفواصل

الاخ العزيز ابو خليل المحترم ... لقد غيرتها وازيلت فقط الفوارز اما الكوتيشنات "   "      فقد بقت موجودة  ....  وظهرت فراغات بين البيانات النهائية لكل قيد ...

انا اريد ان يظهر القيد الذي تم تصديره في الجدول على النحو التالي

3420200800000028306000000806201501

ولا يظهر على النحو التالي عندما اقوم بعملية التصدير

"3420200800","00000283060","08062015","01"

حيث ان القيد يتكون من  الجزء الاول يمثل الرقم والجزء الثاني يمثل الكود والجزء الثالث يمثل التاريخ والاخير يمثل النوع

لهذا اريده ان يظهر بصورة حقل واحد مدموج البيانات مع بعض

اشكرك مرة ثانية اتعاونك معي ومساعدتي على انجاز العمل وفقك الله ....تحياتي

 

 

اخي الكريم 

يمكنك ضم الحقول داخل استعلام  ثم تصدير الاستعلام كحقل واحد

 

اخي ابوخليل الرجاء توضيح هذه الطريقة من خلال الاستعلام ومن ثم تصديره ... مع الشكر الجزيل

رابط هذا التعليق
شارك

اعمل ملف نصي بنفس مكان ملف الاكسس وليكن باسم "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

 

تحيات رمهان

رابط هذا التعليق
شارك

 جميل  الطباعة خارج السرب

 

وهذا كود  اذا كان الجدول يشتمل على اكثر من حقل وترغب في دمجهم

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

رابط هذا التعليق
شارك

 

 جميل  الطباعة خارج السرب

 

وهذا كود  اذا كان الجدول يشتمل على اكثر من حقل وترغب في دمجهم

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

 

رمضان كريم 

رابط هذا التعليق
شارك

لكي نسلم وللاسف لم نسلم ! 

 

 تسلم اناملك

واول سطر بدأت به ذكرت جمال ما اتحفتنا به

والرابط فيه زيادة في تنسيق المخرجات غير موجودة في مشاركة ابو يامن

وطلب السائل تصدير اكثر من حقل

فاحببت ان اعقب بهذه الفائدة

رابط هذا التعليق
شارك

السلام عليكم اخوتي في المنتدى

اولا رمضان مبارك عليكم اجمعين ان شاءالله

ثانيا احب ان اشكر كل الاخوة المشاركين معي والذين ساهموا في ايجاد حل لطريقة تصدير جدول الاكسيس الى ملف نصي واخص بالذكر كلا من الاخ العزيز ابوخليل والاخ العزيز رمهان الذين افادوني في مشاركتهم معي وسعيهم للوصول الى نتيجة مفيدة لي ... وفقكم الله شاكرا تعبكم وتواصلكم معي مع خالص تقديري وامتناني 

رابط هذا التعليق
شارك

 

 

لا اعلم هل للاخ السائل فائدة بهذه المشاركة ؟ !

 

الله أعلم ولكن قد تكون مشاركة اشمل من مشاركة فمثلاً مشاركتك لخيار واحد (مثلاً) فأتي أنا بنفس كودك أضيف خيارات أخرى قد اراها مناسبة 

فما الضير في هذا بل هو زيادة في الخير

 

======================================

 

 

 

ولكي لا تسيئ الظن وانا غير مجبر على ذلك : مادفعني للمشاركة معك

 

هذا هو ديدننا هنا من لديه حل أخر أو طريقة أخرى أو إضافة يضعها فلا باس في ذلك 

 

 

 

لكي نسلم وللاسف لم نسلم 

 

مما تسلم وكيف لم تسلم بالله عليك أفدنا 

 

===========

في الختام 

استفدنا نحن المتعلمين طريقة جديدة في تصدير الملف ا لى ملف نصي 

فسلمت انامل الاستاذين أبو خليل والاستاذ رمهان

 

وشكراً 

رابط هذا التعليق
شارك

 

 

 

لا اعلم هل للاخ السائل فائدة بهذه المشاركة ؟ !

 

الله أعلم ولكن قد تكون مشاركة اشمل من مشاركة فمثلاً مشاركتك لخيار واحد (مثلاً) فأتي أنا بنفس كودك أضيف خيارات أخرى قد اراها مناسبة 

فما الضير في هذا بل هو زيادة في الخير

 

======================================

 

 

 

ولكي لا تسيئ الظن وانا غير مجبر على ذلك : مادفعني للمشاركة معك

 

هذا هو ديدننا هنا من لديه حل أخر أو طريقة أخرى أو إضافة يضعها فلا باس في ذلك 

 

 

 

لكي نسلم وللاسف لم نسلم 

 

مما تسلم وكيف لم تسلم بالله عليك أفدنا 

 

===========

في الختام 

استفدنا نحن المتعلمين طريقة جديدة في تصدير الملف ا لى ملف نصي 

فسلمت انامل الاستاذين أبو خليل والاستاذ رمهان

 

وشكراً 

 

الاخ  Quote  اعتقد ان المشاركة كانت مفيدة لي واعانتي في عملي واعتقد مفيدة ايضا لاي شخص لا يعرف  كيفية تصدير ملف الاكسيس الى ملف نصي والدليل هو المتابعة و المشاركة من قبل اعضاء المنتدى ...شكراااا

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information