Mail Merge trong mạng Lan
phamngocsang > 22-02-16, 08:18 PM
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 !!!