Bài giảng Access: Chương 6 do Nguyễn Sơn Hải biên soạn nhằm mục đích phục vụ cho việc giảng dạy. Nội dung bài giảng gồm: Dạng lệnh hướng đối tượng, các thành phần cơ bản của ngôn ngữ, khai báo biến, các cấu trúc lệnh VBA, chương trình con,. | Giới thiệu chung Ngôn ngữ lập trình đi kèm với ACCESS là VBA – Viasual Basic For Applycation giúp người dùng tạo ra các chương trình ứng dụng mềm dẽo hơn theo ý muốn của mình. Cửa sổ viết lệnh: là nơi soạn thảo lệnh VBA, kích phải chuột trên form (Report) chọn Builder Code: chọn đối tượng, chọn sự kiện tương ứng. C2: Chọn mục Module, New Dạng lệnh hướng đối tượng . = Ví dụ: “Access” “vni-times” 1. Các thành phần cơ bản của ngôn ngữ 1. Kiểu dữ liệu của biến nhớ Boolean logic, 2 bytes, Yes/No Byte số nguyên dương 1 byte (0 ->255) Integer số nguyên 2 bytes (-32768 ->32767) Long số nguyên 4 bytes Single số thực 4 bytes Double số thực 8 bytes Currency tiền tệ, 8 bytes String kiểu xâu ký tự, 255 ký tự, Text Variant kiểu dữ liệu không tường minh 2. Khai báo biến: Dim i, j As Integer Khai báo biến i, j kiểu Integer Dim i As Integer, st As String*15 Dim i As Variant hoặc Dim | Giới thiệu chung Ngôn ngữ lập trình đi kèm với ACCESS là VBA – Viasual Basic For Applycation giúp người dùng tạo ra các chương trình ứng dụng mềm dẽo hơn theo ý muốn của mình. Cửa sổ viết lệnh: là nơi soạn thảo lệnh VBA, kích phải chuột trên form (Report) chọn Builder Code: chọn đối tượng, chọn sự kiện tương ứng. C2: Chọn mục Module, New Dạng lệnh hướng đối tượng . = Ví dụ: “Access” “vni-times” 1. Các thành phần cơ bản của ngôn ngữ 1. Kiểu dữ liệu của biến nhớ Boolean logic, 2 bytes, Yes/No Byte số nguyên dương 1 byte (0 ->255) Integer số nguyên 2 bytes (-32768 ->32767) Long số nguyên 4 bytes Single số thực 4 bytes Double số thực 8 bytes Currency tiền tệ, 8 bytes String kiểu xâu ký tự, 255 ký tự, Text Variant kiểu dữ liệu không tường minh 2. Khai báo biến: Dim i, j As Integer Khai báo biến i, j kiểu Integer Dim i As Integer, st As String*15 Dim i As Variant hoặc Dim i Dim Hoten(45) As String * 30 Khai báo mảng kiểu String*30 gồm 46 phần tử Dim A(3, 4) As Integer Khai báo biến mảng 2 chiều A(i , j) trong đó: i = 03 và j = 04 Dim A(1 To 5, 4 To 9, 3 To 5) As Double Dim MyArray() 3. Các cấu trúc lệnh VBA If Then [ Else ] End If Select Case Case Case Case [Case Else ] End Select B thöùc=gt1 Thuû tuïc 1 endcase T B thöùc=gt2 B thöùc=gtn Thuû tuïc 2 Thuû tuïc n Thuû tuïc n+1 T T F F F Text2: ControlSource: DTB Value :0 Vieá leänh KT ñieàu kieän Label4: Caption, FontName, FonSize Command 1 Form: Caption Ví dụ:Tạo Form xếp loại học tập dựa vào DTB của học sinh Text1 dtb = Select Case dtb Case Is >= 8 xl = "Gioi" Case Is >= 7 xl = "Khá" Case Is >= 5 xl = "Trung binh" Case Is Cấu trúc lặp For i = To [Step .
