Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA

[chucao]

cảm on bạn rất nhiều bài viết rất hữu ích.

 

[nghikt2]

Cám ơn bác lehongduc ! Tiện xin bác hướng dẫn thêm 1 demo nữa về Multi-User, nhiều User cùng xem - sửa - xóa 1 chứng từ thì giải quyết như thế nào ? Vấn đề này cũng đã thấy nói nhiều ở các trang khác nhưng chưa có 1 ví dụ cụ thể.

 

[levanduyet]

Theo dõi thấy có nhiều Bạn đọc chuyên đề này, nhưng sao không thấy ý kiến gì trao đổi thêm, làm tôi thấy băn khoăn. Không biết những gì tôi trao đổi có mang đến cho các Bạn điều gì ích lợi không? Có gì chưa đúng hay sai chăng?

Chào Bác,
Thật sự ra topic của Bác không phải ai cũng có thể tham gia thảo luận. Đơn giản là bởi vì người đọc cần có "kiến thức tương đối" về lập trình. Mặc dù vậy, vẫn có bạn vẫn đang tham gia bằng việc gởi email, hoặc điện thoại cho Bác đấy thôi.

Thật tình, tôi cũng chỉ muốn chứng minh rằng Microsoft Access giúp ta được rất nhiều việc, trong đó có những việc mà bấy lâu nay chúng ta tưởng, và cũng có rất nhiều người chê Access cũng tưởng lầm rằng Access chỉ làm được ba cái ứng dụng "lẹt đẹt" mang tính "local" thôi, chứ đụng tới NET là chào thua.

Theo thiển ý của em, mỗi một ngôn ngữ, ứng dụng nó có điểm mạnh/yếu của nó. Việc so sánh Access và các ứng dụng được viết bởi các ngôn ngữ lập trình trên nền .NET là khập khiển. Nhưng chắc có lẻ Bác cũng đồng ý với em rằng "Có rất nhiều ứng dụng trên nền .NET mà chắc chắn rằng Access không thể nào làm được."

Hy vọng Bác vẫn cứ tiếp tục loạt bài viết rất hay này của Bác.

Lê Văn Duyệt

 

[lehongduc]

Cám ơn bác lehongduc ! Tiện xin bác hướng dẫn thêm 1 demo nữa về Multi-User, nhiều User cùng xem - sửa - xóa 1 chứng từ thì giải quyết như thế nào ? Vấn đề này cũng đã thấy nói nhiều ở các trang khác nhưng chưa có 1 ví dụ cụ thể.

Chào Bạn,
Những ví dụ mẫu (có file ứng dụng và database MS SQL SERVER cho phép truy xuất từ xa qua internet) tôi đã upload lên trong loạt bài này đều cho phép nhiều người truy xuất cùng lúc. Bạn chịu khó xem lại các bài từ đầu nhé.
Chúc sức khoẻ.

 

[lehongduc]

Chào Anh Duyệt và các Bạn,
Do thời gian gần đây tôi quá bận bịu công việc nên chưa thể viết tiếp được.
Trong loạt bài vừa qua cũng chỉ mới dừng lại việc xử lý dữ liệu do file ứng dụng MS Access thực hiện, còn SQL SERVER mới chỉ được sử dụng để lưu dữ liệu phát sinh.
Tôi sẽ sắp xếp viết tiếp trong thời gian tới, tập trung vào việc chuyển toàn bộ việc xử lý dữ liệu cho SQL SERVER còn file ứng dụng MS Access chỉ tập trung cho việc xây dựng giao diện.

Xin cảm ơn các Bạn đã quan tâm. Chúc Anh Duyệt và các Bạn nhiều sức khoẻ.

 

[Mr_long]

Chào bạn lehongduc.
Rất cám ơn bạn đã nhiệt tình hướng dẫn. Mình cũng đang nghiên cứu về đề tài này nên rất tâm đắc với nó.
trong ví dụ demo của bạn mình không hiểu hàm này để làm gì ?

Function GetSchemaTable(TbName As String) As String
Dim TbRec As New ADODB.Recordset
Dim SQLst As String
SQLst = "SELECT TABLE_SCHEMA FROM INFORMATION_SCHEMA.TABLES"
SQLst = SQLst & " WHERE TABLE_NAME='" & TbName & "'"
Set TbRec = ProcessRecordset(SQLst)
GetSchemaTable = TbRec("TABLE_SCHEMA")
TbRec.Close
Set TbRec = Nothing
End Function

Và hàm này nữa : Function ProcessRecordset(strSQLStatement As String) As ADODB.Recordset

và khi mở forms "frmContacts" thì báo lỗi ngay dòng này : "If CurrentProject.AllForms("frmlogin").IsLoaded = False Then DoCmd.OpenForm "frmlogin", , , , , acDialog"

xin bạn giải thích giúp mình rõ. cám ơn.

 

[Good-Luck]

Chào các Bạn,

Theo dõi thấy có nhiều Bạn đọc chuyên đề này, nhưng sao không thấy ý kiến gì trao đổi thêm, làm tôi thấy băn khoăn. Không biết những gì tôi trao đổi có mang đến cho các Bạn điều gì ích lợi không? Có gì chưa đúng hay sai chăng?

Thật tình, tôi cũng chỉ muốn chứng minh rằng Microsoft Access giúp ta được rất nhiều việc, trong đó có những việc mà bấy lâu nay chúng ta tưởng, và cũng có rất nhiều người chê Access cũng tưởng lầm rằng Access chỉ làm được ba cái ứng dụng "lẹt đẹt" mang tính "local" thôi, chứ đụng tới NET là chào thua.

Rất mong các Bạn cùng tham gia trao đổi.

cám ơn bầu nhiệt quyết của bạn, cũng nhờ bạn mà mõi người học hỏi được rất nhiều, nhưng do kiến thức của nhiều người còn hạn chế trong lĩnh vực này, nên chưa mấy ai bàn ra tán vào, nhưng mõi người cũng đang theo dõi bài viết của bạn, rất mong sớm được theo dõi thêm những bài tiếp theo của bạn, thanks

để minh họa Tính năng của access mà bạn đã chia sẽ, mình xin kèm đường link sau :
http://office.microsoft.com/zh-tw/access-help/HA010356866.aspx?CTT=3

 

[lehongduc]

cám ơn bầu nhiệt quyết của bạn, cũng nhờ bạn mà mõi người học hỏi được rất nhiều, nhưng do kiến thức của nhiều người còn hạn chế trong lĩnh vực này, nên chưa mấy ai bàn ra tán vào, nhưng mõi người cũng đang theo dõi bài viết của bạn, rất mong sớm được theo dõi thêm những bài tiếp theo của bạn, thanks

để minh họa Tính năng của access mà bạn đã chia sẽ, mình xin kèm đường link sau :
http://office.microsoft.com/zh-tw/access-help/HA010356866.aspx?CTT=3

Đường link trên sử dụng ngôn ngữ khác EngLish. Các Bạn có thể xem tiếng Anh tại link sau:
http://office.microsoft.com/en-001/...se-to-share-on-the-web-HA010356866.aspx?CTT=1

 

[Hai Lúa Miền Tây]

Nếu có thời gian xin anh hướng dẫn thêm về cách cài đặt SQL Server và cấu hình router để truy vấn dữ liệu qua Internet. Có thể có nhiều người chưa biết cái bước quan trọng này thì làm sao mà thực hiện và áp dụng được bước thứ 2 của anh đang hướng dẫn.

 

[lehongduc]

Chào các Bạn,
Tôi vừa nhận được thắc mắc của 1 Bạn như sau:

Chào bạn lehongduc
Mình cũng làm ms access project kết nối sql server trong môi trường nhiều người dùng
Và vẫn đang vướng khâu nhiều nhiều người cùng truy cập vào 1 table
Khi nhiều người cùng tạo báo cáo và đẩy kết quả vào 1 table để đưa dữ liệu vào báo cáo dẫn tới việc đụng độ
Ví dụ:Mình tạo báo cáo tồn kho
User 1 thực hiện
Delete from TB_KHO
Insert into TB_Kho (...)
docmd.openreport "rpKho"
User 2 thực hiện
Delete from TB_KHO
Insert into TB_Kho (...)
docmd.openreport "rpKho"
..........
Trong TB_KHO mình đã có thêm cột User1,User2 để phân biệt báo cáo đc tạo bởi user nào
Khi 1 user chạy báo cáo thì kết quả luôn đúng
Khi nhiều user cùng chạy báo cáo kết quả lúc đúng lúc sai
---------
Vậy theo bạn mình phải giải quyết việc đụng độ khi nhiều user dùng chung 1 table như thế nào trong sql server
Rất mong học hỏi thêm access+sql server từ bạn

Chào các Bạn,
Các Bạn không phải mất công như vậy, chỉ cần chú ý những nội dung mang tính nguyên tắc sau đây thì sẽ giải quyết được nỗi lo ngay:

1. Việc mở các bảng dữ liệu luôn có nhiều tùy chọn, ta có thể kể ra đây các tùy chọn thông dụng như sau:
- Mở ra chỉ để đọc dữ liệu
- Mở ra không chỉ để đọc mà còn để hiệu chỉnh dữ liệu hoặc ghi thêm, xóa dữ liệu, ...
Và nguyên tắc truy xuất dữ liệu tối ưu là: cần đến đâu thì mở đến đó. Nếu chỉ cần để ghi thêm mẫu tin (record) mới vào bảng dữ liệu thì tại sao ta lại mở hết trọi dữ liệu trong bảng ra? Và cần gì phải mở hết trọi với chế độ sẵn sàng hiệu chỉnh (bao gồm cả: edit, add và delete)?

2. Khi thiết kế Form, lúc ban đầu mới làm quen với Microsoft Access ta hay bị Bác Bill "dụ khị" bằng cách thiết kế Form với kiểu gắn liền với 1 nguồn dữ liệu (là bảng dữ liệu đơn hoặc 1 truy vấn phức tạp hơn) ở chế độ sẵn sàng cho hiệu chỉnh (bao gồm cả: edit, add và delete). Cái này thuật ngữ thiết kế ứng dụng gọi là thiết kế 1 Bound Form. Bác Bill làm vậy là có lý do, vì ở giai đoạn sơ khởi làm quen với Microsoft Access chủ yếu ta làm ra những ứng dụng chỉ để 1 người dùng trên máy đơn, nó đơn giản nên dễ tiếp thu và dễ làm, vậy mới "dụ khị" được chứ.

Thật sự, có tới 2 chế độ thiết kế Form:
- Thiết kế Bound Form như trên đã nói
- Hoặc thiết kế 1 UnBound Form. Với 1 UnBound Form, ta không cần gán 1 nguồn dữ liệu thường trực như với 1 Bound Form, chỉ khi nào cần tác động đến 1 bảng dữ liệu nào đó ta mới cho chạy lệnh tác động tương ứng (thông qua công cụ VBA code hoặc SQL code). Đây chính là kiểu Form mà tôi đã trình bày trong các bài trước đây.

3. Nguyên tắc của việc thiết kế Form trong 1 ứng dụng có nhiều người dùng qua mạng cùng truy xuất 1 nguồn dữ liệu là: Nên thiết kế UnBound Form. Đó chính là bảo đảm an toàn nhất để ta khỏi phải đối đầu với nỗi lo đau cả đầu về xung đột như các Bạn đang lo ở đây. Làm vậy sẽ thêm được cái lợi là ứng dụng chạy nhanh nữa, vì tiêu tốn ít tài nguyên đó mà.

Những điều nêu trên đều đã được tôi trình bày cụ thể trong các bài viết trước đây, các Bạn có thể đọc lại được ngay trên diễn đàn này.
Các Bạn cũng có thể tham khảo thêm lời khuyên của Bác Bill bằng cách dùng Google với từ khóa "UnBound Form"

4. Về vấn đề cụ thể Bạn nêu, tôi sơ bộ có nhận xét và ý kiến thế này:
- Bảng TB_KHO là 1 bảng dữ liệu mang tính chất tạm thời để nhằm mục đích làm nguồn dữ liệu cho 1 Report theo tuỳ chọn riêng của từng User xác định.
Có 2 cách quản lý cái bảng tạm thời này:
+ Có thể cho gắn liền với từng User đang làm việc theo kiểu "xong việc rồi bỏ" (chứ lưu lại làm chi cho nó nặng bụng mà chẳng để làm gì?)
+ Hoặc cho ghi bảng này ngay trên file ứng dụng tại máy tính của User đang làm việc (client), với điều kiện ta không thiết kế 1 Access Project File mà là 1 MDB file. Hoặc lưu trên 1 SQL SERVER cục bộ hay lưu thành file XML tại máy client.
Cách đầu luôn luôn rối và chậm hơn cách 2.

 

[lehongduc]

Chào bạn lehongduc.
Rất cám ơn bạn đã nhiệt tình hướng dẫn. Mình cũng đang nghiên cứu về đề tài này nên rất tâm đắc với nó.
trong ví dụ demo của bạn mình không hiểu hàm này để làm gì ?

Function GetSchemaTable(TbName As String) As String
Dim TbRec As New ADODB.Recordset
Dim SQLst As String
SQLst = "SELECT TABLE_SCHEMA FROM INFORMATION_SCHEMA.TABLES"
SQLst = SQLst & " WHERE TABLE_NAME='" & TbName & "'"
Set TbRec = ProcessRecordset(SQLst)
GetSchemaTable = TbRec("TABLE_SCHEMA")
TbRec.Close
Set TbRec = Nothing
End Function

Và hàm này nữa : Function ProcessRecordset(strSQLStatement As String) As ADODB.Recordset

và khi mở forms "frmContacts" thì báo lỗi ngay dòng này : "If CurrentProject.AllForms("frmlogin").IsLoaded = False Then DoCmd.OpenForm "frmlogin", , , , , acDialog"

xin bạn giải thích giúp mình rõ. cám ơn.

Chào Bạn,
Xin trả lời các thắc mắc của Bạn như sau:

- Function GetSchemaTable dùng để lấy Schema của bảng dữ liệu xác định (TbName)
Còn Schema là gì? Bạn có thể tìm hiểu thông qua Google với từ khoá "Schema in SQL SERVER"
Bạn cũng có thể tham khảo tài liệu đính kèm về Schema in SQL SERVER

- Function ProcessRecordset dùng để xác lập giá trị cho biến Recordset thông qua câu lệnh SQL xác định (câu lệnh SQL nói ở đây chính là chuỗi strSQLStatement)

- Về lỗi xuất hiện khi mở form "fmContacts": tôi đã kiểm tra không thấy lỗi này xuất hiện như Bạn đã gặp. Bạn kiểm tra xem có Form "frmlogin" hiện hữu trong file ứng dụng hay không? Nếu không có, Bạn cần phải tải lại file ứng dụng. Để tiện cho Bạn theo dõi tôi upload đính kèm file ứng dụng trong bài này luôn.

 

[tin_jimmy]

chào bạn mình có một lỗi trong access là khi minh upadate csdl thì nó báo là đã có người dùng khác sửa trước mặt dù ko có ai ngoài tui..CODE]https://skydrive.live.com/redir?resid=6AA5E28C7FECD5C4!642&authkey=!AOJBLcFPTaZmE2s[/CODE]
mong cao thủ chỉ dại

 

[lehongduc]

Xin chào các Bạn,
Theo yêu cầu của một số Bạn cần cập nhật lại file ứng dụng làm mẫu minh hoạ loạt bài này, tôi đã cho bổ sung, chỉnh lý và đã cập nhật lại link tải file này ngay trong bài số #1
Xin các Bạn tham khảo lại bài #1 để lấy link tải về.
Cũng theo yêu cầu của nhiều Bạn qua email, tôi sẽ có bài hướng dẫn chi tiết hơn về một số phương cách thiết kế form có subform theo dạng Unbound form (đã có thiết kế mẫu minh hoạ trong file nêu trên). Xin các Bạn vui lòng chờ đến sáng mai.
Chúc các Bạn nhiều sức khoẻ và thành công.

 

[lehongduc]

Chào các Bạn,
Xin trao đổi thêm để các Bạn tiện tham khảo file ứng dụng làm mẫu minh hoạ tôi mới cập nhật.

1. Theo đề nghị của nhiều Bạn, tôi đã cho phục hồi file SQL Server database truy xuất được qua internet, đồng thời bổ sung thêm số lượng dữ liệu nhiều hơn trước để các Bạn có thể kiểm tra được tốc độ truy xuất nhằm mục đích giúp tối ưu hoá các dòng lệnh truy xuất dữ liệu trong ứng dụng.

2. Tôi đã chỉnh lý các form nhập dữ liệu với nội dung như sau:
- Chỉnh lý form frmContacts giúp cho việc tìm kiếm dữ liệu đã có được thuận tiện hơn.
Cách tìm kiếm như sau: khi muốn tìm dữ liệu theo 1 chi tiết thông tin nào đó ta chỉ cần nhập vào 1 vài ký tự có trong dòng thông tin đó (mà không cần nhập toàn bộ dòn thông tin cần tìm) tại ô tương ứng rồi bấm nút lệnh "Tìm kiếm"
Thí dụ: để tìm những khách hàng nào có địa chỉ ở tại "Cam Ranh" (có từ này trong dòng ghi địa chỉ) ta nhập từ "Cam Ranh" vào ô ghi địa chỉ rồi bấm nút lệnh tìm kiếm.
Code phục vụ cho việc tìm kiếm theo kiểu này như sau:

Function BuildSQLWhere(blnPriorWhere As Boolean, strPriorWhere As String, strValue As String, strDbFieldName As String) As String


On Error GoTo HandleError

Dim strWhere As String

If blnPriorWhere Then
'add to the existing where clause
strWhere = strPriorWhere & " AND "
Else
'create the where clause for the first time
strWhere = " WHERE "
End If

If strDbFieldName = "Ngaysinh" Then
strWhere = strWhere & strDbFieldName & " = '" & Format$(strValue, "dd-mmm-yy") & "' "
Else
'build where clause using LIKE so will find both exact
'matches and those that start with value input by user
If strDbFieldName = "Gioitinh" Then
strWhere = strWhere & strDbFieldName & " = " & PadQuotes(strValue) & " "
Else
strWhere = strWhere & strDbFieldName & " LIKE N'%" & PadQuotes(strValue) & "%' "
End If
End If

blnPriorWhere = True

'return where clause
BuildSQLWhere = strWhere

Exit Function


HandleError:
GeneralErrorHandler Err.Number, Err.Description, DB_QUANLY, "BuildSQLWhere"
Exit Function


End Function

Các Bạn chú ý đoạn code trên có dòng ghi:

strWhere = strWhere & strDbFieldName & " LIKE N'%" & PadQuotes(strValue) & "%' "

Đây là điều kiện lọc dữ liệu để tìm. Ta chú ý 2 dấu % đặt ở 2 đầu trong dòng trên có ý nghĩa "dữ liệu cần tìm bắt đầu và kết thúc bằng gì cũng được miễn là có sự hiện diện của từ được cung cấp bởi biến strValue là được".
Việc sử dụng ký tự % như vậy có khác với thông thường trong Access là hay dùng dấu ? hay *, đây chính là quy ước của câu lệnh SQL trong SQL Server. Ta phải viết theo đúng quy ước của SQL Server vì ứng dụng này chủ yếu là gửi các câu lệnh SQL truy xuất dữ liệu đến SQL Server.

- Chỉnh lý form nhập chứng từ nhập xuất phát sinh frmCtuNX:
+ Khi cần tìm chứng từ đã nhập theo số chứng từ: tại ô nhập số chứng từ (là kiểu comboBox) ta chỉ cần nhập 1 vài ký tự có trong số chứng từ đã nhập rồi bấm phím F4 sẽ được 1 danh sách sổ xuống liệt kê các số chứng từ có chứa ký tự đã nhập trong đó.
+ Khi cần chọn 1 khách hàng xác định: ta cũng làm tương tự tại ô khách hàng (cũng là 1 comboBox)
Vấn đề cần chú ý ở đây là ta đã cho hạn chế dữ liệu hiển thị trong các comboBox trong giới hạn vừa đủ với nhu cầu.

Còn nữa các Bạn ạ. Xin hẹn bài kế tiếp ta lại tiếp tục với những chú ý khi thiết kế form có subform theo dạng Unbound form thông qua form frmCtuNX vừa nêu ở trên.

 

[lehongduc]

Nếu có thời gian xin anh hướng dẫn thêm về cách cài đặt SQL Server và cấu hình router để truy vấn dữ liệu qua Internet. Có thể có nhiều người chưa biết cái bước quan trọng này thì làm sao mà thực hiện và áp dụng được bước thứ 2 của anh đang hướng dẫn.

Xin chào các Bạn,

Các Bạn có thể tìm thấy tài liệu hướng dẫn chi tiết về vấn đề này tại trang http://bis.net.vn

Hoặc tải xuống bản in tài liệu này từ link sau: http://www.mediafire.com/view/bcsk4nwfiwub17j/HuongdanCauhinhSQLServerDeTruyxuatQuaInternet.doc

 

[lehongduc]

Xin chào các Bạn,

Trong bài này xin trao đổi với các Bạn về thiết kế Unbound Form có chứa Subform. SubForm là Form nằm bên trong 1 Form khác.
Như tôi đã trao đổi tại bài #18, trái ngược với Bound Form luôn gắn liền với 1 nguồn dữ liệu xác định (được khai báo tại thuộc tính Record Source), Unbound Form là Form không gắn với một nguồn dữ liệu nào cả.
Đó chính là căn nguyên khiến 1 Unbound Form tránh được xung đột dữ liệu trong quá trình có nhiều người cùng truy xuất dư liệu, hoặc tuy chỉ có mỗi mình ên mần công chuyện với dữ liệu đó nhưng hổng dè đã “mở” nó ra mà quên “đóng” nó lại.
Những điều cần chú ý khi thiết kế 1 Unbound Form tôi đã trình bày tại #18, trong bài này chỉ tập trung vào việc thiết kế 1 Unbound Form nhưng lại có SubForm.
Một ví dụ điển hình cho nhu cầu này là thiết kế Form nhập chứng từ nhập xuất (dưới đây gọi là Main Form), với 1 Subform trình bày chi tiết các mặt hàng phát sinh.

1. Việc đầu tiên ta cần làm là làm sao để nạp thông tin của 1 chứng từ xác định xuống ô dữ liệu tương ứng trên Form khi cần (vì Unbound Form không duy trì thường trực 1 nguồn dữ liệu gắn kết với nó mà).
Đây chính là trường hợp ta cần làm việc với thông tin của 1 chứng từ xác định đã lập trước.
Trong file minh hoạ, công việc này được thực hiện thông qua các thủ tục:
+ LoadInvoiceInfoToForm: Nạp thông tin chứng từ lên Form

Sub LoadInvoiceInfoToForm(SoCtuSt, Optional NoSetSourceRecForSubForm)
Dim sqlSt As String, SQLrec As ADODB.Recordset
Dim KHrec As ADODB.Recordset
Dim tblName As String, MSKH, vIdKH As Long
‘Xác định nguồn dữ liệu chứa thông tin của chứng từ cần nạp
tblName = "tblctunx"
If IsNull(SoCtuSt) Then Exit Sub
sqlSt = "SELECT * FROM " & GetSchemaTable(tblName) & "." & tblName
sqlSt = sqlSt & " WHERE soctu ='" & SoCtuSt & "'"

Set SQLrec = ProcessRecordset(sqlSt)
'Nếu chứng từ hiện hữu, cho ghi thông tin chi tiết của chứng từ lên các ô dữ liệu tương ứng của Form
If SQLrec.RecordCount > 0 Then
Set objKhachHang = New clsDanhba
With Me
.txtId = SQLrec!id
.txtNgay = SQLrec!Ngay
.cmbNghiepvu = SQLrec!MSNV
.txtTsuat = SQLrec!tsuatvat
.txtNguoiGiaodich = SQLrec!NguoiGiaodich

MSKH = SQLrec!MSKH

sqlSt = "SELECT * FROM " & GetSchemaTable("tblDanhsach") & ".tblDanhsach"
sqlSt = sqlSt & " WHERE MSKH = '" & MSKH & "'"
Set KHrec = ProcessRecordset(sqlSt)
objKhachHang.PopulatePropertiesFromRecordset KHrec

.cmbKhachhang.RowSourceType = "Value List"
.cmbKhachhang.RowSource = objKhachHang.HoChulot & ";" & objKhachHang.MaKhachHang
.cmbKhachhang = objKhachHang.MaKhachHang

.txtDiachi = objKhachHang.Diachi
.txtPhone = objKhachHang.Dtvp
.txtMasoThue = objKhachHang.Msthue

KHrec.Close
Set KHrec = Nothing
' Và nạp nguồn dữ liệu chi tiết các mặt hàng phát sinh cho Subform
If IsMissing(NoSetSourceRecForSubForm) Then SetSourceRecForSubForm Me, "frmCtuNXCT"

End With
End If
'
SQLrec.Close
Set SQLrec = Nothing
End Sub

+ Để nạp nguồn dữ liệu chi tiết các mặt hàng phát sinh cho Subform ta dùng thủ tục SetSourceRecForSubForm

Sub SetSourceRecForSubForm(mForm As Form, sForm As String)
Dim sqlSt As String
Dim SQLrec As ADODB.Recordset
Dim tblName As String
Dim vSoCtu, stChema As String
‘
vSoCtu = mForm!cmbSoCtu
‘Xác định nguồn dữ liệu chứa thông tin chi tiết hàng hoá phát sinh của chứng từ cần nạp
If Not IsNull(vSoCtu) Then
tblName = "tblctunxct"
stChema = GetSchemaTable(tblName)
sqlSt = "SELECT " & stChema & ".tbldmhanghoa.tenhanghoa, " & stChema & ".tblctunxct.*"
sqlSt = sqlSt & " FROM " & stChema & ".tbldmhanghoa INNER JOIN " & stChema & ".tblctunxct"
sqlSt = sqlSt & " ON " & stChema & ".tbldmhanghoa.mahang=" & stChema & ".tblctunxct.mahang"
sqlSt = sqlSt & " WHERE " & stChema & ".tblctunxct.soctu = '" & vSoCtu & "'"

Set SQLrec = ProcessRecordset(sqlSt)

Set mForm(sForm).Form.Recordset = SQLrec
‘Nạp thông tin chi tiết lên các ô dữ liệu tương ứng trên SubForm
With mForm(sForm).Form
.Requery
!txtId.ControlSource = "id"
!txtMahang.ControlSource = "mahang"
!txtTenHanghoa.ControlSource = "tenhanghoa"
!txtCapDvt.ControlSource = "dvt"
!txtDvt.ControlSource = "=IIF(not isnull(dvt),flookup('kihieu','tbldonvitinh','cap=' & [dvt]),'')"
!txtSoluong.ControlSource = "soluong"
!txtDongia.ControlSource = "dongia"
!chkCKTL.ControlSource = "lacktyle"
!txtMucCK.ControlSource = "mucck"
End With
SQLrec.Close
Set SQLrec = Nothing
End If
End Sub

Như vậy, khi ta chọn 1 số chứng từ xác định, ứng dụng sẽ cho chạy các thủ tục nêu trên để nạp nguồn dữ liệu tương ứng cho Main Form và SubForm.
Ta gán các thủ tục cần thực hiện với sự kiện ngay sau khi số chứng từ được cập nhật (cmbSoCtu_AfterUpdate)

Private Sub cmbSoCtu_AfterUpdate()
Dim vSoCtu
ClearInputCTHH ‘Xoá trống các ô nhập chi tiết hàng hoá
vSoCtu = Trim(Me.cmbSoCtu.Text)
LoadInvoiceInfoToForm vSoCtu ‘Nạp thông tin chứng từ đã chọn lên MainForm và SubForm
End Sub

Vậy khi cần hiệu chỉnh chi tiết chứng từ đã lập và đang hiển thị trên Form thì làm sao?
Thật đơn giản các Bạn ạ:
+ Đối với thông tin là chi tiết hàng hoá phát sinh: ta chỉ cần chuyển con trỏ đến dòng ghi mặt hàng cần hiệu chỉnh là ứng dụng sẽ copy các thông tin đó lên các ô có nền sẩm màu sẵn sàng cho ta hiệu chỉnh (hoặc xoá). Hiệu chỉnh xong ta bấm nút lệnh ghi bên phải (có hình chiếc đĩa mềm) để cho ghi lại nội dung vừa ddiiefu chỉnh.
Việc này được thực hiện thông qua thủ tục SaveToInvoiceDetailFromForm

Sub SaveToInvoiceDetailFromForm(Optional InVoiceDetailId)
'Luu thong tin tren form vao tblctunxCT
'UpdateInvoiceDetail
On Error GoTo HandleError

Dim sqlSt As String, tblName As String
Dim vId
Dim MucCK As Double, CKTL As Byte

Call OpenMyConnection

tblName = "tblctunxct"
With Me
vId = Me.txtDetailId
MucCK = Nz(.txtMucCK)
If IsNull(.chkCKTL) Then
CKTL = 0
Else
If .chkCKTL.Value = True Then
CKTL = 1
Else
CKTL = 0
End If
End If
‘Phân biệt là trường hợp nhập mới hay hiệu chỉnh lại dữ liệu đã có.
If Not IsNull(vId) Then
sqlSt = "UPDATE " & GetSchemaTable(tblName) & "." & tblName & " SET "
sqlSt = sqlSt & " soctu ='" & Trim(.cmbSoCtu) & "',"
sqlSt = sqlSt & " mahang ='" & .cmbMSHH & "',"
sqlSt = sqlSt & " dvt =" & .cmbDvt & ","
sqlSt = sqlSt & " soluong =" & .txtSoluong & ","
sqlSt = sqlSt & " dongia =" & .txtDongia & ","
sqlSt = sqlSt & " lacktyle =" & CKTL & ","
sqlSt = sqlSt & " mucck =" & MucCK
sqlSt = sqlSt & " WHERE ("
sqlSt = sqlSt & " soctu='" & Trim(Me.cmbSoCtu) & "'"
sqlSt = sqlSt & " AND id=" & InVoiceDetailId
sqlSt = sqlSt & ")"
Else
sqlSt = "INSERT INTO " & GetSchemaTable(tblName) & "." & tblName
sqlSt = sqlSt & "(soctu, mahang, dvt, soluong, dongia, lacktyle, mucck)"
sqlSt = sqlSt & " VALUES ("
sqlSt = sqlSt & " '" & Trim(.cmbSoCtu) & "',"
sqlSt = sqlSt & " '" & .cmbMSHH & "',"
sqlSt = sqlSt & " " & .cmbDvt & ","
sqlSt = sqlSt & " " & .txtSoluong & ","
sqlSt = sqlSt & " " & .txtDongia & ","
sqlSt = sqlSt & " " & CKTL & ","
sqlSt = sqlSt & " " & Nz(MucCK)
sqlSt = sqlSt & ")"
End If
End With


MyConn.Execute sqlSt

Call CloseMyConnection ‘Dùng xong rồi thì đóng lại cho đỡ tốn tài nguyên và khỏi gặp xung đột dữ liệu đó các Bạn.

HandleError:
If Err > 0 Then
GeneralErrorHandler Err.Number, Err.Description, NhapXuat_FORM, "SaveToInvoiceDetailFromForm"
Exit Sub
End If
End Sub

Ở đây chúng ta chú ý: có 2 trường hợp cần phân biệt là nhập mới và hiệu chỉnh thông tin đang có.
Xem trong thủ tục trên chúng ta thấy thủ tục có phân biệt 2 trường hợp này bằng cách xet giá trị của ô txtDetailId, đây là ô chứa giá trị Id của chi tiết hàng hoá phát sinh. Trong thiết kế, ta cho ô này ẩn đi (bằng cách khai báo thuộc tính Visible = False). Nếu ô này có chứa nội dung xác định thì là trường hợp hiệu chỉnh dữ liệu đang có, ngược lại nếu nó rổng không (IsNull) là trường hợp nhập mới.
Trường hợp muốn xoá dòng ghi chi tiết hàng phát sinh xác định: ta cho nạp dòng ghi chi tiết hàng hoá đó lên các ô sẩm màu rồi bấm nút lệnh Xoá (có hình gạch chéo) nằm bên trái dòng của các ô sẩm màu này.
Thủ tục tương ứng như sau:

Dim vHoi As Long, sqlSt As String, tblName As String
Dim DetailId
DetailId = Me.txtDetailId
If Not IsNull(DetailId) Then
vHoi = Eval("msgbox('" & "Ban vua ra lenh cho xoa dong ghi mat hang nay" & vbCrLf & "Co phai Ban chac chan muon Xoa hay khong?" & "@" & "Bam YES de xoa, bam NO de huy bo lenh nay" & "@" & "',36,'Xoa chi tiet hang hoa')")
If vHoi = vbYes Then
tblName = "tblctunxct"
sqlSt = "DELETE " & GetSchemaTable(tblName) & "." & tblName
sqlSt = sqlSt & " WHERE Id =" & DetailId
'
Call OpenDbConnection
ExecuteSQLCommand sqlSt
Call CloseDbConnection
'Xoá xong thì cho cập nhật lại nội dung hiển thị trên SubForm
SetSourceRecForSubForm Me, "frmCtuNXCT"
End If
End If

+ Đối với thông tin chung của chứng từ: cũng tương tự như trên, ta hiệu chỉnh thông tin tại các ô tương ứng; và cũng phân biệt 2 trường hợp: nhập mới và hiệu chỉnh thông tin đang có. Việc ghi lại các thông tin đã cập nhật vào bảng dữ liệu ghi chứng từ phát sinh được thực hiện bằng thủ tục SaveToInvoiceFromForm

Sub SaveToInvoiceFromForm(Optional InvoiceId, Optional NoLoadInfo)
'Luu thong tin tren form vao tblctunx

'UpdateOrInsert:
'+ True: Luu thong tin thay doi vao mau tin dang hien huu
'+ Flase: Them mau tin moi

'InvoiceId: so chung tu
'
On Error GoTo HandleError

Dim sqlSt As String, tblName As String
Dim vId

Call OpenMyConnection

tblName = "tblctunx"

With Me
vId = Me.txtId
If Not IsNull(vId) Then
If IsNull(InvoiceId) Then Exit Sub
sqlSt = "UPDATE " & GetSchemaTable(tblName) & "." & tblName & " SET "
sqlSt = sqlSt & " soctu ='" & .cmbSoCtu & "',"
sqlSt = sqlSt & " ngay ='" & Format$(.txtNgay, "dd-mmm-yy") & "',"
sqlSt = sqlSt & " msnv ='" & .cmbNghiepvu & "',"
sqlSt = sqlSt & " mskh ='" & .cmbKhachhang & "'"
If Not IsNull(.txtNguoiGiaodich) Then sqlSt = sqlSt & ", nguoigiaodich ='" & .txtNguoiGiaodich & "'"
If Not IsNull(.txtTsuat) Then sqlSt = sqlSt & ", tsuatvat =" & .txtTsuat
sqlSt = sqlSt & " WHERE ("
sqlSt = sqlSt & " soctu='" & InvoiceId & "'"
sqlSt = sqlSt & ")"

Else
If IsNull(.cmbSoCtu) Then Exit Sub
sqlSt = "INSERT INTO " & GetSchemaTable(tblName) & "." & tblName
sqlSt = sqlSt & "(soctu, ngay, msnv, mskh"
If Not IsNull(.txtNguoiGiaodich) Then sqlSt = sqlSt & ", nguoigiaodich"
If Not IsNull(.txtTsuat) Then sqlSt = sqlSt & ", tsuatvat"
sqlSt = sqlSt & ")"
sqlSt = sqlSt & " VALUES ("
sqlSt = sqlSt & " '" & .cmbSoCtu & "',"
sqlSt = sqlSt & " '" & Format$(.txtNgay, "dd-mmm-yy") & "',"
sqlSt = sqlSt & " '" & .cmbNghiepvu & "',"
sqlSt = sqlSt & " '" & .cmbKhachhang & "'"
If Not IsNull(.txtNguoiGiaodich) Then sqlSt = sqlSt & ", '" & .txtNguoiGiaodich & "'"
If Not IsNull(.txtTsuat) Then sqlSt = sqlSt & ", " & .txtTsuat
sqlSt = sqlSt & ")"
End If
End With

MyConn.Execute sqlSt

‘Lưu xong thì cho cập nhật lại các thông tin đã lưu lên Form.
If IsMissing(NoLoadInfo) Then
LoadInvoiceInfoToForm Me.cmbSoCtu
Else
LoadInvoiceInfoToForm Me.cmbSoCtu, True
End If

Call CloseMyConnection ‘Mở ra xài xong thì đóng lại

HandleError:
If Err > 0 Then
GeneralErrorHandler Err.Number, Err.Description, NhapXuat_FORM, "SaveToInvoiceFromForm"
Exit Sub
End If
End Sub

Trong thủ tục trên ta chú ý đoạn

If IsMissing(NoLoadInfo) Then
LoadInvoiceInfoToForm Me.cmbSoCtu
Else
LoadInvoiceInfoToForm Me.cmbSoCtu, True
End If

Cho Lưu xong thì cho cập nhật lại các thông tin đã lưu lên Form. Cái này cần để ghi bổ sung những thông tin chỉ phát sinh khi dữ liệu được ghi vào bảng dữ liệu, chẳng hạn như chỉ số Id tự động của bản ghi, hoặc các giá trị tính toán cần thiết khác.
Khi ghi dữ liệu vào bảng dữ liệu, chúng ta cần chú ý đến 1 thực tế là có những thông tin chi tiết của chứng từ không nhất thiết lúc nào cũng có. Do vậy khi ta viết các thủ tục cập nhật phải chú ý đến các trường hợp này. Các Bạn có thể thấy điều này được thể hiện ở những dòng sau đây trong thủ tục nêu trên:

If Not IsNull(.txtNguoiGiaodich) Then sqlSt = sqlSt & ", '" & .txtNguoiGiaodich & "'"
If Not IsNull(.txtTsuat) Then sqlSt = sqlSt & ", " & .txtTsuat

Ở đây tôi xác định các chi tiết: Người trực tiếp giao dịch, thuế suất VAT là những chi tiết thông tin không phải lúc nào cũng bắt buộc phải có khi lập chứng từ nên đã dự liệu bằng các statement IF... THEN ...

Bài đã dài. Xin hẹn các Bạn trong bài sau.

 

[lehongduc]

Chào các Bạn,
Có Bạn vừa gửi email cho tôi góp ý rằng sao ta không phát triển thủ tục SetSourceRecForSubForm lên để áp dụng cho việc nạp RecordSource cho subform trong mọi trường hợp, chứ không phải chỉ riêng cho 1 trường hợp như tôi đã làm.
Đây là một góp ý rất chí lý. Vậy xin mời các Bạn tham gia viết lại thủ tục SetSourceRecForSubForm theo hướng phát triển được đề nghị nêu trên.

 

[ngocanhwin]

Chào ban lehongduc.
Tôi là người mới tiếp cận access nên kiến thức chưa có nhiều mà chỉ đọc và ngẩm chưa thể thực hiện đc như các bạn. Tôi xin hỏi bạn một vấn đề sau:
Tôi đang có 1 file mdb dùng cho nhiều máy tính khác nhau, trong file mdb này có rất nhiều table. Trong số các table đó có một số table phải nhập dữ liệu trực tiếp vào để các table khác thực thi dữ liệu. Vậy tôi muốn tạo 1 file database mdb dữ liệu do mình nạp dữ liệu vào các table cần thiết mỗi khi có dữ liệu mới sau đó sẽ truyền dữ liệu từ file nạp vào đến các file thực thi trên các máy tính khác với mục đích để cho đồng nhất dữ liệu.
Ý tôi là chỉ cần 1click thì dữ liệu sẽ đc nạp vào file thực trên các máy tính khác thông qua internet hoặc mạng nội bộ.
Kiến thức của tôi giới hạn nếu đc bạn hãy cho ví dụ minh họa, cảm ơn ban nhiều.

 

[lehongduc]

Xin chào Bạn,
Trong Microsoft Access không thể có table mà lại thực thi được dữ liệu như Bạn đã ghi

... Trong số các table đó có một số table phải nhập dữ liệu trực tiếp vào để các table khác thực thi dữ liệu.

Bản thân các tables chỉ là tập hợp các mẫu tin đơn thuần, không có khả năng "thực thi" được việc xử lý dữ liệu.

 

[lehongduc]

Chào các Bạn,

Theo yêu cầu của nhiều Bạn, tôi xin giới thiệu các tài liệu tôi đã tham khảo làm cơ sở cho bài viết này, đó là các tài liệu "Beginning Access ... VBA" và "Professional Access ... Programming"
Các Bạn có thể dùng Google để tìm thấy các tài liệu trên.

Chúc sức khoẻ các Bạn.