خطأ فى كود تصدير التقرير الى نص

[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

 

ومشكورين

 

تم تعديل أغسطس 24, 2022 بواسطه jjafferr
استعمال <> من القائمة ، ثم وضع الكود في نافذته

[ahmed289]

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

[jjafferr]

وعليكم السلام 🙂

 

1.

خلينا نشوف اللي يشوفه الكمبيوتر ، استعمل هذا الكود ، خليه يشتغل ، وشوف النتائج في النافذة اسفل شاشة الكود (ثم الصقها في المنتدى علشان نشوف اذا في شيء منها غلط) :

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"

  debug.print Me.[bankcode]
  debug.print Right(Year(Date), 2)
  debug.print Month(Date)
  debug.print Day(Date)
  debug.print Me.[FPath]
  debug.print FilePath
  debug.print FilePath1

DoCmd.OutputTo acOutputReport, "word", acFormatPDF, FilePath1
DoCmd.OutputTo acOutputReport, "empdataa", acFormatTXT, FilePath
MsgBox "Done" & " " & Me.FPath, vbInformation, "alert massege"

End Sub

.

كذلك مو على العادة تسمية الزر باسم command ، عادة يكون command1 او command2 او ... ، فالظاهر اسم الزر خطأ في الكود ،

لذا فالافضل عمل زر جديد ، ولصق الكود فيه ، ثم التجربة 🙂

 

 

جعفر

[jjafferr]

اخوي rockjone33 كتبت لك رسالة على الخاص من يومين ، بس الظاهر انك ما لاحظتها !!

ياريت تدخل عليها من الرابط :

https://www.officena.net/ib/messenger/21011/?tab=comments#comment-54229

 

انا وانت فقط نقدر ندخل الرابط 🙂

 

جعفر

[ابوخليل]

منذ ساعه, rockjone33 said:

سؤال ليه تنحذف المشاركه ؟!

في موضوع بحث احترافي ؟! 

بسبب يوتيوب .. 😁

احببت المشاركه .. 

المنتدى مليء بموضوعات البحث .. العشرات بل المئات الخاصة والاحترافية

نحن نقوم بالتنقيح ونبقي فقط على المشاركات التي تخص صلب الموضوع

اذا لديك معلومات وتفاصيل اكثر خارج نطاق وصلب السؤال يمكنك فتح موضوع جديد  تتحف اخوانك الأعضاء بها 

[ابوخليل]

اخي الكريم

اذا كنت تناقش من اجل الجدال فقط .. او انك مقتنع بان ما تعمله صحيح

الموضوع الذي ذكرت قام احد الاساتذه قبلك بحل احترافي مختصر يشتمل على نموذج واحد وهو نموذج السائل الوحيد  وقد شكره صاحب السؤال وذكر ان الحل هو المطلوب 100%

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

الخبراء والاعضاء الذين يتصدون للحلول يتلمسون حاجة السائل ويعطونه الاجابة على قدر السؤال 

اي مشاركات مطولة بعد الحصول على الاجابة غير مرغوب فيها ومصيرها الحذف عاجلا او اجلا ومحلها الصحيح ان يفتح بها موضوع تعليمي جديد

ايضا من باب الادب اذا تم الحل حسب طلب السائل لا يسعنا هنا الا الاعجاب بمن وضع الحل وشكره

 يسمح بالمداخلات التي تناقش الحل .. او حلول اخرى افضل من الحل المطروح

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

 

[ابوخليل]

51 دقائق مضت, rockjone33 said:

 واتمنى منك الاحترام لا تستحقر الاعضاء كل من اخذ من وقته للمساعدة .. 

 

توجيهي ليس فيه استحقار لشخصك .. انت اخ كريم بين اخوانك .. ولا اعرفك أو تعرفني 

وانما اناقش الطرح الذي تكتبه .

وللعلم بدأت بالرد على مشاركاتك _ مكرها _ بعد ان وصلني ملاحظات من الاعضاء مستائين من ردودك .

 

[متقاعد]

15 دقائق مضت, rockjone33 said:

كما ذكرت الواحد يساعد باللي يقدر عليه وما فيها تقصير .. 

احسنت استاذنا العزيز والاجر على الله

[jjafferr]

اخوي rockjone33 المشاركة اللي عرضها اخونا العود ابوخليل جدا بسيطه ، وهي من واقع قوانين المنتدى ، وقالها بكل احترام ،

ومافي عند احدنا ضغينه على احد ، هي قوانين يحترمها الجميع ، والحمدلله المنتدى يعمل بسلاسه بها 🙂