GIÁO TRÌNH LẬP TRÌNH QUẢN LÝ VỚI MICROSOFT OFFIC ACCESS - BÀI 8 GIỚI THIỆU NGÔN NGỮ VBA (VISUAL BASIC FOR APPLICATIONS) docx

Bài GIỚI THIỆU NGƠN NGỮ VBA (VISUAL BASIC FOR APPLICATIONS) 8.1 GIỚI THIỆU Là ngơn ngữ lập trình cho Microsoft Office ứng dụng có liên kết với Được sử dụng để liên kết đối tượng ứng dụng lại với tương tự Macro linh động Ta sử dụng VBA để thực công việc sau:  Dễ dàng bảo trì ứng dụng  Tạo hàm riêng  Che thơng báo lỗi hệ thống  Tạo hiệu chỉnh đối tượng  Thực hành động cấp hệ thống  Truy cập dễ dàng vào mẩu tin  Gởi tham số động 8.2 C C TH NH PHẦN TRONG M T MODULE 8.2.1 GIỚI THIỆU VỀ MODULE a) MODULE CHUNG Dùng để chứa thủ tục hàm chung người thiết kế tự lập trình ngôn ngữ VBA để bổ sung cho file sở liệu mà ta chạy vị trí ứng dụng b) MODULE RI NG CỦA Đ I TƯỢNG FORM, REPORT Dùng để chứa thủ tục xử lý kiện liên kết với Form hay Report Ta lưu riêng module loại mà chúng gắn liền với Form Report Khi ta chép Form hay Report từ tập tin CSDL sang tập tin CSDL khác Module chép sang với ta xóa Form Report chúng bị xóa theo 8.2.2 C CH MỞ CỬA SỔ MODULE ĐỂ VIẾT MÃ LỆNH a) MỞ MODULE CHUNG Trên Ribbon chọn ngăn Create sau chọn Module 189 Hình 8.1: Chọn muc Module để tạo Module Xuất hình soạn thảo Hình 8.2: Cửa s soạn thảo m lệnh b) MỞ MODULE RIÊNG CỦA FORM HOẶC REPORT Mở Form hay Report chế độ Design bấm vào nút Code 190 Hình 8.3: Nút Code phiếu Design Ribbon Xuất cửa sổ soạn thảo mã lệnh Hình 8.4: Cửa s soạn thảo m lệnh Form 8.2.3 C C TH NH PHẦN TRONG M T MODULE a) C C KHAI B O Là câu lệnh dùng định nghĩa biến, hằng, loại liệu người dùng b) THỦ TỤC XỬ LÝ SỰ KIỆN (EVENT PROCEDURE) Là thủ tục nằm Module Form Report Chúng thực kiện Form Report điều khiển xảy c) THỦ TỤC CHUNG GENERAL PROCEDURE Là thủ tục không trực tiếp liên quan đến đối tượng biến cố Ta tạo chúng Module chung Module Form, Report Thủ tục chung thi hành ta gọi đến 8.2.4 THỦ TỤC XỬ LÝ SỰ KIỆN EVENT PROCEDURE) 191 a) Ý NGH A Khi Access nhận thấy có kiện (biến cố) xảy Form, Report Control tự động thi hành thủ tục biến cố tạo cho đối tượng biến cố Do đó, để thực số hành động để đáp lại biến cố đặc biệt ta phải đưa hành động vào thủ tục biến cố b) T N CỦA THỦ TỤC XỬ LÝ SỰ KIỆN Form Report Tên biến cố Tên Control Tên biến cố Thí dụ: - Thủ tục biến cố cho kiện Mở Form có tên Form_Open - Thủ tục biến cố cho kiện Click chuột vào nút tên cmdThem cmdThem_Click c) TẠO THỦ TỤC BIẾN C Tạo thủ tục biến cố cho nút lệnh cmd chao click chuột nút lệnh hiển thị lời chào “Xin chao tat ca cac ban hoc vien” Hình 8.5: Form chứa n t cmd chao mà ta cần tạo thủ tục biến cố - Cách 1: Bước : Mở bảng thuộc tính đối tượng cần tạo thủ tục biến cố Hình 8.6: Bảng thuộc tính n t cmd chao Bước 2: Chọn thẻ Event, chọn giá trị Event Procedure biến cố bấm vào nút có dấu ba chấm bên phải biến cố 192 Xuất cửa sổ viết Code cho thủ tục biến cố Hình 8.7: Chuẩn bị viết thủ tục biến cố cho n t cmd chao - Cách Bước : Bấm chuột phải vào nút cmd Hello chọn Build Event Hình 8.8: Chọn lệnh Build Event menu đối tượng Bước 2: Xuất hộp thoại Choose Builder, chọn Code Builder Hình 8.9: Hộp thoại Choose Builder - Cách Trong cửa sổ soạn thảo mã lệnh, ta chọn Đối tượng cần tạo biến cố Combo Box bên trái 193 Hình 8.10: Chọn đối tượng cần viết thủ tục biến cố Và chọn tên Biến cố Combo Box bên phải Hình 8.11: Chọn biến cố 8.2.5 THỦ TỤC CHUNG PROCEDURE a) Ý NGH A - Ta tạo thủ tục chung nhằm mục đích tạo chức riêng nhằm tự động tính tốn số công việc thường xuyên cần thực - Muốn thủ tục sử dụng chung cho toàn chương trình ứng dụng - Tránh đoạn lệnh trùng lắp giúp người lập trình dễ bảo trì chương trình ứng dụng b) PH N LOẠI Bao gồm Thủ tục Hàm (Function) Thủ tục Con (Sub)  Thủ tục hàm cho phép trả giá trị Do đó, thủ tục hàm sử dụng biểu thức Có thể nhận tham số vào  Thủ tục cho phép thực hành động không trả giá trị thủ tục khơng dùng biểu thức Có thể nhận tham số vào c) CÖ PH P KHAI B O V GỌI THỦ TỤC CON Cú pháp khai báo [Public | Private] [Static] Sub Tên thủ tục ([Tham số]) Kh i lệnh End Sub Trong 194 - Kh i lệnh dãy câu lệnh VBA mà ta muốn thi hành thủ tục gọi - Tham s danh sách tham số gởi vào để có giá trị cần cho thủ tục để tính tốn bên Cú pháp gọi thủ tục Tên thủ tục tham số tham số … Hoặc Call Tên thủ tục (tham số tham số …) Thí dụ Viết thủ tục truyền vào tham trị x y Tính in USCLN số Hình 8.12: Thủ tục để tìm USCLN số x y Gọi thủ tục ta gọi thủ tục cách sau: Cách 1: Call () Ví dụ: Call USCLN(6,9) Cách 2: Ví dụ: USCLN 6,9 Lưu ta không đặt cặp dấu ngoặc đơn vào danh sách tham số gọi (trừ cú pháp gọi thủ tục lệnh Call) d) CÖ PH P KHAI B O V GỌI THỦ TỤC H M Cú pháp khai báo [Public | Private] [Static] Function ([]) As Kh i lệnh = End Sub Trong 195 - Kh i lệnh dãy câu lệnh VBA mà ta muốn thi hành thủ tục gọi - Tham s danh sách tham số gởi vào để có giá trị cần cho thủ tục để tính tốn bên - Giá trị trả giá trị mà hàm trả sau tính tốn bên thủ tục hàm Cú pháp gọi thủ tục hàm = (,< tham số 2> …) Thí dụ Viết thủ tục hàm truyền vào tham trị x y Tính trả USCLN số Hình 8.13: Hàm tìm USCLN số x y Sau ta gán biến US nhận lấy kết hàm Uscln sau: US=Uscln(9,6) Hoặc in kết hàm hộp thoại Msgbox Msgbox Uscln(9,6) Lưu - Danh sách tham số truyền cho thủ tục hàm phải nằm cặp dấu ngoặc đơn - Thông thường câu lệnh cuối thủ tục hàm phải câu lệnh gán B then Max=A Else Max=B d) CẤU TRÚC IF ĐỦ DẠNG M T LỆNH - Cú pháp: If Then Else End If Trong , lệnh nhiều lệnh - Ý nghĩa Nếu thực , ngược lại, Sai thực - Thí dụ:Đoạn chương trình có chức tìm giá trị lớn giá trị nhỏ số A B If A>B then Max=A Min=B Else 209 Max=B Min=A End If e) CẤU TRÚC IF DẠNG PHỨC TẠP NHIỀU TRƯỜNG HỢP - Cú pháp: If Then ElseIf Then … ElseIf Then [Else ] End If - Ý nghĩa Nếu iều kiện 1> thực , iều kiện 2> thực ,…, iều kiện n> thực , khơng có điều kiện thực có - Thí dụ: đoạn chương trình biện luận để tìm nghiệm phương trình bậc dạng tổng quát ax2 +bx+c=0, (a0) Delta=b^2-4*a*c If Delta Nếu kết kiểm tra Sai dừng vòng lặp Bước Nhảy giá trị Biến đếm lên thêm Bước nhảy Quay lại Bước - Thí dụ: 1/ Viết thủ tục để tính tổng N số tự nhiên dùng vịng lặp For…Next Hình 8.31: Tính t ng N số tự nhiên dùng For…Next For tăng Dùng For…Next với Step -1 216 Hình 8.32: Tính t ng N số tự nhiên dùng For…Next For giảm) Lưu : Trong cấu trúc For muốn thoát khỏi vịng lặp mà khơng cần kiểm tra điều kiện l p ta có thê dùng lệnh Exit For 8.4 C C H M NHẬP XUẤT DỮ LIỆU 8.4.1 H M NHẬP DỮ LIỆU INPUTBOX  Cú pháp: InputBox([, ][, ])  Chức n ng: Hàm hiển thị hộp thoại nhập liệu Giá trị nhập vào hàm qua hộp thoại dùng để gán cho biến  Thí dụ: Lệnh sau đây: a = InputBox “Nhập vào giá trị cho a: “ “Nhap lieu”,9) hiển thị hộp thoại sau: Hình 8.33: Hộp thoại yêu cầu nhập số a giá trị nhập qua hộp thoại gán cho biến a 8.4.2 H M XUẤT DỮ LIỆU MSGBOX  Cú pháp: MsgBox ([, ][, ]) Nếu khơng khai báo “Tiêu đề” lấy tiêu đề hộp thoại Microsoft Access Loại hộp thoại = +< Biểu tượng hộp thoại> + Số nút vbOKOnly vbOKCancel vb AbortRetryIgnore Biểu tượng Khơng có 16 vbCritical 32 vbQuestion 217 Nút mặc định vbDefaultButton1 256 vbDefaultButton2 512 vbDefaultButton3 vbYesNoCancel vbYesNo vbRetryCancel 48 64 vbExclamation vbInformation Với bảng sử dụng ta sử dụng giá trị số tên bên cạnh mà VB định nghĩa sẵn  Chức n ng: Xuất hộp thoại thông báo nhận kết trả tùy theo người sử dụng bấm vào nút hộp thông báo Bảng giá trị nút trả người dùng click chọn Giá trị Tên hàng Nút click chọn vbOk Ok vbCancel Cancel vbAbort Abort vbRetry Retry vbIgnore Ignore vbYes Yes vbNo No  Thí dụ MsgBox( "Ban muon tiep tuc khong?", + 32 + 256, "Thong bao") Hình 8.34: Hộp thoại yêu cầu người dùng xác nhận c muốn tiếp tục kh ng Hoặc MsgBox ("Ban muon tiep tuc khong?", vbYesNoCancel + vbQuestion + vbDefaultButton2, "Thong bao") Chú ý:  Ta sử dụng Msgbox dạng thủ tục cách không sử dụng cặp dấu móc trịn để bao tham số Msgbox  Msgbox sử dụng dạng thủ tục muốn xuất hộp thoại chứa nội dung thơng báo xem xong người sử dụng click chuột vào nút Ok để kết thúc khơng có ý định lấy giá trị nút mà người dùng click chọn ta sử dụng Ví dụ: Để làm xuất hộp thoại thông báo “Bạn thực thành công” ta sử dụng Msgbox với cú pháp sau: 218 Msgbox “Ban đa thuc hien cong”, vbInformation,“Chuc mung” Hình 8.35: Hộp thoại chúc mừng thực thành công 219 ... ; -1 : true -3 27 68  32767 -2 147 483 6 48  2147 483 647 - 922337203 685 774. 580 8  922337203 685 774. 580 8 -3 .40 282 3E 38  -1 .401298E-45 (âm) 1.401298E-45  3.40 282 3E 38 (dương) -1 .79769313 486 232E3 08  -4 .9406564 584 1247E-324... -4 .9406564 584 1247E-324 (âm) 4.9406564 584 1247E-324  1.79769313 486 232E3 08 (dương) 1/1/100  32/12/9999 Không tỷ ký tự Số Byte 2 8 16 c) KIỂU DỮ LIỆU S - Dùng để khai báo cho biến kiểu số - Nếu biến... Quay lại Bước - Thí dụ: 1/ Viết thủ tục để tính tổng N số tự nhiên dùng vịng lặp For? ??Next Hình 8. 31: Tính t ng N số tự nhiên dùng For? ??Next For tăng Dùng For? ??Next với Step -1 216 Hình 8. 32: Tính