Chương 8 : MODULE
8.2. Cách tạo Module
8.2.1. Tạo một module dùng chung
−Trên thanh Ribbon chọn tab Create Module.
−Xuất hiện cửa sổ soạn thảo.
−Nhập code của các thủ tục trong cửa sổ soạn thảo.
−Click nút run ựể thực thi module, hoặc gọi module từ các module hoặc các ựối tượng khác trong cơ sở dữ liệu. −Sau khi hoàn tất lưu module, module
này xuất hiện trong phần Module của thanh Navigation.
−Nếu ựang làm việc trong cửa sổ soạn thảo thì các module dùng chung xuất hiện trong Project Window
8.2.2. Module gắn với form, report:
−Mở ựối tượng form hoặc report ở chế ựộ design.
−Click phải trên control muốn gán module chọn properties.
−Chọn tab event chọn event thắch hợp Click nút
−Xuất hiện cửa sổ Choose Builder.
−Chọn lệnh Code BuilderOK.
−Xuất hiện cửa sổ soạn thảo module với nội mặc ựịnh
−Mở Form hoặc report, tác dụng sự kiện vào control ựể thực thi module.
−Module này ựi liền với form hoặc report.
8.2.3. Các thành phần trong module
−Phần khai báo chung (Declaration Section): gồm những
lệnh khai báo biến, hằng, và khai báo về cách thức làm việc. Các hằng, biến khai báo trong phần này sẽ có hiệu lực trong tất cả các thủ tục.
−Phần các thủ tục: gồm các thủ tục trong module, mỗi thủ tục
gồm các lệnh khai báo biến, hằng, và các lệnh trong thủ tục, các hằng và biến trong phần này chỉ có hiệu lực trong thủ tục khai báo nó. Cấu trúc của một thủ tục:
Sub ControlName_SuKien() Code do người dùng nhập End Sub Sub <Tên thủ tục> ( ) Các lệnh End Sub
8.2.4. Lệnh khai báo:
a) Khai báo cách thức làm việc của access
−Option Compare Database: so sánh căn cứ vào bộ mã riêng của từng nước.
−Option Compare Text: so sánh không phân biệt chữ hoa, chữ thường.
−Option Compare Binary: so sánh căn cứ vào giá trị nhị phân của các ký tự trong bảng mã.
−Option Explicit: Thiết lập chế ựộ phải khai báo biến trước khi dùng, mặc ựịnh là không khai báo biến trước khi dùng.
b) Khai báo biến:
−Cú pháp:
Vắ dụ:
Dim i As Integer, st As String*15
c) Phạm vi của biến:
−Biến cục bộ: là biến ựược khai báo trong một thủ tục hoặc
trong phần Declarations của form hoặc report, chỉ có tác dụng trong thủ tục khai báo nó hoặc trong form hoặc report chứa nó.
Dim <Tên biến> As <Kiểu dữ liệu>
Phần thủ tục Phần khai báo
−Biến toàn cục: là biến ựược khai báo sau từ khóa Public,
biến này ựược khai báo tại phần Declaration của Module dùng chung.
d) Khai báo hằng
Hằng là ựại lượng có giá trị khơng ựổi trong suốt q trình thực thi chương trình.
− Cú pháp:
Vắ dụ:
Const ngay = #24/12/2004# 8.2.5. Lệnh gán
Dùng ựể gán giá trị cho một biến hay một hằng. Lệnh gán ựược sử dụng trong thân của thủ tục.
a) Lệnh Let: Gán giá trị của một biểu thức cho một biến.
− Cú pháp :
b) Lệnh Set : Gán ựối tượng cho một biến thuộc loại ựối tượng tương ứng.
− Cú pháp :
Public <Tên biến> As <Kiểu dữ liệu>
[Public|Private] <Const TenHang> [As kiểu dữ liệu] = <Biểu thức>
[Let] tenBien| tenHam = BieuThuc tenBien.TenThanhPhan = BieuThuc
tendoiTuong{ . | ! } (Thuoctinh | tenDoiTuong) = BieuThuc
Vắ dụ : Sub Vidu
Dim myDB as database Dim mySet As recordset Set myDb = CurrentDB
Set mySet = myDb.OpenRecordSet(ỘNhanVienỢ) End Sub