Xin chào các Anh Chị trong diễn đàn. em có viết 01 ứng dụng nhỏ dùng để Mail Merge trong access qua word trong mạng Lan mà thử hoài vẫn báo lỗi như sau "Error has occurred: Not a Valid passsword". Ứng dụng và tất cả các biểu mẫu dùng để mail merge điều ở máy client, data thì ở server. Bây giờ em muốn link this_db đến "\\TRONG-PC\UrbanManagenmentSoftware2\GiayPhepXayDung_be.accdb" thì bị lỗi như đã nêu.

Private Sub btmPrintGPXD_Click()
    'Dinh nghia duong dan Printer
    Dim this_db As String
         this_db = "\\TRONG-PC\UrbanManagenmentSoftware2\GiayPhepXayDung_be.accdb"
    Dim word_app As Word.Application
    Dim word_doc As Word.Document
        Set word_app = CreateObject("Word.Application")
        word_app.Visible = False
        Set word_doc = word_app.Documents.Open(this_path & "GPXD.dot")
    'Thuc thi MailMerge
    If word_doc.MailMerge.State <> wdMainAndDataSource Then
        word_doc.MailMerge.OpenDataSource Name:=this_db, ReadOnly:=True, LinkToSource:=True, SQLStatement:="SELECT * FROM [tblDatabase] WHERE [ID]=" & [Forms]![frmNhapLieu]![txtID]
        word_doc.MailMerge.Destination = wdSendToNewDocument
        word_doc.MailMerge.Execute
    End If
        word_doc.Close
        word_app.Quit
End Sub



Xin Anh Chị giúp dùm ạ. em xin chân thành cảm ơn !!!

Bạn xem lại file db có cài password không?

(22-02-16, 09:58 PM)ongke0711 Đã viết: Bạn xem lại file db có cài password không?

đúng là đặt pass ở Data.
cảm ơn nhiều ạ.

Nếu cũng code trên em thêm event Save bởi nút lệnh khác để lưu dữ liệu trước khi Mail merge thì nó báo lỗi như sau: error has occurred: the database has been placed in a state by user 'Admin' on machine 'Trong-PC' that prevents it from being opened or locked

Xin các Anh (chị) giúp đỡ.

Xin cảm ơn ạ!!!