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
haonlh > 19-08-20, 10:56 PM
Cú pháp câu lệnh sau sai ở dòng có nhãn 10 (nói gọn là dòng 10)
Mã:[color=#333333][font=Tahoma, Verdana, Arial, sans-serif]If <điều kiện> Then[/font][/color][/size]
[size=x-small][color=#333333][font=Tahoma, Verdana, Arial, sans-serif] <Lệnh>[/font][/color][/size]
[size=x-small][color=#333333][font=Tahoma, Verdana, Arial, sans-serif]10 Else If <điều kiện> Then 'Tôi thêm nhãn 10 và 20 để tiện trình bày[/font][/color][/size]
[size=x-small][color=#333333][font=Tahoma, Verdana, Arial, sans-serif] <Lệnh>[/font][/color][/size]
[size=x-small][color=#333333][font=Tahoma, Verdana, Arial, sans-serif]20 End If[/font][/color][/size]
[size=x-small][color=#333333][font=Tahoma, Verdana, Arial, sans-serif]End If[/font][/color]
(trên toàn mã máy, cứ để nguyên để Mod chỉnh sửa). Hãy đọc từ đây
If <điều kiện> Then
<Lệnh>
10 Else If <điều kiện> Then 'Tôi thêm nhãn 10 và 20 để tiện trình bày
<Lệnh>
20 End If
End If
Vì rằng sau Then của lệnh If mà xuống dòng thì sau Else cũng phải xuống dòng. Tác giả đã không xuống dòng mà viết liền lệnh If tiếp (tôi nói viết liền là theo nghĩa có dấu cách rồi viết lệnh.
Tôi nghĩ, sau 1 cú pháp nên có câu lệnh "thực" để thử, trong đó <đk> nên thay bằng True, <lệnh> nên thay bằng
Debug.Print 1 'hoặc 2 gì đó thì sẽ dễ thử lại trực tiếp trên VBA. -
RE: Kinh nghiệm học lập trình VBA trong Access
ongke0711 > 20-08-20, 09:24 AM
(19-08-20, 10:56 PM)haonlh Đã viết: (trên toàn mã máy, cứ để nguyên để Mod chỉnh sửa). Hãy đọc từ đây
If <điều kiện> Then
<Lệnh>
10 Else If <điều kiện> Then 'Tôi thêm nhãn 10 và 20 để tiện trình bày
<Lệnh>
20 End If
End If
Vì rằng sau Then của lệnh If mà xuống dòng thì sau Else cũng phải xuống dòng. Tác giả đã không xuống dòng mà viết liền lệnh If tiếp (tôi nói viết liền là theo nghĩa có dấu cách rồi viết lệnh.
Tôi nghĩ, sau 1 cú pháp nên có câu lệnh "thực" để thử, trong đó <đk> nên thay bằng True, <lệnh> nên thay bằng
Debug.Print 1 'hoặc 2 gì đó thì sẽ dễ thử lại trực tiếp trên VBA.
Đây là những cú pháp cơ bản của ngôn ngữ lập trình. Ngôn ngữ lập trình đã qui ước cú pháp như vậy thì bạn sửa gì ở đây nhỉ??
Sửa là sửa cách áp dụng cú pháp này vô giải quyết một bài toàn cụ thể nào đó, sửa thuật toán, sửa cách thức đưa diều kiện, lồng ghép như thế nào để ra kết quả tối ưu (nhanh, không tốn tài nguyên...)
Bạn nên đưa một bài toán cụ thể rồi xem có bao nhiêu cách dùng If Then Else để giải quyết bài toán này.
Ví dụ đơn giản: tạo 1 nút bấm dạng toggle button có 2 hay 3 chức năng trên cùng 1 nút.
- 2 chức năng: khi bấm lần 1 sẽ hiện Caption là "Thêm", lần 2 "Sửa" và cứ xoay vòng như vậy.
- 3 chức năng: Thêm, Sửa, Lưu
Dùng các kiểu vòng lặp để thực hiện.
PS: khi viết trong code trong khung PHP, bạn đừng định dạng font chữ gì cả mà để mặc định thì nó không hiện mấy cái Tag Html hoặc bạn có thể xoá mấy cái Tag đó để nó hiển thị đúng định dạng. -
RE: Kinh nghiệm học lập trình VBA trong Access
Xuân Thanh > 20-08-20, 11:36 AM
Lúc đầu tôi đọc nhanh nên không để ý và chưa hiểu bạn này muốn gì. Bây giờ xem lại có lẽ đúng
tranthanhan1962 có thể do viết nhanh nên không đẻ ý
Ở dòng 10 nếu viết Else If(có khoảng trắng giữa hai từ) là không hợp lý mà phải vết liền nhau lại là ElseIf và như vậy dòng 20 bị thừa là đúng. Nếu dòng 10 sau Else rồi xuống dòng rồi mới đến If thì mới hợp lý ở dòng 20
P/S : Có điều thắc mắc là không hiểu bạn này lấy trích dẫn của tranthanhan1962 từ bài viết nào trong theard này vì tôi đọc hết cả theard mà không thấy -
RE: Kinh nghiệm học lập trình VBA trong Access
haonlh > 20-08-20, 12:21 PM
Cảm ơn ongke0711 đã quan tâm đọc bài.
Xin nói rõ thế này
1. Tôi là người mới, nên đọc thế nào thì làm thế đó. Cũng có biết các cú pháp cơ bản của ngôn ngữ lập trình, nhưng lâu rồi nên có thể quên.
2. Quên thì phải thử trên VBA. Tôi không thể thử theo mẫu sau
If <điều kiện> Then
<Lệnh>
Else If <điều kiện> Then
<Lệnh>
End If
End If
mà phải thử bằng cách thay các <điều kiện> bằng True (hay dùng) hoặc False, hoặc 1<2, và phải thay <Lệnh> bằng Debug.Print 1 (hay 2, 3 tùy số câu lệnh để phân biệt). Có thể thay bằng lệnh tùy thích, ví dụ lệnh gán (với khai báo biến): a=1, hay a=a, vì chạy theo vết là thấy nó có thực hiện không.
Và tất nhiên phải đặt trong Sub ThuNghiem... End Sub
3. Chương trình đó như sau
Sub ThuNghiem()
Dim a as Long
If True Then
a=1
Else If True Then
a=2
End If
End If
End Sub
Và tôi nhập đến dòng
Else If True Then
và gõ phím Enter thì báo lỗi.
4. Tôi sửa dòng đó như sau
ElseIf True Then
và soạn thảo tiếp thì được như sau
Sub ThuNghiem()
Dim a as Long
If True Then
a=1
ElseIf True Then '**** sửa chỗ này. Nối Else và If liền nhau
a=2
End If
End If
End Sub
và gõ F8 để chạy theo vết thì hiện hộp thoại lỗi là "End If without block If" và VBA chọn "End If"
ở trước "End Sub".
5. Tôi xóa cái "End Sub" đã chọn thì CT chạy tốt. Tất nhiên có cách sửa khác để trong bài có 2 khối lệnh tương đương (Cũng nên nói thêm, nhớ mang máng cái khái niệm này)
Vậy tôi đoán định cú pháp của lệnh If dạng viết trên nhiều dòng có 2 hình thức như sau
a.
If <đk> Then
<Lệnh hoặc dãy dòng lệnh>
Else
<Lệnh hoặc dãy dòng lệnh>
End If
Hoặc là
b.
If <đk> Then
<Lệnh hoặc dãy dòng lệnh>
ElseIf <đk> Then
<Lệnh hoặc dãy dòng lệnh>
[ElseIf <đk> Then
<Lệnh hoặc dãy dòng lệnh>]
[Có thể lặp nhiều lần khối ElseIf ở trên]
Else
<Lệnh hoặc dãy dòng lệnh>
End If
6. Tôi nghĩ mình vẫn có thể sai. Và sẵn sàng đọc tiếp.
Cũng nhờ anh em đánh giá cái Sub viết trong mục 3 của bài này có đúng theo ý tưởng của tranthanhan1962 không. Vì từ đó mà tôi mới sửa. Nếu nó sai thì các sửa sau vô nghĩa.
Cảm ơn. -
RE: Kinh nghiệm học lập trình VBA trong Access
ongke0711 > 20-08-20, 03:32 PM
(20-08-20, 12:18 PM)haonlh Đã viết: Cảm ơn ongke0711 đã quan tâm đọc bài.
Xin nói rõ thế này
1. Tôi là người mới, nên đọc thế nào thì làm thế đó. Cũng có biết các cú pháp cơ bản của ngôn ngữ lập trình, nhưng lâu rồi nên có thể quên.
2. Quên thì phải thử trên VBA. Tôi không thể thử theo mẫu sau
...
Nếu bạn chỉ ý kiến về bài viết của anh tranthanhan1962, về các cú pháp ảnh viết trong đó có sai sót thì bạn bỏ qua bài viết của tôi nhé.
Ps: Bạn dùng font chữ lớn hơn đi, khó đọc quá. -
RE: Kinh nghiệm học lập trình VBA trong Access
thuyyeu99 > 20-08-20, 05:19 PM
mà tóm lại mệnh đề if có 3 cái cần chú ý
1. Viết trên 1 dòng không cần End if
2. Viết trên nhiều dòng thì phải End if
3. Viết lòng hàm If
Mà cố gắng nên dùng Select case (ý kiến cá nhân hihihih) -
RE: Kinh nghiệm học lập trình VBA trong Access
haonlh > 20-08-20, 05:21 PM
Cứ băn khoăn là 1 bài mà đăng trả lời 3 lần. Nay thấy không còn.
Yên tâm và cảm ơn ban quản lý trang.
Cũng vì mới, tôi thường đánh máy trên Notepad rồi copy sang. Cách làm này có cái hay là chép nội dung trính dẫn từ trang Web này để dán vô Notepad để hủy các định dạng. Dán vô không thấy chữ nhỏ, thậm chí chọn định dạng chữ nhỏ nhất (tôi làm cả trên bài này). Còn sau hệ thống chạy thế nào thì chịu. Lính mới khổ thế
-
RE: Kinh nghiệm học lập trình VBA trong Access
haonlh > 21-08-20, 12:39 PM
(20-04-20, 09:32 PM)mrsiro Đã viết: Câu lệnh có cấu trúc sau:
Mã:If tôi có tiền then
If msgbox("bạn có chắc muốn mua",vbYesNo) = vbYes then
tôi mua
End if
Else
tôi mua
End if
Có cách nào rút ngắn cú pháp của code trên không, bởi vì "tôi mua" xuất hiện 2 lần, mính muốn rút ngắn lại.
Theo tôi, không nên rút gọn "tôi mua". Có thể "tôi mua" gồm nhiều lệnh thì gom các lệnh đó thành 1 Sub. Việc gom thành Sub chắc là ý tưởng của nhà thiết kế: Sub là nhóm lệnh được tạo ra để có thể dùng lại nhiều lần ở nhiều nơi. -
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 21-08-20, 01:11 PM
(20-04-20, 09:32 PM)mrsiro Đã viết: Câu lệnh có cấu trúc sau:
Đây là một đoam mã không ai sử dụng. Do lỗi logic
Mã:If tôi có tiền then
If msgbox("bạn có chắc muốn mua",vbYesNo) = vbYes then
tôi mua
End if
Else
tôi mua
End if
Có cách nào rút ngắn cú pháp của code trên không, bởi vì "tôi mua" xuất hiện 2 lần, mính muốn rút ngắn lại.
If msgbox("bạn có chắc muốn mua",vbYesNo) = vbYes then
tôi mua
Else
Thiếu Trường hợp VbNo, Nếu không xác định vb no phải có mã Exit Sub => không làm gì cả ⟺ Không mua
End if
Còn nếu không có nó sẽ chạy luôn xuống mã Else phía dưới tôi mua ⟺ Không cần hỏi vẫn mua. Vậy thì vấn đề logic ỏ đây là hỏi thì trả lời yes cũng mua, no cũng mua, mà không trả lời cũng mua. Vây hỏi để làm gì
Tóm lại chỉ cần lệnh:
tôi mua
là được. Cần vì cái đoạn mã vơi 2 cái if cho mệt người.
null -
RE: Kinh nghiệm học lập trình VBA trong Access
haonlh > 21-08-20, 11:39 PM
Bài này gồm 2 nội dung: 1. cú pháp câu lệnh của tác giả và 2. rút gọn chỉ theo ý tác giả 1 lần "tôi mua"
1. Về mặt cú pháp, tôi cho rằng câu lệnh If là không lỗi. Mặc dù xét theo tính logic xã hội thì có gì đó sai sai. Nhưng tôi không quan tâm mà cố gắng giải thích rằng nó đúng cú pháp
Mã:If tôi có tiền then
If msgbox("bạn có chắc muốn mua",vbYesNo) = vbYes then
tôi mua
End if
Else
tôi mua
End if
Kí hiệu điều kiện (tôi có tiền) là đk1, điều kiện tiếp (msgbox("bạn có chắc muốn mua",vbYesNo) = vbYes) là đk2. Như vậy câu lệnh trên được viết là (có số dòng để tiện lập
luận)
Mã:1 If đk1 then
2 If đk2 then
3 tôi mua
End If
4 Else
5 tôi mua
6 End if
thì câu lênh If ở dòng 2 là không có Else và cú pháp là cho phép. Còn câu lệnh If ở dòng 1 có đủ thành phần Else. Cho nên nó ĐÚNG CÚ PHÁP.
2. Chủ thớt hỏi: "Có cách nào rút ngắn cú pháp của code trên không, bởi vì "tôi mua" xuất hiện 2 lần, mính muốn rút ngắn lại".
Để viết ngắn, nên lập bảng phân tích điều kiện 1 và 2 như sau
Vì hình như VBA không có phép toán logic kéo theo nên tôi có thêm cột "Quy thành số" tính theo công thức = -2*đk1 - đk1 (gán vô biến N và N luôn <>1). Vậy tôi có Sub sauMã:đk1 đk2 lệnh dòng 3 lệnh dòng 5 Kết luận "Quy thành số"
True True chạy không chạy mua 3
True False không chạy không chạy không mua 2
False True không chạy chạy mua 1
False False không chạy chạy mua 0
Mã:Sub NC()
1 Dim dk1 as Boolean, dk2 as Boolean, N as Long
2 dk1= (msgbox("toi co tien?",vbYesNo) = vbYes)
3 If dk1 then dk2=(msgbox("ban co chac muon mua",vbYesNo) = vbYes)
4 N=-2*dk1 - dk2
5 If n<>2 Then Debug.Print "toi mua"
End Sub
'Còn viết ngắn gọn hơn nữa thì:
Mã:Sub NCngan()
1 Dim N as Long
2 N= -2*(msgbox("toi co tien?",vbYesNo) = vbYes)
3 If N then N = N - (msgbox("ban co chac muon mua",vbYesNo) = vbYes)
5 If N<>2 Then Debug.Print "toi mua"
End Sub
Còn muốn không phải nhập, duyệt mọi khả năng thì For:
Mã:Sub NCTuDong()
1 Dim dk1 as Long, dk2 as Long, N as Long
2 For dk1 = 0 to -1 step -1 '(Nếu là Turbo Pascal thì For dk1 = False to True Do ...)
N= -2* dk1
For dk2 = 0 to -1 step -1
N=N - dk2
5 If N <> 2 Then Debug.Print N, " Toi mua"
Next
Next
End Sub