Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lỗi Code dịch số sang chữ
#1
Nhờ các bạn kiểm tra dùm mình lỗi code dịch số sang chữ (lỗi ngay dòng màu đỏ).
File đính kèm các bạn mở Reports "R_48CapNhatChungTu_PN" -> Bị lỗi
Cám ơn các bạn !

Function VND(Amt)
If Amt = 0 Then
Resp = "Khoâng ñoàng"
Else
If Abs(Amt) > 999999999999.99 Then
Resp = "Soá quaù lôùn"
Else
If Amt < 0 Then
Resp = "Tröø "
Else
Resp = Space(0)
End If
Tien = Format(Abs(Amt), "###########0")
Tien = Right(Space(12) + Tien, 12)
doc = Space(0): Dem = doc
doc = doc + "traêm möôi tyû "
doc = doc + "traêm möôi trieäu"
doc = doc + "traêm möôi ngaøn "
doc = doc + "traêm möôi ñoàng "
doc = doc + "traêm möôi "
Dem = Dem + "moät hai ba boán naêm "
Dem = Dem + "saùu baûy taùm chín "
For I = 1 To 5
Nhom = Mid(Tien, I * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If I = 4 Then
Chu = "ñoàng "
Else
Chu = Space(0)
End If
Case ".00"
Chu = "chaün"
Case Else
So1 = Left(Nhom, 1)
So2 = Mid(Nhom, 2, 1)
So3 = Right(Nhom, 1)
Chu = Space(0)
For j = 1 To 3
Dich = Space(0)
s = Val(Mid(Nhom, j, 1))
If s > 0 Then
Dich = Trim(Mid(Dem, s * 5 - 4, 5)) + " " + Trim(Mid(doc, (I - 1) * 18 + j * 6 - 5, 6)) + " "
End If
Select Case j
Case 2 And s = 1
Dich = "möôøi "
Case 3 And s = 0 And Nhom <> Space(2) + "0"
Dich = Trim(Mid(doc, (I - 1) * 18 + j * 6 - 5, 6)) + Space(1)
Case 3 And s = 5 And So2 <> Space(1) And So2 <> "0"
Dich = "l" + Mid(Dich, 2)
Case 2 And s = 0 And So3 <> "0"
If (So1 >= "1" And So1 <= "9") Or (So1 = "0" And I = 4) Then
Dich = "leû "
End If
End Select
Chu = Chu + Dich
Next j
End Select
ViTri = InStr(1, Chu, "möôi moät", 1)
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "möôi moát"
Resp = Resp + Chu
End If
Next I
End If
End If
VND = UCase(Left(Resp, 1)) + Mid(Resp, 2)
End Function


File đính kèm
.zip   db1.zip (Kích cỡ: 77.26 KB / Tải về: 26)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Mình copy code của bạn vào chương trình của mình không thấy có vấn đề gì.
Vì bạn không post file DNTN TT 28.mdb nên không chạy thử được file của bạn
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He
#3
Mình post lại file mới, bạn xem dùm mình nhé. Cám ơn


File đính kèm
.zip   db1.zip (Kích cỡ: 146.03 KB / Tải về: 11)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
Mình đã xem qua file của bạn. Mình thấy lỗi của nó toàn là báo chưa khai báo biến. Chỉ cần khai báo cho các biến là chạy OK
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan
#5
Trước đây chạy bình thường, từ khi copy code của Menutree về là bị lỗi như vậy đó. Cái này mình không rành, bạn có thể sửa trực tiếp trên file đính kèm dùm mình được không ?
Cám ơn bạn !
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#6
Bạn chuyển hàm VND sang một module mới là ok.
Nhớ đầu module chỉ khai báo Option Compare Database
Xem file


File đính kèm
.zip   db1.zip (Kích cỡ: 159.97 KB / Tải về: 20)
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn khaccuong
#7
(11-06-11, 01:01 PM)haquocquan Đã viết: Bạn chuyển hàm VND sang một module mới là ok.
Nhớ đầu module chỉ khai báo Option Compare Database
Xem file

N­hưng bạn ơi đây là font VNI, Nếu mình muốn dùng font .VnTime (bảng mã TCVN3) thì như thế nào.
Chữ ký của khaccuong Xin chào, mình là khaccuong, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -11.
Reply
Những người đã cảm ơn
#8
Bạn muốn chuyển sang TCVN3, các chữ tiếng việt trong code bạn gõ lại kiểu TCVN3 là ok thôi.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
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 hướng dẫn làm report xuất sang word luôn tieuho828 5 418 26-06-16, 12:06 AM
Bài mới nhất: maidinhdan
  [Lỗi] Xin trợ giúp code in report dựa vào checkbox gmanhst 7 282 03-06-16, 02:41 PM
Bài mới nhất: ongke0711
  Xuất report sang excel nam8384 2 221 06-05-16, 10:58 AM
Bài mới nhất: nam8384
  Lấy dữ liệu theo tìm kiếm để xuất sang report hctol 6 1,293 23-07-14, 03:55 PM
Bài mới nhất: donghailk
  Cách xuất Report Access sang file Word và Pdf?? tui123 6 5,189 19-08-13, 09:03 PM
Bài mới nhất: cpucloi

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ơ