Câu lệnh if trong VBA
Làm phần mềm với VBA Access thì câu lệnh if trong VBA luôn phải vận dụng.
1. Câu lệnh if trong VBA
Trong VBA (Visual Basic for Applications) trong Access, mệnh đề If được sử dụng để kiểm tra một điều kiện và thực hiện một hành động cụ thể nếu điều kiện đó đúng. Cấu trúc cơ bản của mệnh đề If trong VBA Access như sau:
2. Cấu trúc cơ bản của lệnh if trong VBA
If điều_kiện Then
' Mã thực thi nếu điều_kiện đúng
End If
điều_kiện: Là biểu thức logic, có thể trả về giá trị True hoặc False.
Nếu điều kiện đúng (True), đoạn mã bên trong If sẽ được thực thi.
Kiểm tra một điều kiện đơn giản
Dim diem As Integer
diem = 75
If diem >= 50 Then
MsgBox "Bạn đã vượt qua kỳ thi!"
End IfTrong ví dụ này, nếu điểm lớn hơn hoặc bằng 50, một hộp thoại sẽ hiển thị thông báo "Bạn đã vượt qua kỳ thi!".
Cấu trúc với Else:
Bạn có thể thêm phần Else để chỉ định hành động thực thi khi điều kiện không đúng.
If điều_kiện Then
' Mã thực thi nếu điều_kiện đúng
Else
' Mã thực thi nếu điều_kiện sai
End If
If có sử dụng Else
Dim tuổi As Integer
tuoi= 20
If tuoi>= 18 Then
MsgBox "Bạn đủ tuổi để lái xe."
Else
MsgBox "Bạn chưa đủ tuổi để lái xe."
End IfỞ đây, nếu tuổi lớn hơn hoặc bằng 18, thông báo "Bạn đủ tuổi để lái xe." sẽ xuất hiện. Ngược lại, nếu không, thông báo "Bạn chưa đủ tuổi để lái xe." sẽ xuất hiện.
Cấu trúc với ElseIf
Nếu bạn cần kiểm tra nhiều điều kiện, bạn có thể dùng ElseIf để kiểm tra thêm các điều kiện khác.
If điều_kiện_1 Then
' Mã thực thi nếu điều_kiện_1 đúng
ElseIf điều_kiện_2 Then
' Mã thực thi nếu điều_kiện_2 đúng
Else
' Mã thực thi nếu không có điều_kiện nào đúng
End If
Ví dụ 3: Dùng ElseIf:
Dim diem As Integer
diem = 85
If diem>= 90 Then
MsgBox "Điểm của bạn xuất sắc!"
ElseIf diem>= 70 Then
MsgBox "Điểm của bạn khá tốt!"
Else
MsgBox "Bạn cần cải thiện điểm số."
End If Ở đây, nếu điểm từ 90 trở lên, thông báo "Điểm của bạn xuất sắc!" sẽ xuất hiện. Nếu điểm từ 70 trở lên nhưng nhỏ hơn 90, thông báo "Điểm của bạn khá tốt!" sẽ xuất hiện. Nếu không, thông báo "Bạn cần cải thiện điểm số." sẽ được hiển thị.
Cấu trúc If kết hợp với toán tử logic
Bạn có thể sử dụng toán tử logic như And và Or để kết hợp nhiều điều kiện.
And: Điều kiện phải đúng cả hai phía.
Or: Điều kiện chỉ cần một trong hai phía đúng.
If điều_kiện_1 And điều_kiện_2 Then
' Mã thực thi nếu cả hai điều_kiện_1 và điều_kiện_2 đều đúng
End If
Ví dụ If kết hợp toán tử And
Dim tuoi As Integer
Dim diem As Integer
tuoi= 20
diem= 80
If tuoi>= 18 And diem>= 50 Then
MsgBox "Bạn đủ điều kiện tham gia kỳ thi!"
Else
MsgBox "Bạn không đủ điều kiện tham gia kỳ thi."
End IfVí dụ If kết hợp hàm khác
Dim tuoi As Integer
Dim diem As Integer
congno= 200000
If congno>= 50000 And Month(Now) =12 Then
MsgBox "Gần tới tết, lo trả nợ nha"
Else
MsgBox "Thong thả bạn nhé "
End If
Tóm lại:
Mệnh đề If trong VBA Access rất linh hoạt và có thể dùng kết hợp với Else, ElseIf, các toán tử logic để kiểm tra và xử lý các điều kiện khác nhau.
3. Video về câu lệnh if
- Tại sao nên học VBA Access
- In chữ Hello World với VBA Access
- Biến trong VBA Access
- Cửa sổ Immediate trong VBA làm gì
- Phân biệt sự khác nhau giữa biến và hằng
- Vòng lặp trong VBA Access
- Hàm và thủ tục trong VBA Access
- Biểu thức trong VBA Access
- DAO Access trong VBA Access
- Jet Database Engine trong VBA là gì?
- Hàm xác định có / không có bảng ghi VBA Access
- Cách viết hàm trả về Recordset DAO
- Upload Files to Access Database as Attachment
- Save file from Attachment Access
- Open FileDialog VBA Access
- Disable cho nút lệnh
- Phân biệt Module và Class trong VBA
- Phần quyền với Access
- Một số lỗi cấu hình access
- Kết nối access với SQL Server
- Sử dụng Me.Recordset khi tạo form wizard
- Lặp tất cả các cột của table access
- Vba Access kết nối với Store Procedure
- Tạo mã GUIDs trong VBA Access
- Mở form và gọi sự kiện 1 nút lệnh vba access
- Sử dụng IsNull trong VBA Access
- Biến mảng(array) trong VBA
- Đọc file text (.txt) trong VBA Access
- Nạp file excel vào table access với vba
- ByVal truyền tham chiếu và giá trị trong VBA
- Cách trang trí code VBA đúng cách
- Câu lệnh if trong VBA
- Một số câu lệnh Select trong VBA Access
- So sánh UBound và LBound trong VBA
- Hàm có sẵn trong VBA
- So sánh DAO và ADO trong VBA Access
- ADODB trong VBA Access
- Nâng cao hiệu suất khi sử dụng DAO Access
- Try Catch VBA Access
- Lập trình hướng đối tượng trong VBA
- Một số ví dụ tạo giá trị ngẫu nhiên trong VBA
- So sánh 2 kiểu Double và Single trong VBA
- Sử dụng Record Source kết hợp với VBA trên Form
- Format string trong VBA Access
- Bài tập nâng cao tư duy lập trình dữ liệu với VBA Access
- Cách tư duy căn bản để lập trình dữ liệu VBA Access
- Câu lệnh Update và Delete trong SQL Access
- Lệnh SQL kết hợp RunSQL trong VBA Access
- Tối Ưu Giao Diện Người Dùng (UI/UX)
- Khi nào dùng Exit Sub, End Sub trong vba access
- Con trỏ trong VBA Access
- Một bài tập VBA dành cho các cao thủ
- Truyền giá trị giữa các form trong MS Access
Làm phần mềm với VBA Access thì câu lệnh if trong VBA luôn phải vận dụng.
