Tham khảo tài liệu 'giáo trình microsoft access 2000(full)_8', 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 kq xd For i 1 To Len Ckt kti Mid Ckt i 1 vt1 InStr Cgoc1 kti If vt1 0 Then kq kq Mid Cma1 1 vt1 - 1 6 2 2 xd xd Mid Cma1 25 4 vt1 Mod 6 2 2 Else vt2 InStr Cgoc2 kti If vt2 0 Then kq kq Mid Cma2 vt2 2 - 1 2 Else kq kq kti End If End If Next i MahoaTCVN3 kq xd End Function Function Mahoa Ckt As String As String Dim vt1 As Integer Dim kq Ctam As String Ckt Ckt kq vt1 InStr Ckt Do While vt1 0 Ctam Trim Left Ckt vt1 - 1 Ckt Right Ckt Len Ckt - vt1 kq MahoaTCVN3 Ctam kq vt1 InStr Ckt Loop Mahoa kq End Function Chương trình con dạng thủ tục Cú pháp Public Private Sub tên CTC danh sách các tham số thủ tục End Sub Trong đó Trang 148 Giáo trình Microsoft Access 2000 Copyright Nguyễn Sơn Hải - Sub End Sub là các từ khoá bắt buộc khai báo cấu trúc một chương trình con dạng thủ tục - tên CTC là tên gọi thủ tục định khai báo. Tên không được chứa dấu cách space và các ký tự đặc biệt - danh sách các tham số - danh sách các tham số cần thiết cho thủ tục. Có hay không có danh sách này tuỳ thuộc vào thủ tục cần tạo - thủ tục - thân chương trình con. Nếu không có từ khoá Public trước Sub thủ tục đó chỉ có tác dụng cục bộ trong một module trong một report hoặc trong một form. Khi có từ khoá Public trước Sub thủ tục sẽ có tác dụng toàn cục. Tức là có thể sử dụng bất kỳ nơi nào trên tệp Access đó. Tất nhiên tất cả những gì khai báo là Public phải được khai báo trong phần Decralations của một Module nào đó. Các ví dụ Ví dụ 1 Thủ tục tính tổng hai số Sub tong2so a b As Double tong a b chú ý tong- là biến được khai báo toàn cục End Sub Ví dụ 2 Cũng là tính tổng nhưng thủ tục sau đây không có ý nghĩa gì Sub tong2so a b As Double Dim tong As Double tong a b chú ý tong- là biến được khai báo toàn cục End Sub Vì sao Vì biến tong được khai báo cục bộ trong CTC tong2so nên khi CTC này kết thúc biến tong cũng bị giải thoát khỏi bộ nhớ luôn. Không gây ảnh hưởng gì đến dữ liệu cũng như thể hiện của chương trình. Trang 149 Giáo trình .
