Đá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ỏi có cách nào chuyển Access Windowse sang Mac OS trungminh 6 199 17-10-17, 11:39 PM
Bài mới nhất: ongke0711
  [Lỗi] Mail Merge trong mạng Lan phamngocsang 3 621 25-09-17, 02:28 PM
Bài mới nhất: phamngocsang
  [Help] Thông báo trong Ms Access khi Mail Merge phamngocsang 3 247 08-07-17, 09:51 AM
Bài mới nhất: cpucloi
  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 4,330 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 19,758 10-03-17, 10:49 PM
Bài mới nhất: nhatpc

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ơ