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

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   hàm đổi số thành chữ trong access
  

  Viết bởi: trico9.0 10-07-11, 10:26 PM Chuyên mục: Macro - Bài trả lời (8)

• xin mọi ngùời xem giúp mình hàm này sai chổ nào mà nó không chạy. bất kể là số mấy thì cũng ra "Không đồng chẳn"
  cám ơn!!!
  
  Public Function DoiSoRaChu(ByVal number As Long)
      Dim KetQua, SoTien, Nhom, Chu, Dich, N1, N2, N3 As String
      Dim I, J, N As Byte
      Dim Hang, Nghin, Dem
     
      Hang = Array("", "tam", "muoi", "")
      Dem = Array("", "mot", "hai", "ba", "bon", "nam", "sau", "bay", "tam", "chin")
      Nghin = Array("", "nghin ty", "ty", "trieu", "ngin", "dong")
     
      If nunber = 0 Then
          KetQua = "Khong dong "
      Else
          If Abs(number) >= 1E+15 Then
              KetQua = "So lon qua muc cho phep!"
          Else
              KetQua = ""
              If number < 0 Then
                  KetQua = "Am"
              End If
              SoTien = Format(Abs(number), "###############0.00")
              SoTien = Right(Space(15) & SoTien, 18)
             
              For I = 1 To 5
                  Nhom = Mid(SoTien, I * 3 - 2, 3)
                  If Nhom <> Space(3) And Nhom <> "000" Then
                      Chu = ""
                      N1 = Left(Nhom, 1)
                      N2 = Mid(Nhom, 2, 1)
                      N3 = Right(Nhom, 1)
                      Hang(3) = Nghin(I)
                          For J = 1 To 3
                              Dich = ""
                              N = Val(Mid(Nhom, J, 1))
                              If N > 0 Then
                                  Dich = Dem(N)
                                  If N3 = "1" And N2 > "1" And J = 3 Then Dich = "mot"
                                  If N = "5" And N2 > "0" And J = 3 Then Dich = "lam"
                                  Dich = Dich & Hang(J)
                              End If
                              Select Case J
                                  Case 1 And N1 = "0"
                                      Dich = "Khong tram "
                                  Case 2 And N = "1"
                                      Dich = "Muoi "
                                  Case 3 And N = "0" And Val(Nhom) <> 0
                                      Dich = Hang(J)
                                  Case 2 And N = "0" And Val(N3) > 0 And Len(Chu) > 0
                                      Dich = "linh "
                              End Select
                              Chu = Chu & Dich
                          Next J
                          KetQua = KetQua & Chu
                      End If
              Next I
          End If
      End If
      If KetQua = "So lon qua muc cho phep!" Then
          DoiSoRaChu = "So lon qua muc cho phep!"
      Else
          DoiSoRaChu = UCase(Left(KetQua, 1)) & Mid(KetQua, 2) & "chan."
      End If
  End Function
  


•   thiết kế phiếu thu thuế đất ở
  

  Viết bởi: ngamyeuem 10-07-11, 07:02 PM Chuyên mục: Forms - Không có hồi đáp

• Mong các bạn thiết kế giúp mình mẫu phiếu thu thuế để thực hiện trong tháng 7 năm 2011....mò mãi nhưng ko làm được
  link ý tưởng: http://www.mediafire.com/?babyu5uds40to0k
  bạn nào được làm ơn gửi qua Email cho mình nha: thang.dangky@gmail.com
  cảm ơn các bạn rất nhiều....
  


•   Giúp thiết kế Check Box
  

  Viết bởi: chauho 09-07-11, 11:03 AM Chuyên mục: Forms - Không có hồi đáp

• Mình có 1 Main form lấy nguồn từ table SINHVIEN, mình muốn khi chọn check box xoá tên sẽ mở formxoaten để nhập nội dung xoá tên và đồng thời sinh viên đó sẽ bị xoá trong table SINHVIEN và lưu trong table PHU. Đây là file của mình http://www.mediafire.com/?bvg4sg8qbv32t3l . Rất mong được sự giúp đỡ!
  


•   Giúp chia nhóm ngẫu nhiên với số lượng bằng nhau
  

  Viết bởi: Nguyendinhthanh 08-07-11, 10:13 PM Chuyên mục: Forms - Bài trả lời (5)

• Mình muốn chia nhóm (Danh sách được lấy ngẫu nhiên) Sao cho số lượng mỗi nhóm bằng nhau.
  Ai biết giúp mình với.
  File đính kèm
  


•   hướng dẫn tạo query trong csdl bán hàng
  

  Viết bởi: endyquach 08-07-11, 05:45 PM Chuyên mục: Query - Bài trả lời (3)

• Anh chị hứng dẫn dumg em câu này nha: "Chọn ra những mặt hàng chưa bán hoặc đã bán thì phải có doanh số <100 ": thông tin hiển thị: mã hàng, tên hàng, doanh số.
  Chân thành cám ơn
  



Chủ đề Mới nhất

Ứng dụng kiểm phiếu bầu c... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-28-12-25, 01:21 AM- » Bài trả lời: 0- » Lượt xem: 25

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,273

Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,162

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 6,011

Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 71

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,373

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 755

Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,071

(Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,674

Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,271




Diễn đàn Thống kê

» Thành viên: 8,238 » Thành viên mới nhất: xn88club1com » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,829 Thống kê đầy đủ