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

[سامر محمود]

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

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

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

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

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

HR_Letter.rar

[شايب]

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

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

[سامر محمود]

شاكر فضلك جداً اخي الكريم @شايب