تقرير اكسس الي وورد

سامر محمود · يونيو 4, 2023

الاخوة الكرام الافاضل

تحية طيبة وبعد

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

فياريت تساعدوني في الموضوع ده

امون شاكر فضلكم جميعا

HR_Letter.rar

شايب · يونيو 4, 2023

في زر الامر ضع الكود

Dim x As String
x = Me.EmpName.Column(1) & ".rtf"
DoCmd.OpenReport "Hr_Letter_Rep", acViewPreview, , "[Empcoode]=" & Me.Empcoode
DoCmd.OutputTo acOutputReport, "Hr_Letter_Rep", _
    acFormatRTF, "d:\" & x, True

وبالامكان تغيير مكان الحفظ من الدريف d الى اي قرص

HR_Letter.rar