Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Lỗi] Mail Merge trong mạng Lan
#1
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 !!!
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
#2
Bạn xem lại file db có cài password không?
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn phamngocsang
#3
(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 ạ.
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
#4
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 ạ!!!
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


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Thông báo trong Ms Access khi Mail Merge phamngocsang 3 295 08-07-17, 09:51 AM
Bài mới nhất: cpucloi
  Hướng Dẫn Export dữ liệu trong subform Godspear 3 436 03-04-17, 04:11 PM
Bài mới nhất: ongke0711
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 4 1,002 26-12-16, 10:17 PM
Bài mới nhất: maidinhdan
  [Help] SQL lỗi khi tham chiếu trường trong Forms Phung Duc 1 391 02-11-16, 03:17 PM
Bài mới nhất: Minh Tiên
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 6,911 07-10-16, 02:43 PM
Bài mới nhất: kieu manh

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ơ