tailieunhanh - Giáo trình hình thành hệ thống ứng dụng dữ liệu report để chỉnh sửa application p5

Tham khảo tài liệu 'giáo trình hình thành hệ thống ứng dụng dữ liệu report để chỉnh sửa application p5', công nghệ thông tin, tin học văn phòng phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Giáo trình Microsoft Access 2000 Copyright Nguyễn Sơn Hả tục hơn nữa người dùng cũng có thể tự tạo thêm những thủ tục mới phục vụ việc xử lý dữ liệu theo mục đích riêng. Đặc biệt Access còn định nghĩa thủ tục đáp ứng sự kiện. Thủ tục này sẽ được tự động gọi ra khi sự kiện đáp ứng bị ảnh hưởng. Chúng ta sẽ trở lại nội dung này qua các ví dụ lập trình VBA. Tuỳ từng tính huống cụ thể sẽ lựa chọn sử dụng Function hoặc Sub. Chương trình con dạng hàm Cú pháp Function tên hàm danh sách các tham số As kiểu DL hàm thủ tục End Function Trong đó - Function End Function là các từ khoá bắt buộc khai báo cấu trúc một chương trình con dạng hàm - tên hàm là tên gọi hàm định khai báo. Tên không được chứa dấu cách space và các ký tự đặc biệt - danh sách các tham số - danh sách các tham số cần thiết cho hàm. Có hay không có danh sách này tuỳ thuộc vào hàm cần định nghĩa - kiểu DL hàm - kiểu dữ liệu mà hàm sẽ trả lại. Phần này bắt buộc phải được khai báo với mỗi hàm - thủ tục - thân chương trình con. Trong đó câu lệnh tên hàm biểu thức phải xuất hiện ít nhất một lần trong thủ tục. Câu lệnh này có tác dụng gán giá trị cho hàm. Nếu không có từ khoá Public trước Function hàm đó chỉ có tác dụng cục bộ trong một module trong một report hoặc trong một form. Khi có từ khoá Public trước Function hàm sẽ có tác dụng toàn cục. Tức là có thể sử dụng bất kỳ nơi nào trên tệp Access đó. Tất nhiên tất cả những gì khai báo là Public phải được khai báo trong phần Decralations của một Module nào đó. Các ví dụ Trang 144 Giáo trình Microsoft Access 2000 Copyright Nguyễn Sơn Hải Ví dụ 1 hàm tính tổng 2 số Function Tong2So a b As Double As Double Tong2So a b End Function Ví dụ 2 hàm kiểm tra một số có phải là nguyên tố hay không Function laNguyenTo so As Integer As Boolean Dim uoc As Integer laNguyenTo True If so 2 Then For uoc 2 To Int Sqr so If so Mod uoc 0 Then laNguyenTo False Exit For End If Next End If End Function Ví dụ trên có sử dụng đến - hàm Int number - hàm lấy phần nguyên của một số - hàm .