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 > 23-04-20, 05:40 PM
OK! Đang xử lý Do...Loop, mà thằng này đến mấy trường hợp, để nghiên cứu xem trình bày thế nào cho dễ hiểu -
RE: Kinh nghiệm học lập trình VBA trong Access
Xuân Thanh > 04-05-20, 11:06 PM
Quốc Khánh ngày nay đã hết rồi
Không còn Co-vít nữa Ân ơi
Cái vòng Do...Loop còn hay đã....
Mà sao mấy bạn hỏi quá trời
-
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 04-05-20, 11:28 PM
Đang bận nhiều việc quá. Mới đi đám về đây, mấy cái đám cưới hỗm rày ngưng lại vì Covid giờ mới tổ chức. Còn 2 đám nữa
. Hồi chiều đi đám ma ông dượng, lúc này mới đi đám được, chứ nếu hôm trước chắc chỉ điện chia buồn. Khất lại anh em vài hôm nữa, Sorry. Mấy hôm trước bận nghiên cứu Macro của google sheet dạy cho đứa học trò. Tìm mãi lệnh đọc tiếng anh trên google sheet mà không được, có post bài nhờ anh em cứu hộ, mà chưa thấy hồi đáp. Chắc google sheet không có lệnh này. Nói chung mình cũng đã có hướng rồi nhưng thấy chưa gọn gàng trong cách trình bày. Cần phải xem lại. Sorry
-
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 05-05-20, 02:50 PM
Vừa rồi! Bận việc quá để các bạn đợi lâu. Hôm nay cũng đi đám cưới. Đám cưới mùa dịch nên moi người cũng không sung mấy nên uống cũng ít. Về sớm nên cố gắng post lên một phần. Do vòng lặp cũng khá nhiều trường hợp nên cũng không thể một phát từ A->Z được.
Tiếp tục cấu trúc Do…Loop (Làm…Vòng). Với kiểu dịch google này thì rõ ràng đã xác định đây là cấu trúc vòng lặp mà không phải lăn tăn gì nữa
Khác với For…Next, số lần lặp sẽ được xác định trước, Do…Loop sẽ không xác định số lần lập. Cấu trúc này có thể chia ra làm nhiều trường hợp
1/ Do While <Điều kiện lặp>
<Lệnh>
Exit Do
Loop
2/ Do Until <Điều kiện lặp>
<Lệnh>
Exit Do
Loop
3/ Do
<Lệnh>
Exit Do
Loop While <Điều kiện lặp>
4/ Do
<Lệnh>
Exit Do
Loop Until <Điều kiện lặp>
5/While <Điều kiện lặp>
<Lệnh>
Wend
Ở đây ta thấy có các từ khoá While, Until, có lúc đặt ở Do, có lúc đặt ở Loop
Tạm dịch While =trong khi, Until= cho đến lúc =>
Do While => làm trong khi, Do Until => làm cho đến lúc, Loop While => vòng trong khi, Loop Until=>vòng cho đến lúc
Wend=xoay về.
Trước khi đưa vòng lặp vào VBA phục vụ cho access, tôi xin giải thích một cách đơn giản về nguyên lý của cấu trúc này để tránh sự rườm rà của nó khi làm việc với các table (tất nhiên sau khi giải thích xong cách thức làm việc của vòng lặp sẽ có một vài ví dụ vòng lặp làm việc với table
Ví dụ cho Do While <Điều kiện lặp>…. Giả sử ta có một đoạn mã như sau:
Do While sẽ thực hiện lệnh khi điều kiện đúng và chỉ ngưng thực hiện lệnh lại khi điều kiện đó sai
Private Sub Command_Click()
Dim i As Integer
Do While i < 5
i = i + 1
MsgBox "Đây là số : " & i
Loop
End Sub
Có nghĩa là khi i<5 thì sẽ phát ra thông báo. Đúng ra sau lệnh Dim sẽ phải có lệnh gán i=0. Đoạn mã đầy đủ sẽ như thế này:
Private Sub Command_Click()
Dim i As Integer
i=0
Do While i < 5
i = i + 1
MsgBox "Đây là số : " & i
Loop
End Sub
Tất nhiên mọi người có thể gán số i đầu tiên là bao nhiêu tuỳ ý, nhưng vì đây là số tự nhiên nên mặc định i đầu tiên là i bằng 0 nếu không gán VBA sẽ hiểu như vậy.
Thì chỉ cầm bấm 1 phát các msgbox sẽ lấn lượt hiện lên các thông báo:
Đây là số 1
Đây là số 2
Đây là số 3
Đây là số 4
Đây là số 5
Tại sao điều kiện i<5 mà lại có thông báo <Đây là số 5>. Vì số i mà nó kiểm tra là số i màu đỏ trong biểu thức i =i +1 và số i cuối cùng là 4. Nên khi xử lý Do While phải kiểm tra kỹ điều kiện cho chính xác.
Khi đưa vào lệnh này vào Loop While ta cũng sẽ có đoạn mã như sau
Private Sub Command_Click()
Dim i As Integer
Do
i = i + 1
MsgBox "Đây là số : " & i
Loop While i < 5
End Sub
Khi thực hiện đoạn mã này nó vẫn chạy giống như Do While, vậy thì tại sao VBA đưa cả hai ra để làm gì?
VBA không có tào lao đâu.
Chúng ta gán số i đầu tiên là i = 10
Đoạn mã Do While sẽ trở thành
Private Sub Command_Click()
Dim i As Integer
i=10
Do While i < 5
i = i + 1
MsgBox "Đây là số : " & i
Loop
End Sub
Lúc này vòng lặp không hoạt động vì điều kiện chỉ chạy vòng lặp khi i<5 nhưng ngay vòng đầu tiên sẽ là i = i + 1 = 10 + 1 = 11
Và Do While phát hiện ngay điều kiện sai nó sẽ không thực hiện.
Tiếp tục với Loop While
Private Sub Command_Click()
Dim i As Integer
i=10
Do
i = i + 1
MsgBox "Đây là số : " & i
Loop While i < 5
End Sub
Bấm vào một phát sẽ thấy hiện ngay thông báo
Đây là số 11
Và sao khi thông báo xong nó câm luôn vì biết mình đã sai.
Vậy đã rõ Do While kiểm tra lệnh trước khi thực hiện còn Loop While thực hiện lệnh trước rồi kiểm tra sau.
Việc này giống như một đội lính đi hành quân. Sĩ huy Do While sẽ cho trinh sát kiểm tra trước, khi trinh sát về báo lại cầu gãy, cả đội quân dừng lại. Sĩ quan Loop While thì cứ cho đội quân đi sang cầu khi một chiến sĩ lọt xuống sông mới biết cầu gãy mới dừng lại -
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 05-05-20, 06:39 PM
Có gắng xử lý xong phần này để ngày mai còn đi đám cưới
Ta đã nắm được Do While va Loop While sẽ kiểm tra điều kiện khi bắt đầu vòng lập
Tiếp tục với Do Until và Loop Until,
So sánh giữa 2 đoạn mã Do While và Do Until sau đây:
Private Sub Command_Click()
Dim i As Integer
i = 1
Do While i > 5
MsgBox "Đây là số : " & i
i = i + 1
Loop
End Sub
Và
Private Sub Command_Click()
Dim i As Integer
i = 1
Do Until i > 5
MsgBox "Đây là số : " & i
i = i + 1
Loop
End Sub
Ở đoạn mã Do While khi Click Command ta chẳng thấy gì cả. Vi đoạn code này có nghĩa là vòng lặp sẽ thực hiện lệnh với điều kiện i>5 nhưng ngay vòng đầu tiên i=1 => i<5, không đúng điều kiện. Vậy là nó câm luôn.
Nhưng ở đoạn mã Do Until nó sẽ cho ra một loạt thông báo
Đây là số 1
Đây là số 2
Đây là số 3
Đây là số 4
Đây là số 5
Kết luận Do While thực hiện điều kiện khi nó thấy còn đúng, còn Do Unttil sẽ ngừng thực hiện khi gặp điều kiện. Cái này giống như sự khác biệt giữa 2 khẩu lệnh “LÀM ĐI” và “KHÔNG ĐƯỢC LÀM”
Do While: Hãy ra đường khi trời còn nắng.
Do Until: Hãy ra đường cho đến khi trời mưa.
Tương tự Loop While, Loop Until sẽ thực hiện một lần khi nó phát hiện sai mới dừng lại.
Trong đoạn mã:
Private Sub Command_Click()
Dim i As Integer
i = 10
Do Until i > 3
MsgBox "Đây là số : " & i
i = i + 1
Loop
End Sub
Đoạn mã này sẽ không thực hiện một thông báo nào, vi khi kểm tra lênh nó đã phát hiện i = 10 đã vượt qua điều kiện Do Until i>3. Vì vậy không thể ra thông báo được, trong khi đoạn mã
Private Sub Command_Click()
Dim i As Integer
i = 10
Do
MsgBox "Đây là số : " & i
i = i + 1
Loop Until i > 3
End Sub
Nó sẽ ra một thông báo:
Đây là số 10
Sau đó sẽ câm vì biết mình tào lao.
Trường hợp cuối cùng.
Vòng lập While…Wend. Vòng lập này sẽ thực hiện lênh nếu điều kiện đúng và sẽ dừng lại khi điều kiện không còn đúng.
Ví dụ:
Private Sub Command5_Click()
Dim i As Integer
i = 10
While i < 15
MsgBox "Đây là số : " & i
i = i + 1
Wend
End Sub
Với đoạn mã này nó sẽ thực hiện giống như Do While
Đây là số 10
Đây là số 11
Đây là số 12
Đây là số 13
Đây là số 14
Nhưng nếu phía dưới Wend có lệnh thì sau khi thực hiện xong vòng lập nó tiếp tục thực hiện lênh của Wend
Private Sub Command5_Click()
Dim i As Integer
i = 10
While i < 15
MsgBox "Đây là số : " & i
i = i + 1
Wend
MsgBox "Thủ thuật access là trang web của những người yêu access”
End Sub.
Thì nó sẽ thực hiện các thông báo như sau:
Đây là số 10
Đây là số 11
Đây là số 12
Đây là số 13
Đây là số 14
Thủ thuật access là trang web của những người yêu access
Thực ra vòng lập có nhiều trường hợp để đáp ứng tất cả các logic của cấu trúc này. Nhưng thường thì mọi người chỉ sử dụng Do While…Loop để kiểm tra điều kiện nào đó một cách chính xác rồi thực hiện lệnh. Chứ các kiểu còn cũng ít khi sử dụng. Kiểm tra điều kiện một cách chính xác mà còn viết code sai lên sai xuống huống hồ để cho thực hiện sai rồi mới ngưng. Khi cần xử lý thêm các điều kiện thì lồng vào hàm if.
Đây là cách áp dụng vào xử lý số liệu của Table.
Ví dụ ta có một table tên là ThuChi:
Để tính được giá trị Tồn cho từng record ta sử dụng vòng lập Do WhileNgay NghiepVu SoTien Thu_Chi Ton 01/01/2020 Thu bán hàng 50.000.000 Thu 02/01/2020 Chi lương 10.000.000 Chi 03/01/2020 Chi trả tiền điện 500.000 Chi 04/01/2020 Thu bán hàng 35.000.000 Thu
Private Sub Command_Click()
Dim CSDL As Database
Dim rs As DAO.Recordset
Dim SoTienTon As Double
Set CSDL = CurrentDb
Set rs = CSDL.OpenRecordset("ThuChi", DB_OPEN_DYNASET)
SoTienTon = 0
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
rs![Ton] = SoTienTon + rs![SoTien]* IIf(rs![Thu_Chi] = "Thu", 1, -1)
rs.Update
SoTienTon = rs![Ton]
rs.MoveNext
Loop
rs.Close
End Sub
Khi mở bảng ThuChi ra chúng ta sẽ thấy các giá trị đã được xử lý mà không cần phải quan tâm số lượng record là bao nhiêu.
Khi lồng ghép các cấu trúc với nhau một cách khôn khéo ta sẽ có vô số cách để xử lý công việc mà access có thể đáp ứng đượcNgay NghiepVu SoTien Thu_Chi Ton 01/01/2020 Thu bán hàng 50.000.000 Thu 50.000000 02/01/2020 Chi lương 10.000.000 Chi 40.000000 03/01/2020 Chi trả tiền điện 500.000 Chi 39.500.000 04/01/2020 Thu bán hàng 35.000.000 Thu 74.500.000 -
RE: Kinh nghiệm học lập trình VBA trong Access
haonlh > 08-08-20, 05:48 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.
sau Else phải là
tôi không mua
như vậy ví dụ đó chưa có 2 lần "tôi mua"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 không mua
End if
Có lẽ nên sửa thế này thì có 2 lần "tôi không mua"
Mã:If tôi có tiền then
If msgbox("bạn có chắc muốn mua",vbYesNo) = vbYes then
tôi mua
else
tôi không mua
End if
Else
tôi không mua
End if -
RE: Kinh nghiệm học lập trình VBA trong Access
haonlh > 11-08-20, 09:38 PM
Chèn hình phải nhập URL nghĩa là làm thế nào các bạn. -
RE: Kinh nghiệm học lập trình VBA trong Access
haonlh > 16-08-20, 04:36 PM
Xin lỗi, xóa hết rôi. Sẽ soạn thảo lạo -
RE: Kinh nghiệm học lập trình VBA trong Access
haonlh > 16-08-20, 04:56 PM
(20-04-20, 02:27 PM)tranthanhan1962 Đã viết: 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
thì dòng 10 bị lỗi. Có thể sửa theo 2 khả năng
hoặcMã:If <điều kiện> Then
<Lệnh>
10 Else
If <điều kiện> Then 'thay dấu cách bằng dấu xuống dòng
<Lệnh>
20 End If
End If
Xin góp ý nhỏ.Mã:If <điều kiện> Then
<Lệnh>
10 ElseIf <điều kiện> Then 'Viết liền lại và dòng 20
<Lệnh>
20 'Xóa đi
End If -
RE: Kinh nghiệm học lập trình VBA trong Access
Xuân Thanh > 16-08-20, 05:27 PM
(16-08-20, 04:56 PM)haonlh Đã viết:
(20-04-20, 02:27 PM)tranthanhan1962 Đã viết: 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
thì dòng 10 bị lỗi. Có thể sửa theo 2 khả năng
hoặcMã:If <điều kiện> Then
<Lệnh>
10 Else
If <điều kiện> Then 'thay dấu cách bằng dấu xuống dòng
<Lệnh>
20 End If
End If
Xin góp ý nhỏ.Mã:If <điều kiện> Then
<Lệnh>
10 ElseIf <điều kiện> Then 'Viết liền lại và dòng 20
<Lệnh>
20 'Xóa đi
End If
Lỗi ở đâu bạn chỉ ra giùm. Thân mến