Tham khảo tài liệu ''giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh on error goto p6'', công nghệ thông tin, quản trị web phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
! O W N to k lic c u -tr a c k Qui trình xây dựng tốn đặt lọc thực sau: Bước 1: Xây dựng form - form chứa kết lọc được; Bước 2: Xây dựng form mẹ - form chứa thiết lập điều kiện để lọc; Bước 3: Thực lọc ghi thoả mãn điều kiện form mẹ hiển thị kết lên form Với toán trên, cách giải sau: Bước 1: Xây dựng Form Sử dụng kỹ thông thường để tạo form đáp ứng kết theo toán Cụ thể bước sau: - Tạo form chế độ Design view; - Thiết lập thuộc tính Record Source cho form Total Query sau: Trang 179 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyễn Sơn Hải w y N ® h a n g e Vi e bu y Giáo trình Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k c - Thiết lập thuộc tính Defaul View cho form Datasheets; - Mở cửa sổ FieldList thiết kế form sau: - Đóng thiết kế form lại ghi ten frm_formcon Bước 2: Xây dựng form mẹ - Tạo form chế độ Design view; - Đưa hộp Combobox từ thành công cụ Toolbox lên form mẹ (giả sử tên (Name) Combo Combo0) Sử dụng tính Combobox Wizard Access để làm việc Mục đích đưa danh sách khách hàng từ bảng khach vào hộp Combo để chọn, phục vụ nhu cầu lọc liệu; - Sử dụng đối tượng Sub-form/Sub-report công cụ Toolbox để đưa form vừa tạo lên form mẹ Ngầm định tên sub-form Trang 180 d o m o m o c u -tr a c k C lic k C lic w w w d o w w w w y Copyright Nguyễn Sơn Hải h a n g e Vi e bu N y Giáo trình Microsoft Access 2000 to bu ® XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to k lic c u -tr a c k frm_formcon Chú ý đến tên gọi phần tiếp sau sử dụng để lập trình Cuối cùng, giao diện thiết kế form mẹ sau: Bước 3: Thiết lập lệnh lọc liệu form mẹ Công việc bước để sau chọn tên khách hàng hộp Combobox, danh sách hoá đơn mua hàng khách hiển thị lên form Muốn thế, việc lập trình lọc liệu phải thực thủ tục đáp ứng kiện Combo0_Click Giải thuật là: - Tạo biến Recordset để thi hành câu lệnh SQL đưa danh sách kết thoả mãn điều kiện đặt lọc Câu lệnh SQL trường hợp là: "SELECT hoadonID, khachID, ngayban, Sum([soluong]*[dongia]) “ _ + ” AS tongtien FROM " _ + " hoadon INNER JOIN (hang INNER JOIN hangban ON " _ + " hang.hangID = hangban.hangID) ON hoadon.hoadonID =" _ + " hangban.hoadonID WHERE Trim(khachID)='"+Trim(Combo0)" _ + " GROUP BY hoadonID, khachID, ngayban " - Gán thuộc tính Recorset form biến kiểu recordset vừa tạo (chứa kết lọc); - Ra lệnh làm tươi liệu cho form Trang 181 d o o c m C m w o d o w w w w w C lic k to bu Giáo trình Microsoft Access 2000 w y N y ® h a n g e Vi e bu XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to k lic c u -tr a c k Tất nhiên, trước phải khai báo biến kiểu Database toàn cục form định nghĩa thủ tục Form_Load() Tồn mã lệnh cho toán sau: Dim db As DAO.Database Private Sub Form_Load() Set db = CurrentDb End Sub Private Sub Combo0_Click() Dim rs As DAO.Recordset Set rs = db.OpenRecordset("SELECT hoadonID, khachID, " _ + " ngayban, Sum([soluong]*[dongia]) AS tongtien FROM" _ + " hoadon INNER JOIN (hang INNER JOIN hangban ON " _ + " hang.hangID = hangban.hangID) ON hoadon.hoadonID =" _ + " hangban.hoadonID WHERE Trim(khachID)='"+Trim(Combo0)" _ + " GROUP BY hoadonID, khachID, ngayban ") Set frm_formcon.Form.Recordset = rs frm_formcon.Requery End Sub Tóm lại, với tốn đặt lọc áp dụng theo phương pháp kể giống cách làm việc, điểm khác câu lệnh SQL Có thể kết luận mấu chốt toán tạo lệnh SQL để đáp ứng điều kiện đặt lọc từ form mẹ Chú ý Việc viết câu lệnh SQL khó, địi hỏi lập trình viên phải có nhiều kinh nghiệm Để làm tốt việc này, nên thiết kế query chế độ design view; sử dụng tính Copy, Paste để dán câu lệnh SQL mà query tạo lên nơi soạn thảo lệnh VBA chỉnh sửa cho phù hợp Thông thường sửa mệnh đề WHERE câu lệnh Trang 182 d o o c m C m w o d o w w w w w C lic k to bu Giáo trình Microsoft Access 2000 w y N y ® h a n g e Vi e bu XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to k lic c u -tr a c k CHƯƠNG MENU & TOOLBAR Chương trình bày kỹ thuật tạo menu toolbar nhằm liên kết tồn làm thành hệ thống phần mềm hoàn chỉnh Bao gồm mảng kiến thức: Tạo Menu; Tạo Toolbar; Tạo form phần mềm Trang 183 d o o c m C m w o d o w w w w w C lic k to bu Giáo trình Microsoft Access 2000 w y N y ® h a n g e Vi e bu XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ... "SELECT hoadonID, khachID, ngayban, Sum([soluong]*[dongia]) “ _ + ” AS tongtien FROM " _ + " hoadon INNER JOIN (hang INNER JOIN hangban ON " _ + " hang.hangID = hangban.hangID) ON hoadon.hoadonID ="... ngayban, Sum([soluong]*[dongia]) AS tongtien FROM" _ + " hoadon INNER JOIN (hang INNER JOIN hangban ON " _ + " hang.hangID = hangban.hangID) ON hoadon.hoadonID =" _ + " hangban.hoadonID WHERE Trim(khachID)='"+Trim(Combo0)"... thể kết luận mấu chốt toán tạo lệnh SQL để đáp ứng điều kiện đặt lọc từ form mẹ Chú ý Việc viết câu lệnh SQL khó, địi hỏi lập trình viên phải có nhiều kinh nghiệm Để làm tốt việc này, nên thiết