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

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 p4', 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ải Cắu trúc SELECT CASE. END SELECT Đây là một loại của cấu trúc lựa chọn. Thông thường hoàn toàn có thể sử dụng If . End If để thực hiện các xử lý liên quan đến kiểu cấu trúc này nhưng trong những trường hợp đặc biệt cấu trúc Select Case . End Select thể hiện được sự tiện dụng vượt trội. Trong VBA cú pháp lệnh này như sau Select Case biểu thức Case giá trị 1 thủ tục 1 Case giá trị 2 thủ tục 2 Case giá trị n thủ tục n Case Else thủ tục n 1 End Select Trong đó Biểu thức luôn trả về giá trị kiểu vô hướng đếm được như số nguyên xâu ký tự kiểu lô gíc . Với cấu trúc này VBA hoạt động như sau 1 Tính giá trị của biểu thức 2 Kiểm tra biểu thức giá trị 1 - Nếu đúng thực hiện thủ tục 1 và kết thúc lệnh thực hiện lệnh tiếp theo sau từ khoá End Select. - Nếu sai thực hiện tiếp việc so sánh biểu thức giá trị i tiếp theo và xử lý tương tự qui trình nêu trên. 3 Trong trường hợp biểu thức giá trị i i khi đó có 2 khả năng - Nếu có tuỳ chọn Case Else thì VBA sẽ thực hiện thủ tục n 1 Trang 134 Giáo trình Microsoft Access 2000 Copyright Nguyễn Sơn Hải - Nếu không có tuỳ chọn Case Else VBA sẽ không thực hiện bất kỳ thủ tục nào đã liệt kê trong vùng Select . End Select cả mà chuyển tới thực hiện lệnh tiếp theo sau từ khoá End Select. Xét ví dụ sau Kiểm tra một số nguyên so và trả về tên tiếng Anh tháng tương ứng với số nguyên đó biến thang ví dụ 1 - Janualy 2 - Februaly 12 - December 12 - Không xác định Nếu dùng lệnh If hoàn toàn có thể đáp ứng được bài toán này thay vào đó sẽ là một tập hợp 12 lệnh If . Else . End If như sau If so 1 Then thang Janualy Else If so 2 Then thang Feb Else If so 3 Then thang Feb Else If so 4 Then thang Feb Else If so 5 Then thang Feb Else If so 6 Then thang Feb Else If so 7 Then thang Feb Else If so 8 Then thang Feb Else If so 9 Then thang Feb Else If so 10 Then thang Feb Else If so 11 Then Trang 135 Giáo trình Microsoft Access 2000 Copyright Nguyễn Sơn Hải thang Feb Else If so 12 Then thang Feb