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
Xuân Thanh > 21-04-20, 10:45 PM
Thực ra Excel cũng không phải là không làm được công tác quản lý. Nhưng nếu tổ chức tốt các trang tính và tận dụng hết khả năng về tốc độ tính toán của Excel thì những bài toán như bạn tuhocvba.net đã nói cũng không phải là không làm tốt. Đôi khi ta phải bắt VBA nó phụ trách đưa dữ liệu vô vô bảng tính từ định dạng đến giá trị...
Nhưng phải nói một cách công tâm là Excel không được gọi là hệ quản trị dữ liệu như Access mà nó chỉ được gọi là Bảng tính mà thôi. Cách tổ chưc CSDL của Access rõ ràng hơn, hợp lý hơn. Bản thân các Form, Query...cũng đều có những quy định chuẩn chỉ hơn
Đối với Access, bản thân nó vưà là hệ quản trị dữ liệu và là nơi lưu trữ dữ liệu của chính nó đồng thời là nơi lưu trữ dữ liệu của các hệ quản trị dữ liệu khác
Cái dở của Excel là bảo mật CSDL kém -
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 21-04-20, 10:45 PM
Giờ bận quá mai mình sẽ rớ đến vòng lặp -
RE: Kinh nghiệm học lập trình VBA trong Access
thuyyeu99 > 21-04-20, 11:01 PM
chà, trong diễn đàn có máy bài cũ của các anh giờ em mới đọc được hay quá -
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 21-04-20, 11:03 PM
(21-04-20, 10:45 PM)Xuân Thanh Đã viết: Thực ra Excel cũng không phải là không làm được công tác quản lý. Nhưng nếu tổ chức tốt các trang tính và tận dụng hết khả năng về tốc độ tính toán của Excel thì những bài toán như bạn tuhocvba.net đã nói cũng không phải là không làm tốt. Đôi khi ta phải bắt VBA nó phụ trách đưa dữ liệu vô vô bảng tính từ định dạng đến giá trị...
Đúng là excel vẫn làm được nhiệm vụ quản lý. Hồi đó thời excel 5.0 (lúc đó là access 2.0 và còn thô sơ lắm). Report còn được tích hợp trong excel. Nhưng để excel trở thành một CSDL thiết kế rất cực. Viết một chương trình báo cáo thuế trên excel cũng được nhưng rườm rà lắm. Viết xong rồi kế toán yếu yếu cũng không biết làm. Mình viết thì mình làm được nhưng chuyển giao công nghệ khó vô cùng, không như access viết xong rồi thì hướng dẫn 1 phút 30 giây, làm được ngay. Office 97 cũng còn tích hợp cả report trong excel (Excel 97 còn tích hợp cả game lái máy bay-hình như vào ô nào đó rồi gõ lệnh thì chơi game được, không biết bác Xuân Thanh có nhớ cái này không?). Nhưng Excel thì làm các bảng kế hoạch sản xuất hay vồ cùng.
Nhưng phải nói một cách công tâm là Excel không được gọi là hệ quản trị dữ liệu như Access mà nó chỉ được gọi là Bảng tính mà thôi
Đối với Access, bản thân nó vưà là hệ quản trị dữ liệu và là nơi lưu trữ dữ liệu của chính nó đồng thời là nơi lưu trữ dữ liệu của các hệ quản trị dữ liệu khác -
RE: Kinh nghiệm học lập trình VBA trong Access
Xuân Thanh > 21-04-20, 11:27 PM
(21-04-20, 11:03 PM)tranthanhan1962 Đã viết: Đúng là excel vẫn làm được nhiệm vụ quản lý. Hồi đó thời excel 5.0 (lúc đó là access 2.0 và còn thô sơ lắm). Report còn được tích hợp trong excel. Nhưng để excel trở thành một CSDL thiết kế rất cực. Viết một chương trình báo cáo thuế trên excel cũng được nhưng rườm rà lắm. Viết xong rồi kế toán yếu yếu cũng không biết làm. Mình viết thì mình làm được nhưng chuyển giao công nghệ khó vô cùng, không như access viết xong rồi thì hướng dẫn 1 phút 30 giây, làm được ngay. Office 97 cũng còn tích hợp cả report trong excel (Excel 97 còn tích hợp cả game lái máy bay-hình như vào ô nào đó rồi gõ lệnh thì chơi game được, không biết bác Xuân Thanh có nhớ cái này không?). Nhưng Excel thì làm các bảng kế hoạch sản xuất hay vồ cùng.
Thế nên tôi mới nói tùy từng trường hợp cụ thể mà vận dụng cho thích hợp. Excel có thế mạnh riêng của nó là tốc độ tính toán và có những công cụ riêng để thực hiện mà Access không thể có được và ngược lại -
RE: Kinh nghiệm học lập trình VBA trong Access
ongke0711 > 22-04-20, 01:34 AM
(21-04-20, 11:27 PM)Xuân Thanh Đã viết: Thế nên tôi mới nói tùy từng trường hợp cụ thể mà vận dụng cho thích hợp. Excel có thế mạnh riêng của nó là tốc độ tính toán và có những công cụ riêng để thực hiện mà Access không thể có được và ngược lại
Chính xác là vậy.
Excel và Access là hai trong số các công cụ mạnh của Microsoft được sử dụng cho mục đích phân tích dữ liệu và tổng hợp báo cáo. Tuy vậy 2 thằng này cũng có một số khác biệt lớn như Excel rất thiết kế dễ dàng các bảng điều khiển (DashBoard) và Formula, còn Access thì dễ dàng tạo cơ sở dữ liệu và kết nối.
Người dùng tuỳ mục đích sử dụng sẽ chọn Excel hoặc Access. Excel thì dân phân tích tài chính ưa chuộng hơn vì nó có các công cụ mạnh, mô hình dành cho phân tích tài chính (What if, solver...), vẽ biểu đồ, đồ thị cực mạnh v.v.. Còn Access thì hướng tới người dùng là chủ các doanh nghiệp (vừa và nhỏ), họ cần các kiểu báo cáo, truy vấn dữ liệu, quản lý tổng thể. Các bạn có thấy là vẽ biểu đồ trong Access không? thiết kế nó cũng phức tạp mà ra biểu đồ nhìn cũng xấu (Hình như bản 2019 có nâng cấp về Chart).
Excel thì nhiều người dùng hơn vì nó dễ sử dụng, tính linh hoạt cao trong khi dùng Access thì phải tuân thủ các qui định dữ liệu, cấu trúc ngay từ ban đầu, mất thời gian để học hơn. Cũng bởi vì tính linh hoạt cao nên tính toàn vẹn dữ liệu của Excel không đảm bảo mặc dù trong Excel cũng có Data Validation Rules như khi cần qui định nhiều rule cho một cột dữ liệu nào đó thì nó sẽ phức tạp hơn Access. Access thiết lập data validation ngay giai đoạn thiết kế Table, một kiểu dữ liệu Number cũng chia ra nhiều loại: byte, Int, Long, Single... Khi nhập liệu thì Access sẽ tự động bắt lỗi nếu sai kiểu dữ liệu qui định.
Thiết kế ứng dụng Access tôi cũng hay trích xuất báo cáo sang mẫu (template) Excel thiết kế sẳn, đôi khi nó còn dễ hơn thiết kế Report trong Access.
-
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 22-04-20, 07:02 AM
-
RE: Kinh nghiệm học lập trình VBA trong Access
Xuân Thanh > 22-04-20, 10:33 AM
Vòng lặp là quá trình lặp lại 1 đoạn mã theo một số lần nhất định trong VBA. Việc này rất có lợi trong những việc đòi hỏi nhiều thao tác thủ công lặp đi lặp lại (ví dụ như in ấn hàng loạt Phiếu thu, chi dựa trên 1 mẫu phiếu duy nhất). Việc tìm hiểu về vòng lặp là một yêu cầu cơ bản nhất cho những bạn bắt đầu với việc học cách sử dụng VBAl, vì mục tiêu của chúng ta luôn là “Giảm thao tác tay, tăng tính tự động nhằm tiết kiệm thời gian xử lý công việc”.
Có 2 loại vòng lặp thường sử dụng là For-Next, Loop và Do-Loop. Dưới đây là vòng lặp For…Next và For Each …Next
A.1/ Vòng lặp For…Next
Cú pháp chính
Mã:For counter = start To end [Step stepcount]
[statement 1]
[statement 2]
....
[statement 10]
[Exit For]
[statement 11]
[statement 22]
....
[statement n]
Next
1: Vòng lặp đơn
Mã:Sub Loop_Test01()
Dim i As Integer
For i=1 To 10
Giá của trái táo này là I đồng
Next i
End Sub
Gán biến i với các giá trị từ 1 đến 10
Với mỗi giá trị i thì giá trị của đơn giá sẽ có giá trị bằng i
* Lưu ý:
Việc sử dụng vòng lặp sẽ có lợi ở trên phạm vi nhỏ, những công việc gần như bắt buộc phải thực hiện bằng tay
Với những bảng dữ liệu lớn thì cách sử dụng vòng lặp sẽ làm chậm hơn, khi đó nên cân nhắc chọn cách làm khác
2: Vòng lặp kép
Đôi khi chúng ta cần thực hiện nhiều vòng lặp lồng nhau trong cùng 1 câu lệnh VBA, khi đó chúng ta cần sử dụng vòng lặp kép.
Cách sử dụng vòng lặp kép khá đơn giản và dễ thực hiện. Chúng ta cùng tìm hiểu ví dụ sau:
Vòng lặp kép 2 vòng lồng nhau
Mã:Option Explicit
Sub Loop_Test02() 'Vòng lặp kép 2 vòng
Dim i As Integer
Dim j As Integer
For i = 1 To 2
For j = 2 To 6
If Số tiền bằng j Then có thể mua được số táo là i
Next j
Next i
End Sub
Biến i là thể hiện số tiền được lặp trong bảng
Biến j là thể hiện số táo được lặp trong bảng
=> Kết hợp vòng lặp cho 2 biến i và j để có thể mở rộng phạm vi vòng lặp sang các giá và tiền tiếp theo
3 Vòng lặp kép 3 vòng lồng nhau
Tương tự với vòng lặp 2 vòng, chúng ta có thể tạo ra vòng lặp kép 3 vòng với việc xét đồng thời 1 yếu tố nữa để có thể mở rộng phạm vi hoạt động cùng lúc
Mã:Option Explicit
Sub Loop_Test03() 'Vòng lặp 3 vòng lồng nhau trong Excel
Dim i As Integer
Dim j As Integer
Dim n as Integer
For i = 1 To 2 'Biến số cột
For j = 2 To 6 'Biến số dòng
For n = 1 to 3 'Biến số Sheet
If sheets(n).Cells(j, i) = "Book" Then sheets(n).Cells(j, 3) = "Yes"
Next n
Next j
Next i
End Sub
Trong vòng lặp For…Next trên đây ta thấy khi chạy vòng lặp, các biến đều tăng lên 1 đơn vị. Nếu ta dùng thêm tư khóa Step thì sẽ lại khác, biến đếm sẽ tang hoặc giảm n lần tùy theo giá trị n sau từ khóa Step
Ví dụ
Khi đó giá trị của biến I lần lượt trong MsgBox là 0, 2, 4, 6, 8, 10Mã:Dim i As Integer
For i = 0 To 10 Step 2
MsgBox “Giá trị của i là : ” & i
Next
Khi đó giá trị của biến I lần lượt trong MsgBox là 10, 8, 6, 4, 2, 0Mã:Dim i As Integer
For i = 10 To 0 Step -2
MsgBox “Giá trị của i là : ” & i
Next
Khi muốn thoát vòng lặp ta dùng từ khóa Exit Do
Ví dụ
Mã:Dim i As Integer
For i = 0 To 10
If i > 3 Then
Exit For
Else
MsgBox "Gia tri cua i la: " & i
End If
Next
A.2/ Vòng lặp For Each…Next
Vòng lặp For Each trong VBA được sử dụng để thực hiện một câu lệnh hoặc một nhóm các câu lệnh cho mỗi phần tử của một mảng hoặc một collection.
Một vòng lặp For Each tương tự vòng lặp For. Tuy nhiên, vòng lặp For Each được thực hiện cho mỗi phần tử của một mảng hoặc collection. Do đó, bộ đếm Step sẽ không tồn tại trong loại vòng lặp này. Cú pháp của nó là
Ví dụMã:For Each element In Group
[statement 1]
[statement 2]
....
[statement 10]
[Exit For]
[statement 11]
[statement 12]
[statement n]
Next
Mã:Sub ForEachExample()
' khai bao mang fruits
fruits = Array("apple", "orange", "mango")
Dim fruitNames As Variant
' duyet mang fruits su dung vong lap For Each.
For Each Item In fruits
fruitNames = fruitNames & Item & vbCrLf
Next
MsgBox fruitNames
End Sub
Sub KhoaText()’ Khóa TextBox trong Form không cho nhập liệu
Dim ctr As Control
For Each ctr In Me.Controls
If TypeName(ctr) = “Textbox” Then
ctr.Locked = True
End If
Next
Tùy theo nhu cầu công việc chúng ta có thể tùy biến vòng lặp để đưa ra được kết quả mong muốn.
Việc xử lý dữ liệu trên đôi khi mất nhiều thời gian và công sức khi các dữ liệu có tính lặp đi lặp lại. VBA khắc phục được điểm này. Khi sử dụng VBA trong công việc, bạn có thể rút ngắn thời gian làm việc rất nhiều. Ngoài ra, VBA còn giúp lập báo cáo tự động và điều khiển các chương trình khác như Word, Power Point, Outlook … giúp biến file Access của bạn trở thành 1 phần mềm chuyên nghiệp -
RE: Kinh nghiệm học lập trình VBA trong Access
tranthanhan1962 > 22-04-20, 10:39 AM
Tiếp tục với cấu trúc vòng lập
Vòng lập For…Next
Công dụng: Lặp lại một nhóm các câu lệnh một số lần xác định.
Cú pháp:
For <Bộ đếm> = <Số bắt đầu> To <Số cuối>
<lệnh>
[Exit For]
<Lệnh>
Next <Bộ đếm>
Để tạo bộ đếm phải đặt biến cho bộ đếm.
Dim J as Interger (đặt J là bộ đếm, bộ đếm luôn là kiểu số tự nhiên, giống như đếm ngón tay 1,2,3…Số lượng ngón tay là kiểu số tự nhiên)
Ví dụ: bắt học sinh rửa tay
Dim HocSinh as Interger
For Hocsinh = 1 to 20 ‘ học sinh từ em thứ 1 đến em 20
Đi rửa tay
Next HocSinh
Cấu trúc này sẽ giải quyết lập đi lập lại câu lệnh (ở đây là lệnh đi rửa tay từ số bắt đầu đến số kết thúc).Tương tự: Giả sử một cửa tiệm mua hàng và khi định giá bán = giá mua + 10%. Trên table HangHoa phải xác định được tổng số loại hàng hoá (Số thứ tự cuối cùng = ∑ Loại hàng hoá). Và trên table phải có các field TenHang, GiaMua, GiaBan.
Code mẫu (Tổng số loại hàng hoá là 100):
Dim CSDL As Database
Dim BangHangHoa As DAO.Recordset
Dim SoThuTu As Interger
Set CSDL = CurrentDb
Set BangHangHoa = CSDL.OpenRecordset("HangHoa", DB_OPEN_DYNASET)
BangHangHoa.MoveFirst
For SoThuTu = 1 To 100
BangHangHoa.Edit
BangHangHoa![GiaBan] = BangHangHoa![GiaMua] * 110%
BangHangHoa.Update
Next SoThuTu
Bộ đếm là liên tục, nhưng không nhất thiết bộ đếm phải bắt đầu từ 1. Trường hợp một lớp học có 20 em học sinh (10 nam, 10 nữ). Giáo viên thể dục bắt học sinh nam hít đất 10 cái học sinh nữ được miễn. Trong danh sách chắc chắn 10 học sinh nữ ở trên và 10 học sinh nam ở dưới. Có thể thành lập bộ đếm bắt đầu từ 11 đến 20
Dim HocSinh as Interger
For Hocsinh = 11 to 20 'học sinh nam từ em thứ 11 đến em 20
Hít đất 10 cái
Next HocSinh
Trường hợp khác nếu không biết rõ số lượng học sinh nam và nữ, nhưng biết chắc toàn bộ danh sách học sinh nam nằm ở phía trên
Dim HocSinh as Interger
Dim Nu as Boolean
For Hocsinh = 1 to 20
If Nu = True Then
Exit For
Else
Hít đất 10 cái
End If
Next HocSinh
Sau khi bộ đếm giải quyết hết học sinh Nam, khi gặp từ khoá Exit For sẽ thoát vòng lập.
Trong trường hợp danh sách được sắp xếp một cách lộn xộn, Nam, Nữ không liên tục.
Dim HocSinh as Interger
Dim Nu as Boolean
For Hocsinh = 1 to 20
If Nu = True Then
Next
Else
Hít đất 10 cái
End If
Next HocSinh
Từ khoá Next sẽ cho phép tiếp tục bộ đếm mà không thực hiện lệnh.
Giá trị cuối cùng của bộ đếm phải <= Tổng số đối tượng được đếm (nếu trong table là số lượng record). Tất nhiên nếu bằng thì nó sẽ thực hiện hết, nếu nhỏ hơn nó sẽ thực hiện không hết, nhưng nếu nó lớn hơn thì khi vượt giá trị của lượt đếm cuối cùng sẽ bị lỗi.
Ví vụ: chỉ có 20 học sinh mà bộ đếm =1 to 21 chắc chắn sẽ bị lỗi -
RE: Kinh nghiệm học lập trình VBA trong Access
tuhocvba.net > 22-04-20, 10:43 AM
Tôi ví dụ, người ta dùng excel vì thao tác thuận tiện memo dữ liệu nhanh chóng.
Gần như bất cứ cái gì xuất hiện trong đầu, người ta sẽ ghi nó ra excel ngay.
Ví dụ như bảng dữ liệu này, ta thấy các dữ liệu trùng lặp liên tục xuất hiện.
![[Hình: igeMppz.png]](https://i.imgur.com/igeMppz.png)
đáng ra thì chỉ cần có cột mã khách hàng.
Thông tin khách hàng (số điện thoại, email) nên được xây dựng ở bảng dữ liệu khác.
Nếu dựa trên suy nghĩ của access, thì người này nếu dùng excel, anh ta nên xây dựng một sheet dữ liệu khác để ghi thông tin khách hàng.
Việc code tổng hợp thông tin có thể làm được, mặc dù là không thuận lợi và nhanh chóng như access.
Khi xây dựng bảng dữ liệu trên, thì tính duy nhất của dữ liệu lại bị thiếu trường thông tin.
tôi nghĩ, nếu chỉ nói công việc của tôi là excel nên tôi chỉ học excel, vba excel thôi thì không nên.
Nếu có thêm kiến thức Access, dù là không dùng tới Access, nhưng khi xây dựng dữ liệu trên excel, anh/chị sẽ biết phân bổ thông tin lên các sheet.
Hiện nay, tôi thấy thực trạng là anh/ chị ghi tràn lan lên một sheet. điều đó thật thuận tiện khi quan sát nhưng mệt mỏi khi nhập đi nhập lại các dữ liệu trùng nhau.
Việc code tổng hợp dữ liệu theo mục đích nào đó thì cũng làm được, nhưng không thể nói sắp xếp dữ liệu mà chẳng tính toán gì là khoa học và thuận tiện cho người code.
Nếu mọi người hiểu được access cũng có ích như thế nào đối với công việc excel, giúp tổ chức dữ liệu khoa học hơn trên excel, tôi nghĩ diễn đàn access sẽ còn phát triển hơn nữa.
Không chỉ dừng lại ở mức độ hiện nay.
Chúng ta thừa nhận với nhau một thực tế rằng, người sử dụng excel luôn luôn nhiều hơn người dùng access. Tuy nhiên nếu biết access cũng có ích trong thiết kế excel, moi nguoi se tham gia forum access nhieu hon, diễn đàn sẽ phát triển hơn nữa.