• Mail Merge lấy dữ liệu từ file Access
  • 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 ....big green
  • 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