Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: maidinhdan 12-02-15, 11:28 AM Chuyên mục: Thư Viện Hàm - Bài trả lời (1) |
Hỏi:
(20-01-15, 03:47 PM)caotrunghieu Đã viết: Khai báo field Email bắt buộc phải có @, nếu không có thì báo lỗi.
Trả lời:
Đầu tiên bạn tạo một hàm để kiểm tra
Mã:
Public Function kiemtraemail(EmailAddress As String) As Boolean
kiemtraemail = EmailAddress Like "*@[A-Z,a-z,0-9]*.*" ' Kiểm tra chỉ gồm có những kí tự này mới chấp nhận
End FunctionKế tiếp: Trong Form1 bạn thêm vào đó 1 textbox với thuộc tính name là EmailText dùng để nhập địa chỉ email. Sau đó, nhấp chọn textbox vào Event chọn thủ tục After Update và chèn dòng lệnh như sau:
Mã:
Private Sub EmailText_AfterUpdate()
If (kiemtraemail(EmailText.Text) = False) Then ‘ Nếu địa chỉ email không đúng
Beep ‘ Kêu 1 tiếng bíp cho người dùng sợ
MsgBox "chu y: Dia chi email khong hop le", vbOKOnly, "Thong bao"
End If
End SubChúc bạn thành công!
Xin anh Noname xem xét có thể đưa vào "Thư viện hàm" được không ạh!
|
|
Viết bởi: maidinhdan 10-02-15, 03:32 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (9) |
Hình Design để xem hàm
![[Hình: TonghophamD_1.png]](https://sites.google.com/site/congthucassecc/home/TonghophamD_1.png)
Hình Form đang chạy
![[Hình: TonghophamD_2.png]](https://sites.google.com/site/congthucassecc/home/TonghophamD_2.png)
Demo hướng dẫn: https://sites.google.com/site/congthucas...am%20D.mdb
Mã PHP:
'Đếm các giá trị tại một cột
=DCount("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DCount("[Thanhtien]","[QrHamD]") 'Đếm Tất cả
=DCount("[Thanhtien]","[QrHamD]","[Tenhang]='Viết TL'") 'Đếm Tenhang la VietTL
'Tính tổng giá trị
'=DSum("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DSum("[Thanhtien]","[QrHamD]")'Cộng Tất cả
=DSum("[Thanhtien]","[QrHamD]","[Tenhang]='Viết TL'") 'Chi Cộng Tenhang la VietTL
'Tìm giá trị nhỏ nhất
'=DMin("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DMin("[Soluong]","[QrHamD]")'Lay gia tri nho nhat trong Tất cả mau tin co trong Table/Query
=DMin("[Soluong]","[QrHamD]","[Tenhang]='Viết TL'") ''Lay gia tri nho nhat trong Table/Query voi dieu kien la: Tenhang la VietTL
'Tìm giá trị lớn nhất
'=DMax("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DMax("[Soluong]","[QrHamD]")'Lay gia tri lon nhat trong Tất cả mau tin co trong Table/Query
=DMax("[Soluong]","[QrHamD]","[Tenhang]='Viết TL'") ''Lay gia tri Lon nhat trong Table/Query voi dieu kien la: Tenhang la VietTL
'Tính trung bình các giá trị
'=DAvg("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DAvg("[Thanhtien]","[QrHamD]") 'Khong co dieu kien thi tinh Tính trung bình Tong cong cot ThanhTien
=DAvg("[Thanhtien]","[QrHamD]","[Tenhang]='ViếtTL'") 'Co dieu kien thi tinh Tính trung bình Tong cong loai Tenhang la VietTL
'Tìm một giá tri thỏa điều kiện, Trả về giá trị đầu tiên được tìm thấy
'=DLookUp("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DLookUp("[Thanhtien]","[QrHamD]","[Tenhang]='Thước'") 'Xem Tenhang la VietTL
'Trả về giá trị đầu tiên được tìm thấy
'=DFirst("[Tên cột Cần Xem]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DFirst("[Thanhtien]","[QrHamD]","[Tenhang]='Viết TL'") 'Xem Tenhang la VietTL
'Trả về giá trị cuối cùng được tìm thấy
'=DLast("[Tên cột Cần Xem]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DLast("[Thanhtien]","[QrHamD]","[Tenhang]='Viết TL'") 'Xem Tenhang la VietTL
* Hàm liên quan đến ngày tháng:
Hình minh họa:
![[Hình: minhhoaDateserial.png]](https://sites.google.com/site/congthucassecc/home/hinh-linh-tinh/minhhoaDateserial.png)
Cú pháp:
1. Lấy Ngày đầu Tháng hiện tại:
Mã PHP:
=DateSerial(Year(Date()), Month(Date()), 1)
2. Lấy Ngày đầu Tiếp theo tháng:
Mã PHP:
==DateSerial(Year(Date()),Month(Date())+1,1)
3. Lấy Ngày cuối cùng của tháng hiện tại:
Mã PHP:
=DateSerial(Year(Date()),Month(Date())+1,0)
4. Lấy Ngày cuối cùng của tháng tiếp theo:
Mã PHP:
=DateSerial(Year(Date()),Month(Date())+2,0)
5. Lấy Ngày đầu tiên của tháng trước đó:
Mã PHP:
=DateSerial(Year(Date()),Month(Date())-1,1)
6. Lấy Ngày cuối cùng của tháng trước đó:
Mã PHP:
=DateSerial(Year(Date()),Month(Date()),0)
7. Lấy Ngày đầu tiên của năm hiện tại:
Mã PHP:
=DateSerial(Year(Date()),1,1)
8. Lấy Ngày cuối cùng của tháng hiện tại:
Mã PHP:
=DateSerial(Year(Date()), Int((Month(Date())-1)/3)*3+4,0)
9. Lấy Ngày đầu tiên của tuần hiện tại (giả sử chủ nhật = ngày 1):
Mã PHP:
=Date() - WeekDay(Date())+1
10. Lấy Ngày cuối cùng của tuần hiện tại:
Mã PHP:
=Date() - WeekDay(Date())+7
11. Lấy Ngày đầu tiên của tuần hiện tại (sử dụng cài đặt chuyên biệt trong hộp thoại tùy chọn hộp):
Mã PHP:
=Date() - WeekDay(Date(),0)+1
12. Lấy Ngày cuối cùng của tuần hiện tại:
Mã PHP:
=Date() - WeekDay(Date(),0)+7
Dựa vào 12 cú pháp này có thể xào nấu ra thêm nhiều câu nửa.
Trân trọng!
|
|
Viết bởi: maidinhdan 07-02-15, 05:40 PM Chuyên mục: Forms - Bài trả lời (2) |
![[Hình: Hinh%20Demo%20Lien%20ket%20nhieu%20subfo...inform.png]](https://sites.google.com/site/congthucassecc/home/Hinh%20Demo%20Lien%20ket%20nhieu%20subform%20tren%201%20Mainform.png)
Và đây là Demo: http://www.mediafire.com/download/czz0qj...child).rar
Và còn 1 cách nửa là liên kết bằng code. Chắc làm demo sau vậy.
|
Viết bởi: dinhnhieu 07-02-15, 10:24 AM Chuyên mục: Forms - Bài trả lời (27) |
Cảm ơn các AC quan tâm và giúp đỡ.
|
Viết bởi: tt1212 05-02-15, 04:02 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (10) |
Đặc điểm:
-Phi kết nối-không link table
-Không tạo query
-Bảo mật cao
-CSDL chia nhỏ
Đã test thử chạy được trên các phiên bản Access từ 2003-2013 trên tất cả các win x7-7-8
chạy qua điện toán đám mây
Chức năng chính:
-Nhập -xuất
Dự kiến
Nâng cấp phiên bản sau:
Báo cao
Kết nối SQL sever 2005
Mọi người cứ xem và góp ý, có thể xài tốt cho những người có nhu cầu tương ứng Miến phí
http://www.mediafire.com/download/l71a4n...Settup.rar
Dang nhap: NV
Pass 123
[
| Chủ đề Mới nhất |
| nv casino — практический ... -Chuyên mục: MS Word-Đăng bởi lần cuối: MichaelHieta-5 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| Peptide research and refe... -Chuyên mục: MS Word-Đăng bởi lần cuối: CarlosDug-9 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| SkfterjeadS -Chuyên mục: MS Word-Đăng bởi lần cuối: Danielapams-10 Giờ trước- » Bài trả lời: 0- » Lượt xem: 3 |
| tripscan — Почему предска... -Chuyên mục: MS Word-Đăng bởi lần cuối: NicholasAxiot-Hôm nay, 06:38 AM- » Bài trả lời: 0- » Lượt xem: 3 |
| 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,368 |
| 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: 158 |
| 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: 164 |
| 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: 8,163 |
| 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: 185 |
| Đồ 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: 669 |
| 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 đủ |