Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Mail Merge lấy dữ liệu từ file Access
#1
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 !
Chữ ký của xuhathdo Xin chào, mình là xuhathdo, Tham gia http://thuthuataccess.com/forum từ ngày 11-03 -14.
Reply
Những người đã cảm ơn
#2
Tui mà biết bạn up file nào thì tui chít lìn ....big green
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
@_< 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é !
Chữ ký của xuhathdo Xin chào, mình là xuhathdo, Tham gia http://thuthuataccess.com/forum từ ngày 11-03 -14.
Reply
Những người đã cảm ơn
#4
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 !
Chữ ký của xuhathdo Xin chào, mình là xuhathdo, Tham gia http://thuthuataccess.com/forum từ ngày 11-03 -14.
Reply
Những người đã cảm ơn
#5
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 !!!
Chữ ký của phamngocsang Xin chào, mình là phamngocsang, Tham gia http://thuthuataccess.com/forum từ ngày 04-02 -15.
Reply
Những người đã cảm ơn
#6
sao không thấy bản demo nào hết vậy
Chữ ký của kuzinhy kuzinhy,gia nhập Thủ Thuật Access từ 05-12 -15.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Mail Merge có hình Minh Tiên 7 573 25-11-15, 09:44 PM
Bài mới nhất: paulsteigel
  Chuyển đổi file ảnh từ máy scan sang word Noname 2 3,350 16-01-15, 04:59 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Lập hợp đồng lao động-Dùng mail merge trong word kết hợp với excel Noname 2 7,321 24-10-12, 10:29 AM
Bài mới nhất: Noname
  Mail Merge: Thủ thuật cao cấp trong MS Word Noname 2 3,394 24-10-12, 09:51 AM
Bài mới nhất: Noname
  Tạo header+footer khác nhau trong tài liệu Cafe Via He 1 3,524 17-07-12, 09:36 PM
Bài mới nhất: hieucntt

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ