ahmed289

السلام عليكم ما فى حل ياشباب

السادة الافاضل السلام عليكم جميعا ورحمة الله وبركاته 
باختصار حتى لا اطيل

انا عامل برنامج رواتب وكنت عامل زر تصدير تقريران مرة واحدة ولكن تقرير يصدر الى pdf والاخر الى text وكان يعمل والامور كلها تمام ولكن فجأة تعطل الكود ولا ادرى ما السبب وانا سالصق الكود هنا ورجاء افيدونى ما الخطأ
الكود : 

Private Sub Command_Click()
Dim FileName As String
Dim FilePath As String
Dim FilePath1 As String
FileName = Me.[bankcode] & Right(Year(Date), 2) & "0" & Month(Date) & Day(Date) & "100000"
FilePath = Me.[FPath] & FileName & ".txt"
FilePath1 = Me.[FPath] & FileName & ".PDF"
DoCmd.OutputTo acOutputReport, "word", acFormatPDF, FilePath1
DoCmd.OutputTo acOutputReport, "empdataa", acFormatTXT, FilePath
MsgBox "Done" & " " & Me.FPath, vbInformation, "alert massege"

End Sub

ومشكورين

عندى تقرير الرواتب وعملت تجميع حسب القسم ولكن راس الجدول مع القسم لا تظهر الا فى مرة واحدة فى الصفحة الاولى وانا اريد تكرارها فى كل صفحة ----- مرفق صور للتوضيح

تصدير الاستعلام طلع معايا بالشكل دا 

انا استبدلت العمود بفاصلة بطريقة يدوية بمعنى انى فتحت مربع نص عملت فيه معادلة الاتحاد اللى هى كدا
[الحقل الاول]&","&[الحقل الثانى]&","&[الحقل الثالت]&","&[الحقل الرابع] وهكذا
وطبع مصدر الحقول دى من الاستعلام ومن معادلات موجودة فى الاستعلام ولذلك اعتقد من الصعب ان تتم عملية التصدير من الاستعلام مباشرة

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

عملت تقرير خاص بالرواتب وكان مطلوب انى اصدره لملف TXT  والحمد لله تم تصديره ولكن بعد التصدير بيظهر سطور فارغة بين سطور البينات صحيح انها لم تؤثر على قيمة البيانات لكن البنك بيفرض عليا حذف تلك السطور قبل ارسال الملف

ولذلك اسال اساتذتى اولا : عن سبب ظهور التقرير بهذا الشكل بعد تصديره

ثانيا طريقة الحل وشكرا جزيلا مقدما ------ مرفق صور