Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Đọc số sang chữ chuyển sang Word ( mail merge) không được
#1
Chào các anh, chị,

Em làm bảng dữ liệu từ access để mail merge sang Word, nhưng em không biết làm thế nào để giá trị của mục "đọc số sang chữ" chuyển được sang dạng text để khi merge sang word nó hiểu.

Em còn gà mờ lắm, nhờ anh chị hướng dẫn cụ thể giúp em, em cám ơn ạ.

http://www.mediafire.com/?z7tl3map6ec0a2u
Chữ ký của ginkgo Xin chào, mình là ginkgo, Tham gia http://thuthuataccess.com/forum từ ngày 09-03 -13.
Reply
Những người đã cảm ơn
#2
Không hiểu ý bạn lắm. Mình làm như thế này, bạn sửa lại theo ý bạn

http://www.mediafire.com/?g65a0l7o9o5h4ao
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn ginkgo
#3
Cám ơn changkhoonline77 nha,
Mình đã thêm phần màu đỏ ( bên dưới vào) nhưng kết quả là nó lại tạo thành 2 file word khác nhau, ( 1 cái convert cho stvay), 1 cái convert cho tongsodu. Trong khi đó, mình lại muốn 2 cái này cùng convert 1 lúc trên 1 file word đó.

Private Sub Conver_Click()

Dim oApp As Object, doc As Object
Dim strDocName As String

Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\ccSTK.dot"
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("cvstvaytxt").Result = Me.stvaytxt
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("cvtongsodutxt").Result = Me.tongsodutxt

On Error Resume Next

Set oApp = Nothing
End Sub
Chữ ký của ginkgo Xin chào, mình là ginkgo, Tham gia http://thuthuataccess.com/forum từ ngày 09-03 -13.
Reply
Những người đã cảm ơn
#4
sửa lại như thế này
Private Sub Conver_Click()
Dim oApp As Object, doc As Object
Dim strDocName As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\ccSTK.dot"
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("cvstvaytxt").Result = Me.stvaytxt
doc.FormFields("cvtongsodutxt").Result = Me.tongsodutxt
On Error Resume Next
Set oApp = Nothing
End Sub

mình onl = dt nên không kiểm tra lại đúng không nữa
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn ginkgo
#5
Cho mình hỏi thêm điều này nữa,
Mình chuyển số tiền ( có định dạng #,###) từ access sang word thì bị mất đi định dạng đó. Nếu dùng mail merge thì có thể khắc phục được, nhưng lại không thể chuyển phần đọc chữ qua word nếu như không dùng code covert bên trên.
Thế nên mình đã dùng bookmark của text form field, chọn định dạng là number và chọn format #,###, nhưng không thực hiện được.
Vậy có code nào mà đáp ứng được yêu cầu là mang dữ liệu sang đúng định dạng và đọc được số tiền bằng chữ đó không?
Chữ ký của ginkgo Xin chào, mình là ginkgo, Tham gia http://thuthuataccess.com/forum từ ngày 09-03 -13.
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ướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 3,553 29-04-17, 05:16 PM
Bài mới nhất: conmeocon
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 51 17,376 10-03-17, 10:49 PM
Bài mới nhất: nhatpc
  [Lỗi] Không nhảy số maidinhdan 5 339 13-01-17, 08:31 PM
Bài mới nhất: ongke0711
  [Help] Xuất dữ liệu access sang excel doandinhtam 11 782 20-12-16, 10:10 PM
Bài mới nhất: maidinhdan
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 597 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan

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ơ