elfarok قام بنشر أبريل 18, 2016 مشاركة قام بنشر أبريل 18, 2016 السلام عليكم ورحمة الله وبركاته لو سمح استاذتى الكرام انا عندى مشكلة انا طلب منى عمل تقرير بشكل غريب شوية (سيظهر فى الصور المرفقة مع الموضوع ) وطلب منى ايضا انا احوله الى صيغة text والحمد الله نجحت فى كل هذا ولكن المشكلة ظهرت انه عند تحويله الى صيغة تكست يختلف التنسيق وتتبدل المسافات بين الاسطر ( كما يظهر ايضا فى الصور ) السؤال : ما السبب فى وهذا ومالعلاج ؟ ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر أبريل 18, 2016 مشاركة قام بنشر أبريل 18, 2016 هل تسمح لنا بمثال لنستطيع التعديل عليه ورؤية المشكلة عن قرب رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 18, 2016 مشاركة قام بنشر أبريل 18, 2016 3 ساعات مضت, elfarok said: السؤال : ما السبب فى وهذا ومالعلاج ؟ وعليكم السلام السبب ظاهرا ، ان الاسطر الاطول ، اضافت vbcrlf او vblf (يعني انتقل للسطر التالي) في نهاية كل سطر العلاج ، احد اهم طرق العلاج ، هو معرفة السبب ، والذي هو في برنامجك ، ومثل ما قال اخي ابوعبدالله ، محتاجين نشوف برنامجك بينما ، اذا تركنا كل شئ كما هو ، واحنا نعرف اسم ومسار الملف ، فممكن نضع الكود التالي ، بعد عملية تصدير txt (طبعا لازم تغير اسماء الملفات ومسارهم) : Private Sub cmd_Clean_Click() File_From = Application.CurrentProject.Path & "\377.txt" File_To = Application.CurrentProject.Path & "\377_2.txt" Dim TextLine Open File_From For Input As #1 'open file for input Open File_To For Output As #2 'open file for output Do While Not EOF(1) 'Loop until end of file. Line Input #1, TextLine 'Read a line into variable. If Len(TextLine) > 5 Then 'if the line is NOT empty, write it to File_To Print #2, TextLine End If Loop Close #1 'Close file. Close #2 End Sub ومثل ما قال ابوعبدالله: (ويادار ما دخلك شر) جعفر 1 رابط هذا التعليق شارك More sharing options...
elfarok قام بنشر أبريل 19, 2016 الكاتب مشاركة قام بنشر أبريل 19, 2016 جزاكم الله خير على المرور الكريم وعلى التجاوب وان شاء الله هذا هو المرفق فيه التقرير باسم empdataa تحويل التقرير لتكست.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 19, 2016 مشاركة قام بنشر أبريل 19, 2016 وعليكم السلام استخدم النموذج Form1 لطباعة التقرير ، وكود الطباعة: Private Sub cmd_Clean_Click() File_From = Application.CurrentProject.Path & "\377.txt" DoCmd.OutputTo acOutputReport, "rpt_EMPDATAA", acFormatTXT, File_From, False File_To = Application.CurrentProject.Path & "\377_2.txt" Dim TextLine Open File_From For Input As #1 'open file for input Open File_To For Output As #2 'open file for output Do While Not EOF(1) 'Loop until end of file. Line Input #1, TextLine 'Read a line into variable. If Len(TextLine) > 5 Then 'if the line is NOT empty, write it to File_To Print #2, TextLine End If Loop Close #1 'Close file. Close #2 MsgBox "Done" End Sub جعفر 377.تحويل التقرير لتكست.accdb.zip 1 رابط هذا التعليق شارك More sharing options...
elfarok قام بنشر أبريل 19, 2016 الكاتب مشاركة قام بنشر أبريل 19, 2016 الاخ جعفر انا شاكر جدا لمجهودك واهتمامك لكن للاسف المشكلة لم تحل كما فى الصورة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 19, 2016 مشاركة قام بنشر أبريل 19, 2016 الملف الصحيح هو الملف الآخر الذي يتم انتاجه ، و الموجود في نفس المجلد: 377_2.txt 1 رابط هذا التعليق شارك More sharing options...
elfarok قام بنشر أبريل 19, 2016 الكاتب مشاركة قام بنشر أبريل 19, 2016 ما هو ده ملف text_377 رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر أبريل 19, 2016 مشاركة قام بنشر أبريل 19, 2016 6 ساعات مضت, jjafferr said: 377_2.txt 6 ساعات مضت, elfarok said: ما هو ده ملف text_377 رابط هذا التعليق شارك More sharing options...
elfarok قام بنشر أبريل 20, 2016 الكاتب مشاركة قام بنشر أبريل 20, 2016 7 ساعات مضت, أبو عبدالله الحلوانى said: لك حق تضحك انا فعلا طلعت غلطان هو text2_7 13 ساعات مضت, jjafferr said: الملف الصحيح هو الملف الآخر الذي يتم انتاجه ، و الموجود في نفس المجلد: 377_2.txt انا اسف يا اخ جعفر كلامك صحيح وضبطت بس ممكن طلب بسيط الله يكرمك ممكن اعمل اختصار على التقرير بدل زر الامر يعنى اعمل كلك يمين على التقرير يظهر قايمة فيها امر تحويل التقرير لتكست رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر أبريل 20, 2016 مشاركة قام بنشر أبريل 20, 2016 14 ساعات مضت, elfarok said: لك حق تضحك انا فعلا طلعت غلطان هو text2_7 عفوا يا أخى هذا الوجه لم أعنى به الضحك وانما انظر للأعلى فقط رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان