وجود فراغات بين الاسطر عند التحويل

[كريمو2]

السلام عليكم اساتذة

تقبل الله صيامكم وقيامكم

بالمرفق ادناه لدي مشكلة وهي عند تحويل التقرير من اكسس الى ملف TXT

يظهر تباعد بين الاسطر كما في الصورة

 

Trans CD.rar

[Gamal.Saad]

أقترح أن تضيف كود لحذف الأسطر الفارغة بالملف النصي .

[أبوبسمله]

مشاركه مع اخى @Gamal.Saad

التصدير بطريقه اخرى

الصف الاول بالملف هو اسم الحقل وتم استخدام الاستعلام مباشره

وتم الاستعانه بالرابط التالى لازاله علامات الاقتباس التى تمت فى حين تم ازاله

https://access-excel.tips/access-vba-docmd-transfertext-method/

DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", True

ولعل احد اخواننا واساتذتنا يجد حل للطريقه الاولى فى ازاله الاسطر الفارغه

بالتوفيق

Trans CD.mdb

[كريمو2]

شكرا لك استاذ أحمد الفلاحجى على المساعدة

ولكن ياريت عدم اظهار كلمة LIGNECD في المفكرة

هذا من جهة ومن جهة أخرى اريد معاينة الملف NewDisq052020 مباشرة بعدالتحويل 

في انتظار التعديل او الفكرة

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

تم ازاله الصف الاول بالتتغير الى false

لم اجد فالتعليمات للامر خاصيه الفتح فقمت باستدعائه بالشل

ارجو ان يكون ما تريد وان شاء الله اخواننا واساتذتنا يساعدون بحلول افضل

DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False
Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus

بالتوفيق اخى

Trans CD.mdb

[كريمو2]

وهو كذالك استاذ

شكرا 

ربي يبارك فيك

[كريمو2]

 

استاذ احمد هل تم تعديل اخر عير هذا  في الملف

DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False
Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus

 

تم تعديل مايو 1, 2020 بواسطه كريمو2

[أبوبسمله]

3 ساعات مضت, أحمد الفلاحجى said:

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

تم ازاله الصف الاول من النوت باد بالتتغير الى false

لم اجد فالتعليمات للامر خاصيه الفتح فقمت باستدعائه بالشل

ارجو ان يكون ما تريد وان شاء الله اخواننا واساتذتنا يساعدون بحلول افضل

DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False
Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus

بالتوفيق اخى

Trans CD.mdb 484 kB · 1 تنزيلات

ايوه تم تغيير true ل false

واضافه السطر اللى بعده لفتح الملف

[كريمو2]

تقبل الله صيامك استاذ احمد

نسخت الكود في القاعدة الخاصة بي ظهر لي مشكل عند التحويل

 

[أبوبسمله]

في ٣٠‏/٤‏/٢٠٢٠ at 22:38, أحمد الفلاحجى said:

وتم الاستعانه بالرابط التالى لازاله علامات الاقتباس التى تمت فى حين تم ازاله

https://access-excel.tips/access-vba-docmd-transfertext-method/

افتح الرابط ده وانزل للاسفل خالص هتلاقى شرح بالصوره لطريقه اضافته

ان لم تصل سوف اضع لك الشرح تانى هنا

بالتوفيق

[كريمو2]

دخلت على الرابط وماوصلت لنتيجة استاذ

[أبو إبراهيم الغامدي]

17 ساعات مضت, أحمد الفلاحجى said:

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

تم ازاله الصف الاول بالتتغير الى false

لم اجد فالتعليمات للامر خاصيه الفتح فقمت باستدعائه بالشل

ارجو ان يكون ما تريد وان شاء الله اخواننا واساتذتنا يساعدون بحلول افضل

DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False
Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus

 

أهلا بكم..

أقترح عليكم استخدام الشفرة التالية بدلا من السطر الأول

Public Sub ExportToTextFile(ReportName)
   Dim RS As DAO.Recordset
   Dim TextFile As Integer
   Set RS = CurrentDb.OpenRecordset("استعلام4")
   TextFile = FreeFile
   Open CurrentProject.Path & "\" & ReportName & ".txt" For Output As #TextFile
   Do Until RS.EOF
      Print #TextFile, RS![LIGNECD]
   RS.MoveNext
   Loop
   Close #TextFile
   MsgBox "Done"
End Sub

Trans CD.mdb

[كريمو2]

إقتراح جميل استاذ أبو إبراهيم الغامدي

بارك الله فيك 

[أبوبسمله]

جزاك الله خيرا استاذ @أبو إبراهيم الغامدي

[أبوبسمله]

استكمالا للموضوع والطريقه الموضوعه

انقر بزر الماوس الايمن فوق الاستعلام 4 تصدير ملف نصى

ثم

ثم

ثم

ثم

ثم التالى التالى

وبهذا تم معالجه الخطأ الظاهر لديك

بالتوفيق اخى

 

[كريمو2]

شكرا لك استاذ احمد

تمت التجربة 

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

والشكر موصول لاستاذنا @أبو إبراهيم الغامدي بحله السحرى والممتع جزاه الله خيرا

وهو من يستحق افضل اجابه وليس انا

بالتوفيق اخوانى واساتذتى