انجمن تخصصی اکسس

با سلام
بهترین راه استفاده از کد نویسی vba و با استفاده از reference های مربوط به ماکروسافت ورد می باشد .
فایل نمونه را آپلود نمایید تا بررسی شود .
با تشکر
کاویان

من یک سری کد پیدا کردم ولی مشکل اینجاست که فایل word رو باز میکنه و تمام رکوردها رو نشون میده در صورتی که من میخوام فقط رکورد جاری رو نمایش بده
با تشکر

با سلام مجدد
فایل ها در root درایو c کپی نموده و اجرا نمایید

با سلام
فایلی آپلود نشده است .
دقت کنید که فایلها را فشرده کنید و حجم فایل فشرده کمتر از 512 کیلو بایت باشد و سپس اقدام به آپلود نمایید .
با سپاس
کاویان

با سلام
برای انجام عمل فیلتر رکورد جاری بایستی خط زیر رو جایگزین کد قبلی در دکمه cmdMergeIt بنمایید .
strSQL = "SELECT pasargad.ID, pasargad.first, pasargad.last FROM pasargad where ((pasargad.id)=" & Me.ID & ");"
برای پرینت گرفتن هم بایستی کد
objWord.Application.Documents(2).PrintOut
به تابع OpenMergedDoc اضافه شود .
نمونه پیوست اصلاح شده است .
با سپاس
کاویان

ممنون از راهنماییتون،
واقعا که خانه اکسس ایران همین جاست

با سلام
بسیار خرسندیم از اینکه تونستیم رضایت شما دوست عزیز رو جلب کنیم .

پیروز و سربلند

کاویان

با سلام
شما بایستی مرحله انتخاب رکورد جاری رو در داخل اون پرسشی تعبیه کنید که تحت عنوان [queryname] در کد بالا آورده شده است .
در صورتیکه قادر به اینکار نبودید کد فوق را طوری تغییر دهید که کار نموده تمامی رکوردها را نشان دهد و با فایل های مورد نیاز پیوست نمایید مرحله انتخاب رکورد جاری مانند پست قبلی روی این نیز پیاده شود .
با سپاس
کاویان

Function main(filter As String)
Dim wordDoc As New Word.Application
Set wordDoc = CreateObject("Word.Application")
Dim templatePath As String, sourceQuery As String
Dim i As Integer
Dim x As Integer
templatePath = "C:\[filepath]" 'your template here
sourceQuery = "[queryname]" 'name of the query in your database
wordDoc.Visible = True 'set connection as visible
wordDoc.Documents.Open templatePath 'open template
wordDoc.ActiveDocument.MailMerge.OpenDataSource Name:= _
"[path to your database]" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=False, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\yourdatabase.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDBatabase P" _
, SQLStatement:="SELECT * FROM `" & sourceQuery & "`", SQLStatement1:="" 'link to data source
wordDoc.ActiveDocument.MailMerge.SuppressBlankLines = True
x = wordDoc.ActiveDocument.MailMerge.DataSource.RecordCount
If x > 0 Then
For i = 1 To x 'merge+print each record individually
wordDoc.ActiveDocument.MailMerge.DataSource.FirstRecord = i
wordDoc.ActiveDocument.MailMerge.DataSource.LastRecord = i
wordDoc.ActiveDocument.MailMerge.Execute Pause:=False
wordDoc.PrintOut Background:=True
wordDoc.ActiveDocument.Close Savechanges:=False
Next i
wordDoc.Documents.Close Savechanges:=False
wordDoc.Application.Quit 'exit Word
Set wordDoc = Nothing
End If
End Function