Tùy chọn
Kinh nghiệm học lập trình VBA trong Access
- Kinh nghiệm học lập trình VBA trong Access
-
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 20-04-20, 10:36 PM
Thế này nhé. Dịch luôn ra tiếng Việt.
Nếu tôi có tiền tôi mua, Khi có người hỏi tôi bạn có chắc chắn mua không? Và nếu tôi trả lời yes tôi mua.Cái vế sau có nghĩa là trong các trường hơp khác (kể cả tôi trả lời no). Tôi vẫn mua. Tóm lại trong tất cả các trường hợp tôi đều mua. => Nếu tôi có tiền, tôi mua và không cần phải làm rối lên bằng các điều kiện.
Nói chung cấu trúc if...then còn dễ đỡ khi gặp lỗi. Trong trường hợp cấu trúc vòng lập khi viết code sai gặp trường hợp vòng lặp vô tận sẽ chạy mãi gây ra lỗi tràn bộ nhớ => đứng máy -
RE: Kinh nghiệm học lập trình VBA trong Access
thuyyeu99 > 20-04-20, 10:54 PM
Gặp mình mà hỏi có muốn mua nhiều quá thì khỏi mua luôn. -
RE: Kinh nghiệm học lập trình VBA trong Access
Xuân Thanh > 20-04-20, 11:24 PM
Cấu trúc If ...Then...End If chỉ có một giá trị trả về theo điều kiện. Ví dụ If tôi là chồng Then cô là vợ
Cấu trúc If...Then...Else...End If sẽ có hai giá trị trả về theo điều kiện. Ví dụ
If cưới rồi Then
Cô là vợ
Else
Cô là bồ
End If
Cấu trúc này giống với hàm IF trong Excel và IIF trong Access
Else chinh là phủ định của If. Đã là phủ định thì kết quả trả về phải khác với kết quả của If -
RE: Kinh nghiệm học lập trình VBA trong Access
Xuân Thanh > 21-04-20, 09:37 AM
Và đây là cấu trúc của If có nhiều điều kiện trả về
Mã:Dim Tien As Double
If Tien > 3ty Then
Tôi sẽ mua được ô tô loại tốt
ElseIf Tien > 2ty Then
Tôi chỉ mua được ô tô loại trung bình
ElseIff Tien > 100tr Then
Tôi sẽ mua được chiếc xe máy loại tốt
ElseIf Tiên > 50tr Then
Tôi chỉ mua được chiếc xe máy loại trung
Else
Tôi chỉ mua được chiếc xe điện và đảm bảo cuộc sống
End If
Có bao nhiêu điều kiện thì lồng hết vào trong đó -
RE: Kinh nghiệm học lập trình VBA trong Access
thuyyeu99 > 21-04-20, 10:41 AM
Em thấy có select dùng luôn select hihi
Mã PHP:Select tien
Case 3000000
Case 2000000
End select -
RE: Kinh nghiệm học lập trình VBA trong Access
thuyyeu99 > 21-04-20, 11:04 AM
tự em thấy anh hướng dẫn cái select dưới cuối học luôn
-
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 21-04-20, 11:18 AM
Hì hì đến đây xem như ta đã phanh phui được nhiều ngóc ngách của cấu trúc If...Then. Tất nhiên, cũng còn rất nhiều điều về cấu trúc này, nhưng những vấn đề chung gần như đã được mọi người móc moi ra hết rồi. Có một cấu trúc điều kiện nữa cũng để xử lý cũng gần giống như cách của bác Xuân Thanh bằng cấu trúc If...Then là Cấu trúc chọn lựa Select Case ...
Cú pháp:
Select Case <Biểu thức điều kiện chọn lựa>
Case <Giá trị 1 của biểu thức chọn lựa>
<Lệnh 1>
Case <Giá trị 2 của biểu thức chọn lựa>
<Lệnh 2>
Case <Giá trị 3 của biểu thức chọn lựa>
<Lệnh 3>
Case Else '(Các giá trị còn lại khác với các giá trị đã nêu trên)
<Lệnh n>
End Select
Ví dụ trường hợp code của bác Xuân Thanh:
If Tien > 3ty Then
Tôi sẽ mua được ô tô loại tốt
ElseIf Tien > 2ty Then
Tôi chỉ mua được ô tô loại trung bình
ElseIff Tien > 100tr Then
Tôi sẽ mua được chiếc xe máy loại tốt
ElseIf Tiên > 50tr Then
Tôi chỉ mua được chiếc xe máy loại trung
Else
Tôi chỉ mua được chiếc xe điện và đảm bảo cuộc sống
End If
Có thể viết là:
Select Case Tien
Case > 3 Tỷ
Tôi sẽ mua được ô tô loại tốt
Case >2 Tỷ
Tôi chỉ mua được ô tô loại trung bình
Case >100 triệu
Tôi sẽ mua được chiếc xe máy loại tốt
Case >50 triệu
Tôi chỉ mua được chiếc xe máy loại trung
Case Else '(Các giá trị còn lại khác với các giá trị đã nêu trên)
Tôi chỉ mua được chiếc xe điện và đảm bảo cuộc sống
End Select
Hai cách xử lý này cho ra kết quả như nhau.
Biểu thức điều kiện lựa chọn có thể là một biểu thức chuỗi hoặc biểu thức số.
Trong danh sách các lưa chọn nếu có giá trị toán tử so sánh(=,>,<...) sẽ được thêm vào trước toán tử từ khoá Is
Ví du:
Select Case Tien
Case 3 Tỷ
Sẽ không có chuyện gì xảy ra. Nhưng:
Case = 3 Tỷ => Case Is = 3 Tỷ
Các bạn yên tâm Khi các bạn gõ vào Case = 3 Tỷ, access sẽ tự động chuyển thành Case Is = 3 Tỷ. Và bảo đãm không có lỗi gì xảy ra. Nhưng ngược lại nếu gõ vào Case Is 3 Tỷ, Access sẽ báo lỗi rằng các bạn đã thiếu toán tử (=, >=, <, <>) để các bạn điền vào toán tử thích hợp. Nếu có toán tử thì phải có từ khoá Is
Khi sử dụng nhiều chọn lưa có cùng chung một lệnh thì sủ dụng toán tử Or hoặc And
Ví dụ:
Select case <Vợ tôi>
Case <Không bị cảm> And <Vui>
Tôi sẽ được đi nhậu
Select Case <Tôi>
Case <có tiền> Or <Lãnh lương>
Tôi sẽ đi nhậu
Để giải quyết trường hợp lựa chọn trong một hoặc nhiều khoảng giá trị ta sử dụng từ khoá To và các khoảng giá trị được ngăn cách nhau dấu phẩy [,]
Select case Number
Case 1 to 10, 20 to 30, 50 to 100
Cũng giống như vậy. Trong trường hợp:
Select Case <Tôi>
Case <có tiền> Or <Lãnh lương> Or <vợ cho tiền>
Tôi sẽ đi nhậu
Có thể thay:
Select Case <Tôi>
Case <có tiền>,<Lãnh lương> ,<vợ cho tiền>
Tôi sẽ đi nhậu
Sau khi đã liệt kê hết các trường hợp tất cả các trường hợp còn lại sẽ được giải quyết bằng:
Case Else -
RE: Kinh nghiệm học lập trình VBA trong Access
mrsiro > 21-04-20, 11:42 AM
Nếu số lượng 1 lớn hơn số lượng 2 thì ấn đồng ý mới lưu.
Nếu số lượng 1 bẳng số lượng 2, hoặc số lượng 1 nhỏ hơn số lượng 2 thì lưu luôn khỏi hỏi:
Mã:If txtSoluong1.value > txtSoluong2.value then
If msgbox("bạn có chắc muốn lưu",vbYesNo) = vbYes then
Lưu
End if
Else
Lưu
End if
Trường hợp này thì có thể thu gọn được không ? -
RE: Kinh nghiệm học lập trình VBA trong Access
thuyyeu99 > 21-04-20, 12:00 PM
Mã PHP:Sl=sl1-sl2
If sl>0 then
Lam gi đó ....
End if