Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: tracanhtam 12-06-11, 02:30 PM Chuyên mục: Forms - Bài trả lời (3) |
Tôi muốn xếp lớp cho hs theo cách sau : mỗi lớp 45hs có đầy đủ các loại điểm của field tongdiem.
Bạn nào gúip dùm code, xin cám ơn
File của tôi đây
|
|
Viết bởi: thienvu0902 11-06-11, 12:24 PM Chuyên mục: Report - Bài trả lời (5) |
nếu đc bạn có thể pm thienvu0902@yahoo.com xin cam ơn
|
Viết bởi: DoquangLam 10-06-11, 11:08 PM Chuyên mục: Report - Bài trả lời (7) |
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
|
|
Viết bởi: tracanhtam 10-06-11, 02:09 PM Chuyên mục: Forms - Bài trả lời (4) |
Tôi muốn đánh stt theo từng lớp sau khi đã nhập mọi thông tinh trong tables T01Hocsinh
Các bạn có thể giúp mình viết code trên forms đánh số thứ tự cho tất cả các lớp được không
Rất cám ơn các bạn[/size][/font]
|
|
Viết bởi: phanquocminh 10-06-11, 11:48 AM Chuyên mục: Table - Không có hồi đáp |
Bài 01: Tạo Table THISINH gồm các trường sau:
+ SOBD kiểu Text, Field Size: 6, trong đó ký tự đầu tiên bắt buộc phải nhặp và chỉ chấp nhận giá trị A hoặc B, 3 ký tự tiếp theo là số, bắt buộc phải nhập và các ký tự cuối là số không bắt buộc phải nhập.
+ HOTEN có kiểu Text và hiển thị chữ hoa, màu xanh (BLUE).
+ NGAYSINH (Date/Time) định dạng kiểu ngày (ngày/tháng/năm) màu đỏ, và phải thỏa điều kiện sau: nhập ngày sinh sao cho đến thời điểm hiện tại <=70 tuổi.
+ DE kiểu số, chỉ chấp nhận giá trị từ 1 đến 3, giá trị mặc nhiên là 1.
+ SOMAY là kiểu số nguyên, cho nhập các giá trị từ 1 trở lên và chỉ nhận các giá trị lẽ.
+ DIEMTHI là kiểu số, số thực và định dạng có 2 chữ số lẽ, chỉ chấp nhận các giá trị từ 1 đến 10.
Bài 02: Tạo Table có tên THISINH02 bao gồm các trường:
+ SOBD: kiểu Text, Field Size 7. Trong đó 2 ký tự đầu tiên chỉ chấp nhận giá trị AC, 3 ký tự tiếp là số bắt buộc phải nhập và 2 ký tự cuối chỉ chấp nhận giá trị CB hoặc NC.
+ HO&TEN có kiểu Text, định dạng chữ hoa.
+ NGAYSINH kiểu Date/time có màu đỏ, chỉ chấp nhận ngày sinh sao cho nhỏ hơn hoặc bằng 01/01/1996, giá trị mặc nhiên là 01/01/1996.
+ SOMAY có kiểu số chỉ chấp nhận giá trị <=90 và phải là số cẵn, giá trị mặc nhiên là 02. Định dạng lấy 2 số nguyên, không trùng nhau và bắt buộc nhập.
+ DE có kiểu số nguyên và chỉ chấp nhận là 1 hoặc 2.
+ DIEM có kiểu Number dạng số lẻ, chỉ chấp nhận các giá trị từ 0 đến 10, định dạng lấy 2 số lẽ.
| 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-Hôm qua, 01:21 AM- » Bài trả lời: 0- » Lượt xem: 17 |
| 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,161 |
| 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,673 |
| 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,214 » Thành viên mới nhất: 9nbettech » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,829 Thống kê đầy đủ |