LỆNH GÁN (ASIGNMENT STATEMENTS)

Khái niệm : Dùng để gán giá trị cho một biến hay một hằng. Lệnh gán được sử dụng trong thân của thủ tục. 2) Các lệnh gán : a) Lệnh Lct : Ý Nghĩa : Gán giá trị một biểu thức cho một biến.
Nội dung trích xuất từ tài liệu:
LỆNH GÁN (ASIGNMENT STATEMENTS)I. LỆNH GÁN (ASIGNMENT STATEMENTS) 1) Khái niệm : Dùng để gán giá trị cho một biến hay một hằng. Lệnh gán được sử dụng trong thân của thủ tục. 2) Các lệnh gán : a) Lệnh Lct : Ý Nghĩa : Gán giá trị một biểu thức cho một biến. Cú pháp : [Let] tenBien| tenHam = BieuThuc tenBien.TenThanhPhan = BieuThuc tendoiTuong{ . | ! } {Thuoctinh | tenDoiTuong) = BieuThuc Vị trí : Lệnh được dùng trong thủ tục sau các lệnh khai báo. Giải thích :TenBien : Tênbiến khai báo trong lệnh Dimhay trong tham số của thủ tục.TenThanhPhan : tên thành phần trong lệnhType.Thuoctinh : Aùp dụng khi tenbien1 là đốitượng.TenDoiTuong : Tên đối tượng.TenHam : tên hàm khai báo trong lệnhFunction.BiueThuc : biểu thức mà giá trị nó gán chobiến.Ví dụ :Function lenhgan(hocsinhPar Ashocsinhtype) As Integer Dim hocsinhVar As hocsinhtype Dim myDB As Database Gan gia tri vao tenBien.TenThanhPhan hocsinhPar.hsMa = 1 hocsinhPar.hoten = Nguyen Minh Hung hocsinhPar.malop = CDTH4A tenBien la loai du lieu dinh nghia boi lenh Type hocsinhVar = hocsinhPar tenBien Forms!hocsinhFrm!hsMa = 5 Forms!hocsinhFrm!hsMa.Visible = True tenHam lenhgan = 5 End Functionb) Lệnh Set : Ý nghĩa : Gán đối tượng cho một biến thuộc loại đối tượng tương ứng.Cú pháp : Set tenBien = {[New] bieuThuc |Nothing}Vị trí : lệnh được dùng trong thủ tục sau khikhai báo.Giải thích :TenBien : Khai báo trong lệnh Dim hay trongtham số thủ tục.Bieuthuc : Biểu thức có giá trị là một đốitượng.Ví dụ : Sub tinhtong Dim myDB as database Dim mySet As recordset Set myDb = CurrentDB Set mySet =myDb.OpenRecordSet(“NhanVien”)End Sub