Đá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 2,783 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 351 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan
  Export dữ liệu sang Word ( Nhiều dòng trong sub) danhxetnghiem 26 3,082 01-08-16, 11:08 AM
Bài mới nhất: jeck09nt
  [Hỏi] Acess - Liên kết với Word qua Form Filed - cần trợ giúp vuthaiha90 1 227 26-07-16, 05:43 PM
Bài mới nhất: maidinhdan
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 50 14,969 02-05-16, 10:52 PM
Bài mới nhất: kuzinhy

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ơ