Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
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ẽ.
|
|
Viết bởi: djkaka 09-06-11, 09:20 AM Chuyên mục: Forms - Bài trả lời (8) |
bảng dữ liệu của mình rất đơng giản gồm 3 bảng. Miền, Tỉnh, Huyện
Trong Form nhập liệu mình muốn có 3 combo.
- Click vào combo 1 thì hiển thị list Miền sau đó
- Click vào combo 2 thì hiện thị list Tỉnh theo Miền đã chọn ở combo 1
- Click vào combo 3 thì hiển thị list Huyện theo Tỉnh đã chọn ở combo 2
Dưới đây là file data của mình:
http://www.mediafire.com/?1k9951ztmtci4m5
|
|
Viết bởi: Hoanggiathanhsingles 08-06-11, 11:55 PM Chuyên mục: Forms - Bài trả lời (2) |
Hôm nay em có vấn đề nan giải (đối với em) muốn nhờ đến sự giúp đỡ của các anh chị.
Chuyện là như vầy:
Em muốn tạo ra 1 form, trong form đó có chứa control hiển thị hình ảnh, và em muốn khi rê chuột tới phần nào của hình trong control thì góc chổ đó của hình phóng to.
Như vậy em không biết trong Access của mình có thể làm được điều này không??? Và nếu làm được thì em phải dùng control nào và sử dụng phương thức code ra sao???
Rất mong nhận được sự chỉ dẫn từ các anh chị
Xin chân thành cảm tạ.
| Chủ đề Mới nhất |
| 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: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,266 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 125 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 145 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,868 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 155 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 582 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 172 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 503 |
| 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: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,592 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 270 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |