Đá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
  [Hỏi] Trích ngấu nhiên dữ liệu trong Table vuthaiha90 7 260 22-04-18, 12:43 PM
Bài mới nhất: vuthaiha90
  Export dữ liệu sang Word ( Nhiều dòng trong sub) danhxetnghiem 27 6,825 20-01-18, 07:55 PM
Bài mới nhất: mrtoanbin
  [Hỏi] Sử dụng hàm của Excel trong VBA killitmore 1 231 24-11-17, 09:42 PM
Bài mới nhất: maidinhdan
  [Help] Thông báo trong Ms Access khi Mail Merge phamngocsang 3 624 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 776 03-04-17, 04:11 PM
Bài mới nhất: ongke0711

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line