-
Mail Merge lấy dữ liệu từ file Access
xuhathdo > 12-03-14, 01:59 AM
Hiện tại mình có một biên bản định giá bằng file word. Khi mình mail merge nếu chỉ có 1 khách hàng và 1 tài sản thì có vấn đề gì. Nhưng khi có nhiều khách hàng và nhiều tài sản thì mình phải copy một số đoạn và dùng nhiều lệnh 'Next Record', như file Demo mà mình sắp Up lên. Việc này rất mất thời gian. Mình muốn các thao tác này thực hiện một cách tự động. Mong các bạn giúp đỡ.
Các bạn vui lòng down về file này, giải nén và lưu nó vào ổ đĩa D thì sẽ xem được.
Mình rất mong nhận được giúp đỡ của các bạn ! Cám ơn trước ! -
RE: Mail Merge lấy dữ liệu từ file Access
cpucloi > 12-03-14, 11:50 AM
Tui mà biết bạn up file nào thì tui chít lìn .... -
RE: Mail Merge lấy dữ liệu từ file Access
xuhathdo > 13-03-14, 02:46 AM
@_< Minh xin lỗi ! Tim hoài mà chẳng thấy công cụ nào để up lên cả !
Minh gửi mail cho bạn nhé ! -
RE: Mail Merge lấy dữ liệu từ file Access
xuhathdo > 14-03-14, 01:49 AM
Mình đã gửi file này vào hộp thư này để các bạn tiện xem
uploaddiendanaccess@gmail.com
pass: diendanaccess
Mong mọi người giúp đỡ mình ! -
RE: Mail Merge lấy dữ liệu từ file Access
phamngocsang > 14-12-15, 07:51 PM
nhờ các Anh (Chị) giúp em xem code này có vấn đề không ạ:
nó báo lỗi hoài.
CODE:
Private Sub btmPrintToTrinh_Click()
Dim this_path As String
Dim this_db As String
Dim STT As Integer
this_path = Application.CurrentProject.Path & "\"
this_db = this_path & Application.CurrentProject.name
STT = Me.txtID.Value
Dim word_app As Word.Application
Dim word_doc As Word.Document
Set word_app = CreateObject("Word.Application")
Set word_doc = word_app.Documents.Open(this_path & "TTrGPXD.dot")
word_app.Visible = True
If word_doc.MailMerge.State <> wdMainAndDataSource Then
word_doc.MailMerge.OpenDataSource this_db, , , True, True, , , , , , , , "SELECT * [tblDatabase] ID='STT'"
word_doc.MailMerge.Destination = wdSendToNewDocument
word_doc.MailMerge.Execute
End If
End Sub
em cảm ơn nhiều !!! -
RE: Mail Merge lấy dữ liệu từ file Access
kuzinhy > 23-05-16, 05:53 PM
sao không thấy bản demo nào hết vậy