VI. THAM CHIẾU ĐẾN CONTROL TRÊN FORM/REPORT
3. Tham chiếu tới các thuộc tính Form, Report
Form![tên Form]![tên thuộc tính Form] Report ![tên Report]![tên thuộc tính Report]
4. Tham chiếu tới các control trên SubFormhoặc SubReport
Form![tên Form]![tên SubForm].Form![tên Control] Report![tên Rport]![tên SubReport ].Report![tên Control]
5. Tham chiếu tới các thuộc tính của SubForm hoặc SubReport
Form![tên Form]![tên SubForm].Form![tên thuộc tính] Report ![tên Report]![tên SubReport].Report![tên thuộc tính]
6. Tham chiếu tới các thuộc tính của các control trên SubForm hoặc SubReport
Form![tên Form]![tên SubForm].Form![tên thuộc tính ]
Report![tên Report]![tên Subreport].Report![tên Control].[tên thuộc tính]. ⇒ Một số hàm kiểm tra dữ liệu:
IsNull(biến) : Trả về giá trị True (-1) nếu biến cĩ giá trị Null
IsDate(biến): Trả về giá trị True (-1) nếu biến cĩ giá trị ngày hợp lệ. IsEMpty(biến): Trả về giá trị True (-1) nếu biến cĩ giá trị “”
****************************** ********
BÀI TẬP
Bài 1: Tạo Form sau và lưu lại với tên DOINGOAITE
Yêu cầu:
− Khi Click chọn một loại tiền thì sẽ cho ra Tỷ giá Tiền việt nam tại Control TienVN như sau: USD 14000, HKD 12000, JPY10000, DM8000, FRANCE6000
− Sau đĩ Click nút Đổi thì sẽ lấy SoNgoaiTe x Tiền VN (tuy nhiên khi chọn Đổi mà số ngoại tệ khơng nhập thì báo lỗi “Ngoại Tệ Chưa Nhập Bạn Ơi!”
Chú ý: Khi Đổi ra tiền Việt Nam mà số tiền đổi được lớn hơn 50000 thì cho thơng báo “ Bạn Giàu
Quá! Đi Vũng Tàu chơi nhé!”, cịn lại báo “ Sao BaÏn Nghèo Quá Vậy! Ở nhà chơi nhé!” − Nút xố: Sẽ xố trắng các Control khơng cịn gì hết
− Nút thốt: Là thốt khỏi Form này.
Bài 2: Tạo giao diện Form Giải phương trình. Viết chương trình giải một phương trình bậc hai Ax2
+ Bx + C = 0 với hệ số A nhập vào phải khác 0. Nếu nhập vào hệ số A = 0 thì yêu cầu nhập lại hệ
số A. Các TextBox và đặt lại tên: A; B; C; X1; X2; TB Các Command button
Yêu cầu :
− Khi Click Chọn Nút Tính thì sẽ cho kết quả ở các hình thức sau:
− Nếu chưa nhập hệ số A = 0 thì xuất hiện dịng thơng báo nhập lại hệ số a khác 0. + Nghiệm X1: Khi Pt cĩ 2 nghiệm
+ Nghiệm X2: Khi Pt cĩ 2 nghiệm
+ Nghiệm X1 = X2: Khi Pt cĩ nghiệm kép.
+ Pt vơ nghiệm khi Delta = 0.
− Nút Xố: Sẽ xố trắng các Control khơng cịn gì hết − Nút Thốt: Là thốt khỏi Form này.
Bài 3: Mở Form QUANLYDULIEU làm ở chương 2. Copy thành form mới đặt tên cho nĩ là “DUNGLENHMACRO”. Ví dụ: Mở Form: Docmd.OpenForm “Tên form” <View>, Filter name>, <Where condition>….Mở Table, Query tương tự.
BÀI 7: TABLE & QUERY
Giả sử đã khai báo:
Dim dbs as Database Dim tdf as Tabledef Dim fld as Field