Lập trình trong Access
1Lập trình trong Access 2Các bước tạo chương trình1. Mở CSDL2. Trong cửa sổ Database, chọn mục Modules, chọn New3. Trong cửa sổ Code, khai báo và tạo lập các chương trình con4. Ghi lại các Modules5. Để chạy chương trình, nhấn vào nút chạy trên thanh công cụ hoặc nhấn phím F5 3Một số khái niệmNgôn ngữ VBA (Visual Basic Application) là ngôn ngữ lập trình dựa trên nền ngôn ngữ Visual Basic, gắn kết theo các sự kiệnCác đối tượng (thư viện chương trình) dùng để xây dựng các hàm, thủ tục được gọi là các Modules (đơn thể). Các Modules có thể được thực hiện trực tiếp hoặc gián tiếp thông qua các điều khiển trên FormTrong modules có hai loại chương trình con là hàm và thủ tục 4Thủ tục là một đoạn chương trình đáp ứng một sự kiện nào đó hoặc thực hiện một công việc.Cách khai báo : [Private] Sub <tên thủ tục>(danh sách đối số)<Các lệnh bên trong> End SubĐể khai báo một thủ tục hoặc hàm đáp ứng sự kiện, ta dùng từ khóa PrivateMột thủ tục có thể được sử dụng trong một hàm hay một thủ tục khác bằng lời gọi<Tên thủ tục>(<Danh sách các tham số>) 5Thủ tục xử lý sự kiện bao gồm:Thủ tục của Form[Private] Sub Form_tên sự kiện()<Các lệnh> End SubThủ tục của Report[Private] Sub Report_tên sự kiện()<Các lệnh> End SubThủ tục của nút điều khiển[Private] Sub Tên nút điều khiển()<Các lệnh> End Sub 6Ví dụ: Lập trình giải PT bậc nhấtOption Compare DatabaseOption ExplicitPrivate Sub PTb1() Dim a As Double, b As Double a = InputBox("Vao gia tri a") b = InputBox("Vao gia tri b") If a <> 0 Then MsgBox "Nghiem la" & Str(-b / a) Else MsgBox "PTVN" End IfEnd Sub 7Hàm được sử dụng để giải quyết một công đoạn tính toán nào đó hay đáp ứng một sự kiện nào đó.Cách khai báoFunction <tên hàm>(danh sách đối số) [As <kiểu>]<Các lệnh bên trong>End FunctionChú ý : Không có thủ tục nằm trong một thủ tụcCó thể tạo hàm để gọi thủ tục 8Ví dụ: Lập hàm tính tổng 3 sốFunction tong() Dim a As Double, b As Double, c As Double a = InputBox("Vao gia tri a") b = InputBox("Vao gia tri b") c = InputBox("Vao gia tri c") MsgBox "Tong ba so la " & Str(a + b + c)End Function 9Gắn với các điều khiển trên FormCách 1•Mở Form, bổ sung thêm một nút lệnh vào Form•Chọn nút Build, chọn Code Builder•Soạn thủ tục hoặc hàm đáp ứng sự kiện•Ghi và thực hiện FormCách 2•Chọn nút lệnh, mở hộp thoại Properties.•Chọn On Click, kích vào nút …, chọn Code Builder.•Soạn thủ tục hoặc hàm•Ghi lại và chạy. 10Để tạo hàm gọi một thủ tục và gắn hàm vào nút lệnh trên Form:Function <Tên hàm>([<Danh sách các đối số>])Tên thủ tục([<Danh sách các đối>])End FunctionTrong thuộc tính On Click, gõ vào dòng=Tên hàm([<Danh sách các đối số>]) [...]... hàm hay một thủ tục khác bằng lời gọi <Tên thủ tục>(<Danh sách các tham số>) 2 Các bước tạo chương trình 1. Mở CSDL 2. Trong cửa sổ Database, chọn mục Modules, chọn New 3. Trong cửa sổ Code, khai báo và tạo lập các chương trình con 4. Ghi lại các Modules 5. Để chạy chương trình, nhấn vào nút chạy trên thanh cơng cụ hoặc nhấn phím F5 7 Hàm được sử dụng để giải quyết một công đoạn... và gắn hàm vào nút lệnh trên Form: Function <Tên hàm>([<Danh sách các đối số>]) Tên thủ tục([<Danh sách các đối>]) End Function Trong thuộc tính On Click, gõ vào dòng =Tên hàm([<Danh sách các đối số>]) 19 1 Lập trình trong Access 9 Gắn với các điều khiển trên Form Cách 1 • Mở Form, bổ sung thêm một nút lệnh vào Form • Chọn nút Build, chọn Code Builder • Soạn thủ tục... so so = InputBox(“Nhap mot so”) 4 Thủ tục là một đoạn chương trình đáp ứng một sự kiện nào đó hoặc thực hiện một cơng việc. Cách khai báo : [Private] Sub <tên thủ tục>(danh sách đối số) <Các lệnh bên trong& gt; End Sub Để khai báo một thủ tục hoặc hàm đáp ứng sự kiện, ta dùng từ khóa Private Một thủ tục có thể được sử dụng trong một hàm hay một thủ tục khác bằng lời gọi <Tên thủ tục>(<Danh... dụng để giải quyết một công đoạn tính tốn nào đó hay đáp ứng một sự kiện nào đó. Cách khai báo Function <tên hàm>(danh sách đối số) [As <kiểu>] <Các lệnh bên trong& gt; End Function Chú ý : Khơng có thủ tục nằm trong một thủ tục Có thể tạo hàm để gọi thủ tục ... giá trị i nào đó thì câu lệnh chọn sẽ thực hiện nhóm lệnh i. Nếu khơng bằng giá trị nào thì sẽ thực hiện nhóm lệnh n+1 Chú ý : Nếu câu lệnh chọn khơng có Case Else thì là ở dạng khuyết thiếu. Khi đó trong trường hợp biểu thức ngun khơng bằng giá trị nào cả thì sẽ ra khỏi lựa chọn Select Case. Ví dụ: câu 4 bài tập thực hành 15 Lệnh MsgBox : Để hiện chuỗi thông báo ra một hộp thoại. Cú pháp : MsgBox . 1Lập trình trong Access 2Các bước tạo chương trình1 . Mở CSDL2. Trong cửa sổ Database, chọn mục Modules, chọn New3. Trong cửa sổ Code,. chọn New3. Trong cửa sổ Code, khai báo và tạo lập các chương trình con4. Ghi lại các Modules5. Để chạy chương trình, nhấn vào nút chạy trên thanh công cụ