• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Trộn văn bản Word từ dữ liệu trong table Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Hỏi] Trộn văn bản Word từ dữ liệu trong table Access
• Trộn văn bản Word từ dữ liệu trong table Access

• Trộn văn bản Word từ dữ liệu trong table Access

  vuthaiha90 > 12-04-19, 12:03 PM

  Em chào các bác, em có vấn đề muốn hỏi như thế này: trong bản Word cần điền các thông tin như TenKH, DiaChi, NoiCongTac, SoTienVay, ThoiHanVay, TongThuNhap. Em cũng đã tạo Table bên access với các trường như vậy, giờ cho em hỏi là tương ứng với 1 dòng trong table sẽ ra 1 bản word có sẵn format chỉ điền thêm thông tin từ access vào thì làm cách nào ạ. File của em đây ạ

• RE: Trộn văn bản Word từ dữ liệu trong table Access

  Xuân Thanh > 12-04-19, 01:05 PM

  Mở Word lên rồi vào MaiMerge mà làm

• RE: Trộn văn bản Word từ dữ liệu trong table Access

  vuthaiha90 > 12-04-19, 04:19 PM

  Em còn vài cái đang dùng trên chương trình này, nếu tiện làm được cùng luôn thì hay, chứ em biết mailmerge ạ

• RE: Trộn văn bản Word từ dữ liệu trong table Access

  ongke0711 > 12-04-19, 11:22 PM

  (12-04-19, 12:03 PM)vuthaiha90 Đã viết: Em chào các bác, em có vấn đề muốn hỏi như thế này: trong bản Word cần điền các thông tin như TenKH, DiaChi, NoiCongTac, SoTienVay, ThoiHanVay, TongThuNhap. Em cũng đã tạo Table bên access với các trường như vậy, giờ cho em hỏi là tương ứng với 1 dòng trong table sẽ ra 1 bản word có sẵn format chỉ điền thêm thông tin từ access vào thì làm cách nào ạ. File của em đây ạ

  
  Vụ này cũng đơn giản là dùng vòng lặp thôi bạn.
  - Việc xuất ra Word thì tôi nghĩ bạn đã biết rồi, không bàn tới nữa.
  - Đối với table danh sách khách hàng cần xuất, bạn thêm một trường dạng yes/no đặt tên [Print]. Đây là thủ thuật để bạn chọn khách hàng nào cần in hợp đồng (Word) thì tick chọn checkbox trên Form.
  - Dùng vòng lặp duyệt qua bảng danh sách KH này và chỉ lấy maKH nào có chọn Print = True thôi.
  - Xuất Word theo từng record duyệt qua ở trên và lưu với tên là mã khách hàng + ngày giờ để để phân biệt file word nào là của khách hàng nào.
  - Về code: demo
  
  

  Mã PHP:

  Set rst = db.OpenRecordset ("SELECT * FROM tblKhachHang WHERE [Print]=-1", dbOpenSnapShot)

If rst.BOF And Rst.EOF Then Exit Sub
   
   rst.MoveFirst
   Do While Not rst.EOF
           Set doc = appWord.Documents.Open(FilePath)
           With doc
               .FormFields("fldHoTen").Result = rst!HoTen
               .FormFields("fldDiaChi").Result = rst!DiaChi
               ...
                .SaveAs FileName:="KhachHang_" & rst!MaKH & "_" & Format(Date, "ddmmyyyy")
            End With
   rst.MoveNext
   Loop 


• RE: Trộn văn bản Word từ dữ liệu trong table Access

  vuthaiha90 > 13-04-19, 09:48 AM

  (12-04-19, 11:22 PM)ongke0711 Đã viết:

  (12-04-19, 12:03 PM)vuthaiha90 Đã viết: Em chào các bác, em có vấn đề muốn hỏi như thế này: trong bản Word cần điền các thông tin như TenKH, DiaChi, NoiCongTac, SoTienVay, ThoiHanVay, TongThuNhap. Em cũng đã tạo Table bên access với các trường như vậy, giờ cho em hỏi là tương ứng với 1 dòng trong table sẽ ra 1 bản word có sẵn format chỉ điền thêm thông tin từ access vào thì làm cách nào ạ. File của em đây ạ

  
  Vụ này cũng đơn giản là dùng vòng lặp thôi bạn.
  - Việc xuất ra Word thì tôi nghĩ bạn đã biết rồi, không bàn tới nữa.
  - Đối với table danh sách khách hàng cần xuất, bạn thêm một trường dạng yes/no đặt tên [Print]. Đây là thủ thuật để bạn chọn khách hàng nào cần in hợp đồng (Word) thì tick chọn checkbox trên Form.
  - Dùng vòng lặp duyệt qua bảng danh sách KH này và chỉ lấy maKH nào có chọn Print = True thôi.
  - Xuất Word theo từng record duyệt qua ở trên và lưu với tên là mã khách hàng + ngày giờ để để phân biệt file word nào là của khách hàng nào.
  - Về code: demo
  
  

  Mã PHP:

  Set rst = db.OpenRecordset ("SELECT * FROM tblKhachHang WHERE [Print]=-1", dbOpenSnapShot)

If rst.BOF And Rst.EOF Then Exit Sub
   
   rst.MoveFirst
   Do While Not rst.EOF
           Set doc = appWord.Documents.Open(FilePath)
           With doc
               .FormFields("fldHoTen").Result = rst!HoTen
               .FormFields("fldDiaChi").Result = rst!DiaChi
               ...
                .SaveAs FileName:="KhachHang_" & rst!MaKH & "_" & Format(Date, "ddmmyyyy")
            End With
   rst.MoveNext
   Loop 


  
  Em làm theo và đã được ạ, em cảm ơn bác nhiều

• RE: Trộn văn bản Word từ dữ liệu trong table Access

  Xuân Thanh > 13-04-19, 10:29 AM

  Tham khảo thêm cái này để đỡ viết code ..dài. Nếu có vài chục trường chắc oải quá. Nên dùng Mail Merge sẽ nhẹ nhàng hơn. Chỉ cần một dòng lệnh là Ok
  

  Mã PHP:

  Sub MaiMer()
     ....
     oDoc.OpenDataSource Name:=DatabaseName, _
           SQLStatement:="SELECT * FROM [MyTable]"
     ....
End Sub 


  
  Lưu ý cái DatabaneName phải là đường dẫn full
  MyTable là tên table cần lấy dữ liệu

• RE: Trộn văn bản Word từ dữ liệu trong table Access

  ongke0711 > 13-04-19, 01:28 PM

  Đúng là dùng MailMerge của Word gọn gàng hơn nhiều. 
  Nếu như thông tin trong file Word chi thuần tuý là các trường trong 1 table hoặc query thì dùng kiểu mailmerge này là hiệu quả nhất.
  Nếu file Word cần có biểu diễn thông tin dạng table, lấy thông từ các subquery nữa thì phải dùng kiểu gán từng field và code để fill table trong word.
  Vd: file hợp đồng nhân viên: bao gồm các thông tin chung và table liệt kê chi tiết các khoản phụ cấp/trợ cấp được hưởng.

• RE: Trộn văn bản Word từ dữ liệu trong table Access

  vuthaiha90 > 13-04-19, 07:45 PM

  (13-04-19, 10:29 AM)Xuân Thanh Đã viết: 1 

  
  

  (13-04-19, 01:28 PM)ongke0711 Đã viết: 2 

  
  Em cảm ơn 2 bác đã hướng dẫn em. Mà cho em hỏi thêm 1 điều nữa, hôm qua ít khách hàng thì mỗi ông 1 file word, hôm nay mấy chục khách hàng cần in Tờ trình, nó ra mấy chục file, thấy hơi bất tiện khi in, em giờ muốn đổi lại là mỗi ngày ra 1 file word thôi, trong đó mỗi trang là 1 ông khách (tương ứng là 1 dòng trong table access), vì mình điền thông tin chuẩn và add đúng thông tin vào đúng chỗ thông qua code rồi thì ra 1 file word chỉ việc bấm in là xong, thì cần sửa lại code trên thế nào ạ. Em xin cảm ơn các bác ạ

• RE: Trộn văn bản Word từ dữ liệu trong table Access

  ongke0711 > 13-04-19, 08:27 PM

  Vậy bạn dùng mail merge thì nó không chia thành từng file riêng lẻ.

• RE: Trộn văn bản Word từ dữ liệu trong table Access

  vuthaiha90 > 13-04-19, 08:49 PM

  (13-04-19, 08:27 PM)ongke0711 Đã viết: Vậy bạn dùng mail merge thì nó không chia thành từng file riêng lẻ.

  
  Có ạ, chỉ là em hỏi có thể làm được như kiểu vậy không ạ. Tiện khi in ấn, còn đúng là như xưa vẫn bật từng file và in
• Bài trước Bài tiếp