Đá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ề: 21)
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
  [Help] [Gấp] Đổi định dạng ngày sang tiếng anh dạng 8 March,2018 Cuong Servenet 1 140 04-09-18, 04:10 PM
Bài mới nhất: Cuong Servenet
  [Help] Lỗi xuất report sang excel thiếu dữ liệu nam8384 3 316 01-06-18, 08:58 PM
Bài mới nhất: DooHoaangPhuuc
  [Hỏi] Không xuất hiện chữ khi xuất sang pdf damdocvoco 1 538 08-05-17, 08:32 PM
Bài mới nhất: ongke0711
  [Help] Về vấn đề hiện ảnh khi xuất sang word nam8384 1 955 18-01-17, 06:42 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn hướng dẫn làm report xuất sang word luôn tieuho828 5 1,610 26-06-16, 12:06 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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line