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

Đọc số sang chữ chuyển sang Word ( mail merge) không được

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Help] Đọc số sang chữ chuyển sang Word ( mail merge) không được
• Đọc số sang chữ chuyển sang Word ( mail merge) không được

• Đọc số sang chữ chuyển sang Word ( mail merge) không được

  ginkgo > 17-03-13, 12:38 PM

  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

• RE: Đọc số sang chữ chuyển sang Word ( mail merge) không được

  changkhoonline77 > 17-03-13, 09:16 PM

  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

• RE: Đọc số sang chữ chuyển sang Word ( mail merge) không được

  ginkgo > 17-03-13, 10:37 PM

  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

• RE: Đọc số sang chữ chuyển sang Word ( mail merge) không được

  changkhoonline77 > 18-03-13, 09:58 AM

  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

• RE: Đọc số sang chữ chuyển sang Word ( mail merge) không được

  ginkgo > 19-03-13, 10:32 PM

  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?
• Bài trước Bài tiếp