- Cột ACTION ARGUMENTS: Bao gồm danh sách các tham số tương ứng với hành động
7. Làm việc với Form và các điều khiển
7.2 Macro tự động thực hiện sau khi mở tập tin CSDL
-Chúng ta cĩ thể tạo ra một Macro mà mỗi khi mở một tập tin CSDL thì Macro này tự động thực hiện.
-Để tạo Macro tự động thực hiện ta tiến hành các thao tác sau: -Tạo macro
8. Thực hành
Tạo CSDL mới cĩ tên là “ Quanlykhachhang.mdb “, 1/ Tạo các Table sau đây:
a/ DMKH (Danh mục khách hàng )
Field Name Description Data type Field Properties MAKH Mã khách hàng Text Field Size: 10
Required:Yes Indexed: Yes(No Duplicates)
TENKH Tên khách hàng Text Field Size: 50 DIACHIKH Địa chỉ khách
hàng
Text Field Size: 50 DONVIKH Đơn vị khách hàng Text Field Size: 50 b/ DMKHO( Danh mục kho)
Field Name Description Data type Field Properties
MAKHO Mã kho Text Field Size: 10
Required:Yes Indexed: Yes(No Duplicates)
TENKHO Tên kho Text Field Size: 50
DIACHIKHO Địa chỉ kho Text Field Size: 50 c/ HOADON( Hĩa đơn)
Field Name Description Data type Field Properties SOHD Số hĩa đơn Text Field Size: 3
NGAYHD Ngày hĩa
đơn
Date/Time Format: dd/mm/yy LOAIHD Loại hĩa đơn Text Field Size: 6
Display Control: Combo box Row Source Type: Value list Row Source: “Nhập”,”Xuất”
MAKH Mã khách
hàng
Text Field Size: 10
Indexed: Yes(Duplicates OK)
MAKHO Mã kho Text Field Size: 10
Indexed: Yes(Duplicates OK) TRIGIA Trị Gía Number Field Size: Double
Format: Standard Decimal Places: 2 DIENGIAIHD Diễn giaỉ Text Field Size: 50
2/ Nhập liệu vào các Table như sau:
3/ Tạo các Form theo hình như sau:
a/ (hd)Tạo Form theo như mẫu và lưu với tên “FormQLKH”. Trong Form cĩ 2 Tab Control Nhap, Xuat
HD:
-Tạo 2 subform nhập và xuất
-Tạo 1 main form , sau đĩ Tab Control -Liên kết giữa sub và main (Makh)
b/(hd) Tạo Form để lọc theo tên và lưu với tên “FormLocTen” Yêu cầu:
Khi chọn nút cĩ chữ B thì hiển thị tên khách hàng ắt đầu là chữ B. Tươn tự cho các nút C, D, H, L, M, N, T. Nút lệnh Stop cĩ tác dụn đĩn Form lại.
HD:
- Tạo Form gồm 2 phần:
+ Tạo thơng tin : makh, tenkh, diachikh +Tạo các Toggle button lọc bằng macro:
Ví dụ : lọc tên bất đầu chữ B điều kiện : Left( [DMKH]![TENKH],1)=‖B‖
c/ (hd)Tạo Form theo như mẫu và lưu với tên “FormPhieuXuatNhap”. Theo yêu cầu sau: - LOAIHD : combo box
- Phiếu Xuất Hàng, Tổng số lượng, Tổng số thành tiền : text box
- Khi người dùng click combo box LOAIHD: “xuất” , thì như hình bên dười và ngược lại khi click vào “nhập”.
Hd:
-Tạo subform gồm: makh,tenkh,diachikh, trigia, loaihd, Tổng số lượng(count)Tổng số thành tiền(sum) : text box
-Tạo mainform : LOAIHD : combo box
- Liên kết main và sub : loaihd -Tiêu đề: textbox
-Tạo macro cho tiêu đề
-Liên kết command boxvà tiêu đề bằng Macro:
d/(hd) Tạo Form theo như mẫu và lưu với tên “FormLoc_makho_loai”.
Yêu cầu: Khi chọn command “X” và Option button “kh10” thì xuất hiện như hình.
D:
-Tạo form gồm:
+ Tạo các thơng tin trong form: makh, loaihd, trigia, makho + Tạo các nút:
*FormA,B : Option Group , với tên lần lượt a,b
*Tạo các nút N, X : toggle button, với tên lần lượt NN, XK
*Tạo các nút kh01, kh10 : Option button, với tên lần lượt k1,k10ppp
*Liên kết các nút với form: chuột phải lên form a,b \properties
e/ Tạo Form DANH MỤC KHO
HD:
- Tạo form Dmkho như hình trên - Tạo macro cho các nút sau:
Macro
name Condition Action Action Ảguments
toi [MAKHO]<>Dlast(“[MAK HO]”,”[DMKHO]”) GoToRecord Next [MAKHO]=Dlast(“[MAKH O]”,”[DMKHO]”) MsgBox lui [MAKHO]<>Dfirst(“[MAKH O]”,”[DMKHO]”) GoToRecord Previous
[MAKHO]=Dfirst(“[MAKH O]”,”[DMKHO]”)
MsgBox
dau GoToRecord Record : First
cuoi GoToRecord Record: Last
moi GoToRecord Record: New
dong RunCommand Command : Close
xoa MsgBox(“Bạn cĩ muốn xố dữ liệu kg?”,32+4+256)=6
RunCommand Command: DeleteRecord
- Liên kết command với macro :on click Ví dụ:
HD:
- Tạo Form giao diện - Tạo macro
- Liên kết: on click