Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
#1
Mình đang làm một report có vướng mắc như sau :

Số tiền bằng số : ..................................... Số tiền bằng chữ : ..............................................................
.....................................................................................................................................................

Khi lên báo biểu nó sẽ thể hiện như sau :
Số tiền bằng số : 125.252.333 Số tiền bằng chữ : Một trăm hai mươi năm triệu, hai trăm năm mươi hai ngàn, ba trăm ba ba đồng chẵn.

Với báo biểu này yêu cầu ghi số tiền bằng chữ nối tiếp theo sau số tiền bằng số và xuống dòng

Với Access có bạn nào có biết và chỉ giúp tôi cách để ghi số tiền bằng chữ như trên không ? xin cảm ơn
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Trong Diễn Đàn nhiều lắm , nhưng tiện đây cho bạn tham khảo luôn này :
Trong đó có 2 hàm : VND và USD thích dùng loại nào thì dùng
http://www.mediafire.com/download/jvru1i...%3DVND.rar
Số tiền bằng số (123456 ) : TextTHANHTIEN
Lấy nguồn cho phần số tiền viết bằng chữ = VND( TextTHANHTIEN )
là OK !
Chúc Thành Công Há ! có gì hồi âm sau nhé
Khải Nguyên
Chữ ký của khải nguyên Khải Nguyên Xin Gửi lời chào tới Tất cả các bạn trên Diễn Đàn Thủ Thuật Access
Chúc cả nhà may mắn và  thành đạt ! Lightbulb
Reply
Những người đã cảm ơn
#3
gởi bài qua mail quan100157@gmail.com mình làm cho bạn
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Bạn tải về hàm đổi số ra chữ
tại 1 cái textbox gõ code vào ="số tiền bằng số: " & [ThanhTien] & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
ThanhTien: là cột tiền bằng số của bạn
làm như thế thì tiền bằng số và chữ sẽ nằm trên một ô và sẽ tự động xuống dòng.
Chữ ký của hadangpr Hỡi thế gian ngu là gì mà không ai chịu nhận!
Reply
Những người đã cảm ơn ledangvan
#5
(03-07-13, 08:46 AM)hadangpr Đã viết: Bạn tải về hàm đổi số ra chữ
tại 1 cái textbox gõ code vào ="số tiền bằng số: " & [ThanhTien] & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
ThanhTien: là cột tiền bằng số của bạn
làm như thế thì tiền bằng số và chữ sẽ nằm trên một ô và sẽ tự động xuống dòng.

Xin bổ sung một chút nữa. Nếu chỉ ghi [ThanhTien] thì số sẽ viết ra liền tù tì 012334343.... Hãy dùng thêm hàm Format nữa
Nếu bạn để dấu thập phân trong máy là "," thì dùng như sau:
Tại 1 cái textbox gõ code vào ="số tiền bằng số: " & Format([ThanhTien],"#.##0,00") & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
Nếu bạn để dấu thập phân trong máy là "." thì dùng như sau:
Tại 1 cái textbox gõ code vào ="số tiền bằng số: " & Format([ThanhTien],"#,##0.00") & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))

Khi làm ứng dụng nghiêm túc thì ta phải xử lý vụ này tự động bằng cách kiểm tra xem dấu phân cách thập phân trong hệ thống là gì, từ đó chọn định dạng cho phù hợp.
Ví dụ tôi dùng giải pháp này:

Format([ThanhTien],iif(Cint("0,1")=0,"#,##0.00","#.##0,00"))
Hàm Cint("0,1")=0 nếu dấu phân cách thập phân trong hệ thống là "," và ngược lại nếu trả về false thì dấu phân cách là "."
Hy vọng điều này giúp được bạn!
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn Noname , ledangvan
#6
(03-07-13, 09:20 AM)paulsteigel Đã viết:
(03-07-13, 08:46 AM)hadangpr Đã viết: Bạn tải về hàm đổi số ra chữ
tại 1 cái textbox gõ code vào ="số tiền bằng số: " & [ThanhTien] & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
ThanhTien: là cột tiền bằng số của bạn
làm như thế thì tiền bằng số và chữ sẽ nằm trên một ô và sẽ tự động xuống dòng.

Xin bổ sung một chút nữa. Nếu chỉ ghi [ThanhTien] thì số sẽ viết ra liền tù tì 012334343.... Hãy dùng thêm hàm Format nữa
Nếu bạn để dấu thập phân trong máy là "," thì dùng như sau:
Tại 1 cái textbox gõ code vào ="số tiền bằng số: " & Format([ThanhTien],"#.##0,00") & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
Nếu bạn để dấu thập phân trong máy là "." thì dùng như sau:
Tại 1 cái textbox gõ code vào ="số tiền bằng số: " & Format([ThanhTien],"#,##0.00") & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))

Khi làm ứng dụng nghiêm túc thì ta phải xử lý vụ này tự động bằng cách kiểm tra xem dấu phân cách thập phân trong hệ thống là gì, từ đó chọn định dạng cho phù hợp.
Ví dụ tôi dùng giải pháp này:

Format([ThanhTien],iif(Cint("0,1")=0,"#,##0.00","#.##0,00"))
Hàm Cint("0,1")=0 nếu dấu phân cách thập phân trong hệ thống là "," và ngược lại nếu trả về false thì dấu phân cách là "."
Hy vọng điều này giúp được bạn!

Thanks các bác nhé, thế mà không nghĩ ra là cho cùng vào một textbox 015
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
Làm cách của bạn paulsteigel được nhưng mình lại vướng là số tiền thành số và nói chung nó không in đúng theo mẫu (Ví dụ : Số tiền thành số phải được ghi từ nửa tờ A4 hắt về trước, xong tiếp đó mới đến số tiền bằng chữ -> Các bác hướng dẫn giúp tôi với
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
Vấn đề là khoảng trắng thôi mà! Bạn canh được!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
(03-07-13, 10:48 AM)Noname Đã viết: Vấn đề là khoảng trắng thôi mà! Bạn canh được!

Mình làm được rồi các bạn ạ :Mình làm như sau : =" " & " " & "( " & Writing([Sotien])
Ở phần số tiền bằng số : .... Vẫn giữ nguyên; Phần chữ : Số tiền bằng chữ vẫn giũ nguyên -> Đặt phần =" ...." nằm trước (dưới) rồi copy đặt phần số tiền bằng số : ... đè lên trên như vậy lúc in ra vẫn có số tiền bằng số và số tiền bằng chữ được ghi tiếp sau khoảng trắng theo mình căn chỉnh , Cảm ơn các bạn đã hướng dẫn

http://www.mediafire.com/download/w52hn6...19v/In.mdb
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
(03-07-13, 11:00 AM)ledangvan Đã viết:
(03-07-13, 10:48 AM)Noname Đã viết: Vấn đề là khoảng trắng thôi mà! Bạn canh được!

Mình làm được rồi các bạn ạ :Mình làm như sau : =" " & " " & "( " & Writing([Sotien])
Ở phần số tiền bằng số : .... Vẫn giữ nguyên; Phần chữ : Số tiền bằng chữ vẫn giũ nguyên -> Đặt phần =" ...." nằm trước (dưới) rồi copy đặt phần số tiền bằng số : ... đè lên trên như vậy lúc in ra vẫn có số tiền bằng số và số tiền bằng chữ được ghi tiếp sau khoảng trắng theo mình căn chỉnh , Cảm ơn các bạn đã hướng dẫn

http://www.mediafire.com/download/w52hn6...19v/In.mdb
Bạn thay đoạn trắng dài dài bằng cái này Space(165) (tức là lặp lại khoảng trắng 165 lần)
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn Noname


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 Cách sắp xếp report? tieuho828 0 9 4 Giờ trước
Bài mới nhất: tieuho828
  [Help] Xin Giúp đỡ Dàn Report theo hàng ngang toi511 2 136 03-11-16, 01:10 PM
Bài mới nhất: toi511
  [Help] Sắp xếp dữ liệu trong báo cáo hoanghai902 2 86 03-11-16, 01:22 AM
Bài mới nhất: maidinhdan
  Hướng Dẫn Cú pháp mở Report có nhiều điều kiện GaDauBac 7 248 22-10-16, 01:08 AM
Bài mới nhất: maidinhdan
  Hướng Dẫn Tạo Report theo Combobox trong Form thangbomdethuong2000 7 286 20-10-16, 08:41 PM
Bài mới nhất: thangbomdethuong2000

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ơ