@odeddvir אמר בהדפסת ד''וח מאקסס על בסיס קובץ וורד:
@בערל כעת עלה לי רעיון הרבה יותר פשוט, שלא מצריך טבלת עזר כלל: פשוט נשנה ישירות את תחביר השאילתה של המיזוג.
צור שאילתא qryMailMerge. (לא משנה מה התחביר שלה כרגע, אנו נשנה זאת מיד). ובמיזוג דואר תבחר אותה כמקור הנתונים.
בקוד הלחצן:
DoCmd.RunCommand (acCmdSaveRecord)
CurrentDb.Execute "qryUpdate_Data", dbFailOnError
Dim SQL as String
SQL = "SELECT Data.ID, Data.FirstName, Data.LastName " _
& "FROM Data " _
& "WHERE (Data.ID = " & Me.ID & ");"
CurrentDb.QueryDefs("qryMailMerge").SQL = SQL
DoCmd.GoToRecord , , acNext
RunMailMerge "C:\Users\.....TEMPLATE.docx", "C:\Users......pdf", True
זהו. שורה 8 משנה את השאילתה כך שתציג את הנתונים הרלוונטים.
זה גם עדיף למקרה שבו שינית את הנתונים ולא לחצת על הכפתור, הם יתעדכנו בוורד בכל מקרה.
אמנם כך התחמקתי מלהסביר על שאילתת פרמטר, אבל עוד חזון למועד...
גאוני!
עובד פנטסטי
תודה על הכל!
