seeef

برنامج جميل 

الله يعطيك العافية

في ٢٢‏/١٢‏/٢٠٢٠ at 01:02, احمد الفلاحجي said:

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

اخى الفاضل @seeef

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

Private Sub Command18_Click()
Dim X As String
X = Me.txtName & ".pdf"
DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
End Sub

وذلك لان الاشاره بـ me.name  فهى لاسم النموذج

بالتوفيق

ماشاء الله تبارك الله

الان الكود يعمل بشكل ممتاز

جزاك الله كل خير

في ٣١‏/١‏/٢٠١٧ at 14:16, أبو عبدالله الحلوانى said:

آسف نسيت المرفق تفضل

db2.rar

الكود يعمل على المرفقات بشكل ممتاز

ولكن اضفته على برنامج عندي ويعطي اسم الفورم بدل من الاسم الموجود بالسجل 

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

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

Private Sub Command18_Click()
Dim X As String
X = Me.name & ".pdf"
DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
End Sub

هذا التعديل رقم الفاتورة والامور تمام يحفظ التقرير برقم الفاتورة

Private Sub Command18_Click()
Dim X As String
X = Me.nemar & ".pdf"
DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
End Sub

هل من حل للمشكلة ؟

تفضل هذا برنامج للتنبيه قبل انتهاء الهوية

حصلته من احد المواقع

بالنسبه لإستفسارك الثاني ان شاء الله تحصل احد يجاوب لك عليه

________________________.rar

يامال العافيه يابو ليان

برنامج ممتاز

تحياتي لك