Giáo trình Hệ thống thông tin kế toán 3 - Excel kế toán (Phần 2)
TẠO MỚI TỆP ACCESS
Một dự án Access (Access project) là một hoặc nhiều tệp Access nhằm giải
quyết một công việc lớn nào đó. Khuôn khổ giáo trình này chỉ trình bày những dự án
có 1 tệp.
Tệp Access có phần mở rộng *.MDB (ngoài ra những tệp có phần mở rộng
*.DBE cũng mở được nhưng chỉ có thể thực thi chứ không chỉnh sửa được cấu trúc).
Có 5 thành phần chính trên một tệp:
Tables – nơi chứa toàn bộ các bảng dữ liệu
Queries – nơi chứa toàn bộ các truy vấn dữ liệu đã được thiết kế;
Forms – nơi chứa các mẫu giao diện phần mềm;
Reports – nơi chứa các mẫu báo cáo đã được thiết kế;
Macro – nơi chứa các Macro lệnh phục vụ dự án;
Modules – nơi chứa các khai báo, các thư viện chương trình con phục vụ dự án.
Thông thường mỗi tệp Access cần phải làm việc trên tất cả các thành phần trên.
Để bắt đầu tạo một tệp mới, chọn mục Blank Access database, tiếp theo nhấn
OK, hộp thoại sau xuất hiện yêu cầu chọn nơi (thư mục) lưu trữ và đặt tên tệp Chu
trình doanh thu:
Hãy chọn nơi lưu trữ ở hộp Save in; gõ vào tên tệp ở mục File Name; nhấn
để ghi lại thiết lập. Đến đây đã sẵn sàng sử dụng tệp Access vừa khai báo.
Tóm tắt nội dung tài liệu: Giáo trình Hệ thống thông tin kế toán 3 - Excel kế toán (Phần 2)
1
TRƯỜNG ĐẠI HỌC NHA TRANG
KHOA KẾ TOÁN – TÀI CHÍNH
BỘ MÔN KIỂM TOÁN
BÀI GIẢNG
HỆ THỐNG THÔNG TIN KẾ TOÁN 4
(ACCESS KẾ TOÁN)
Giảng viên giảng dạy
ThS. Nguyễn Thành Cường
Ngô Xuân Ban
Bùi Mạnh Cường
Đỗ Thị Ly
Phạm Đình Tuấn
Lưu hành nội bộ
2
MỤC LỤC
Phần 1: KHÁI QUÁT VỀ MICROSOFT ACCESS _______________ 2
1. Chương trình Access __________________________________________________2
2. Khởi động___________________________________________________________2
3. Tạo mới tệp Access ___________________________________________________3
4. Môi trường làm việc___________________________________________________4
5. Mở tệp đã tồn tại _____________________________________________________5
6. Thoát khỏi Access ____________________________________________________5
Phần 2: XÂY DỰNG CƠ SỞ DỮ LIỆU____________________________________6
1. Khái niệm về cơ sở dữ liệu Access _______________________________________6
2. Liên kết các bảng dữ liệu _______________________________________________9
Phần 3: _____________________________________________________________17
XÂY DỰNG CHƯƠNG TRÌNH KẾ TOÁN TRÊN MS ACCESS
1. Đặt vấn đề, giới thiệu mục tiêu chương trình xây dựng ______________________17
2. Hệ thống dữ liệu_____________________________________________________17
2.1. Bảng dat_tblBDMTKTongHop ______________________________________17
2.2. Bảng dat_tblBDMTK ______________________________________________18
2.3. Bảng dat_KyKeToan_______________________________________________18
2.4. Bảng dat_tblSoDauKy _____________________________________________19
2.5. Bảng dat_tblNgiepVu ______________________________________________20
2.6. Bảng dat_tblSoKTMay _____________________________________________22
2.7. Bảng dat_tblCompanyInfo __________________________________________23
3. Xây dựng mối quan hệ giữa các bảng ____________________________________24
4. Tạo Form khởi động và xây dựng các query cơ sở __________________________24
4.1. Tạo Form khởi động cho chương trình _________________________________24
4.2. Xây dựng các query cơ sở___________________________________________26
4.2.1. Query Qry_0_SoDuDK: _________________________________________26
4.2.2. Query QrySoKTMay_TenTKNoCo: ________________________________27
4.2.3. Query QrySoKTMay:____________________________________________27
4.2.4. Query QrySoKTMay_TKTH______________________________________28
4.2.5. Query QryBDMTK:_____________________________________________29
5. Xây dựng các sổ sách kế toán __________________________________________32
5.1. Bảng tổng hợp chi tiế 131: __________________________________________32
5.2. Bảng tổng hợp chi tiết TKxx: ________________________________________35
5.3. Nhật ký chung: ___________________________________________________36
5.4. Sổ chi tiết chi phí: _________________________________________________37
5.5. Sổ Cái:__________________________________________________________39
5.6. Bảng tổng hợp chi tiết các TK: _______________________________________41
5.7. Phiếu thu: _______________________________________________________43
5.8. Phiếu nhập xuất kho:_______________________________________________46
BÀI TẬP ỨNG DỤNG: ________________________________________________50
TÀI LIỆU THAM KHẢO: _____________________________________________52
3
Phần 1. KHÁI QUÁT VỀ MICROSOFT ACCESS
1. CHƯƠNG TRÌNH ACCESS
1.1 Tệp chứa Chương trình Access
Mỗi một tệp Chương trình thường có một đuôi qui định, ví dụ các tệp Chương
trình C có đuôi là .C, tệp Chương trình Pascal có đuôi là PAS, tệp Chương trình
Foxpro có đuôi là .PRG.Một tệp Chương do Access tạo ra có đuôi là .MDB
1.2 Một hệ Chương trình do Access tạo ra (hệ Chương trình Access)
Chương trình Access gọi là một Database (CSDL). Trong các ngôn ngữ
truyền thống như C, Pascal, Foxpro, một hệ Chương trình gồm các tệp Chương trình và
các tệp dữ liệu được tổ chức một cách riêng biệt. Nhưng trong Access toàn bộ Chương
trình và dữ liệu được chứa trong một tệp duy nhất có đuôi .MDB. như vậy thuật ngữ hệ
Chương trình hay CSDL được hiểu là tổ hợp bao gồm cả Chương trình và dữ liệu. Để
ngắn gọn nhiều khi ta gọi là Chương trình thay cho thuật ngữ hệ Chương trình. như vậy
dưới đây khi nói đến Chương trình hay hệ chương trình hay CSDL thì cùng có nghĩa
đó là một hệ phần mềm gồm cả Chương trình và dữ liệu do Access tạo ra.
2. KHỞI ĐỘNG
Mở lệnh Start / Programs / Microsoft office/ Microsoft office access của
Window; Sau khi chọn xong ta có môi trường access như sau:
Sau đó chọn File/ New hoặc biểu tượng New trên màn hình
4
Chọn Blank Access database để bắt đầu tạo một tệp Access mới (tạo mới tệp)
Hoặc Access database wizard, page, and project để tạo một CSDL theo mẫu có sẵn
(không trình bày trong giáo trình này); Hoặc file/ open để mở tệp Access đã tồn tại để
làm việc tiếp.
3. TẠO MỚI TỆP ACCESS
Một dự án Access (Access project) là một hoặc nhiều tệp Access nhằm giải
quyết một công việc lớn nào đó. Khuôn khổ giáo trình này chỉ trình bày những dự án
có 1 tệp.
Tệp Access có phần mở rộng *.MDB (ngoài ra những tệp có phần mở rộng
*.DBE cũng mở được nhưng chỉ có thể thực thi chứ không chỉnh sửa được cấu trúc).
Có 5 thành phần chính trên một tệp:
Tables – nơi chứa toàn bộ các bảng dữ liệu
Queries – nơi chứa toàn bộ các truy vấn dữ liệu đã được thiết kế;
Forms – nơi chứa các mẫu giao diện phần mềm;
Reports – nơi chứa các mẫu báo cáo đã được thiết kế;
Macro – nơi chứa các Macro lệnh phục vụ dự án;
Modules – nơi chứa các khai báo, các thư viện chương trình con phục vụ dự án.
Thông thường mỗi tệp Access cần phải làm việc trên tất cả các thành phần trên.
Để bắt đầu tạo một tệp mới, chọn mục Blank Access database, tiếp theo nhấn
OK, hộp thoại sau xuất hiện yêu cầu chọn nơi (thư mục) lưu trữ và đặt tên tệp Chu
trình doanh thu:
5
Hãy chọn nơi lưu trữ ở hộp Save in; gõ vào tên tệp ở mục File Name; nhấn
để ghi lại thiết lập. Đến đây đã sẵn sàng sử dụng tệp Access vừa khai báo.
4. MÔI TRƯỜNG LÀM VIỆC
Sau khi một tệp Access được mở, môi trường làm việc trên Access xuất hiện với
những thành phần như sau:
Chọn thư mục trên đĩa, nơi sẽ
lưu tệp Chu trình doanh thu
Gõ tên tệp cần lưu
Creat
Hệ thống thực đơn (menu)
và các thanh công cụ
(Toolbar)- nơi thực hiện
các lệnh khi cần
Cửa sổ tệp Access đang làm việc bao gồm 7
phần chính: Tables, Queries,
Forms, Reports, Pages, Macros và Modules.
làm việc trên từng phần này trong các chương
tiếp theo.
6
5. MỞ TỆP ĐÃ TỒN TẠI
Mỗi tệp Access phải tạo mới duy nhất một lần, được mở ra làm việc và ghi lại
trong những lần tiếp theo. Để mở một tệp Access đã tồn tại để làm việc, làm như sau:
Bước 1: Từ môi trường Access gọi thực đơn:File | Open (hoặc nhấn nút
trên thanh công cụ), hộp thoại Open xuất hiện:
Bước 2: Tìm đến tệp Access cần mở trên hộp thoại Open bằng cách:
Tìm đến thư mục – nơi chứa tệp Access cần mở ở hộp Look in; Tiếp theo chọn
tệp Access cần mở trên danh sách và nhấn nút Open hoặc Enter.
Đến đây cửa màn hình làm việc Access với tệp vừa mở xuất hiện để tiếp tục làm
việc.
6. THOÁT KHỎI ACCESS
Khi không làm việc với Access, hãy ra lệnh thoát khỏi Access bằng một trong
các cách:
Mở thực đơn File | Exit;
Nhấn tổ hợp phím nóng Alt + F4;
Hoặc sử dụng nút Close trên cửa sổ Access đang mở.
7
Phần 2. XÂY DỰNG CƠ SỞ DỮ LIỆU
Xây dựng CSDL là công việc quan trọng đầu tiên trong toàn bộ qui trình phát
triển một ứng dụng trên Access. Một CSDL được thiết kế và xây dựng tốt sẽ là những
thuận lợi, những tự tin đầu tiên để bước vào một qui trình phát triển ứng dụng; nhưng
trái lại sẽ là một thảm họa cho dự án đang phát triển: sẽ thường xuyên gặp phải những
khó khăn để phải chỉnh sửa lại CSDL và tồi tệ hơn, dự án có thể phải thực hiện lại từ
đầu do việc thiết kế CSDL quá kém.
Trong phần này sẽ trình bày các khái niệm cũng như các kỹ năng để có thể tiếp
cận và xây dựng được các hệ CSDL trên Acces, cụ thể là:
Tạo cấu trúc các bảng dữ liệu;
Thiết lập thuộc tính LookUp;
Thiết lập quan hệ và các thuộc tính đảm bảo toàn vèn dữ liệu;
Nhập dữ liệu cho CSDL;
Đặc biệt là qui trình xây dựng một CSDL Access.
1. Các khái niệm về CSDL Access
1.1. CSDL Access
CSDL Access là một đối tượng bao gồm tập hợp các bảng dữ liệu, các kết nối giữa
các bảng được thiết kế một cách phù hợp để phục vụ lưu trữ dữ liệu cho một ứng dụng
quản lý dữ liệu nào đó.
Ví dụ: CSDL Chu trình doanh thu tại công ty KIJ bao gồm tập hợp các bảng dữ
liệu: VANPHONG, NHANVIEN, KHACHHANG, HANGHOA, HOADON,
CHITIETHOADON, được kết nối với nhau một cách phù hợp phục vụ lưu trữ dữ liệu
cho ứng dụng quản lý học sinh một trường học. Toàn bộ cấu trúc CSDL quản lý học
sinh trên Access được mô tả như sau:
8
1.2 Bảng dữ liệu
Bảng dữ liệu (Tables) là một phần quan trọng nhất của CSDL; Là nơi lưu trữ
những dữ liệu tác nghiệp cho ứng dụng. Một CSDL có thể có rất nhiều bảng, các bảng
phải được thiết kế sao cho có thể lưu trữ được đầy đủ dữ liệu cần thiết, đảm bảo giảm
tối đa tình trạng gây dư thừa dữ liệu (dư thừa dữ liệu được hiểu đơn giản là tình trạng
lưu trữ những dữ liệu không cần thiết trên một số bảng. Tác hại của hiện tượng này sẽ
gây: sai lệch dữ liệu tác nghiệp và làm tăng dung lượng dữ liệu không cần thiết); giảm
tối đa dung lượng CSDL có thể, đồng thời tạo môi trường làm việc thuận lợi cho việc
phát triển ứng dụng trong các bước tiếp theo.
Một bảng dữ liệu trên Access bao gồm các thành phần: Tên bảng, các trường dữ
liệu, trường khoá, tập hợp các thuộc tính cần thiết cho mỗi trường dữ liệu và tập hợp
các bản ghi.
Mô tả một bảng dữ liệu trong trạng thái Datasheet (nhập, xem, sử dữ liệu):
Mô tả một bảng dữ liệu trong trạng thái Design view (đang thiết kế cấu trúc):
Mỗi cột là một
trường dữ liệu
(field)
Mỗi dòng là một
bản ghi (record)
Bản ghi đặc biệt cuối cùng
gọi là EOF
9
Tên bảng
Mỗi bảng có một tên gọi. Tên bảng thường được đặt sau khi tạo xong cấu trúc
của bảng, tuy nhiên cũng có thể đổi lại tên bảng trên cửa sổ Database như đổi tên tệp
dữ liệu trên cửa sổ Windows Explorer. Không nên sử dụng dấu cách (Space), các ký tự
đặc biệt hoặc chữ tiếng Việt có dấu trong tên bảng.
Trường dữ liệu (Field)
Mỗi cột dữ liệu của bảng sẽ tương ứng với một trường dữ liệu. Mỗi trường dữ
liệu sẽ có một tên gọi và tập hợp các thuộc tính miêu tả trường dữ liệu đó ví dụ như:
kiểu dữ liệu, trường khoá, độ lớn, định dạng, .. Mỗi trường dữ liệu phải được định kiểu
dữ liệu. Trong Access, trường dữ liệu có thể nhận một trong các kiểu dữ liệu sau:
TT Kiểu dữ liệu Độ lớn Lưu trữ
1 Number Tuỳ thuộc biến cụ
thể
Số: số thực, số nguyên theo nhiều
kiểu
2 Autonumber 4 bytes Số nguyên tự động được đánh số
3 Text Tuỳ thuộc độ dài xâu Xâu ký tự
4 Yes/No 1 bytes Kiểu logic
5 Date/time 8 bytes Lưu trữ ngày, giờ
6 Currentcy Sing Lưu trữ dữ liệu kèm ký hiệu tiền
tệ
7 Memo Tuỳ thuộc giá trị kiểu ghi nhớ
8 Hyperlink Tuỳ thuộc độ dài xâu Lưu trữ các siêu liên kết
9 Ole Objects Tuỳ thuộc kiểu dữ
liệu
âm thanh, hình ảnh, đồ hoạ.
Tập hợp các thuộc
tính của trường dữ
liệu
10
Bản ghi (Record)
Mỗi dòng dữ liệu của bảng được gọi một bản ghi. Mỗi bảng có một con trỏ bản
ghi. Con trỏ bản ghi đang nằm ở bản ghi nào, người dùng có thể sửa được dữ liệu bản
ghi đó. Đặc biệt, bản ghi trắng cuối cùng của mỗi bảng được gọi EOF.
Trường khoá (Primary key)
Trường khoá có tác dụng phân biệt giá trị các bản ghi trong cùng một bảng với
nhau. Trường khoá có thể chỉ 01 trường, cũng có thể được tạo từ tập hợp nhiều trường
(gọi bộ trường khoá).
Ví dụ:
Bảng BANGVANPHONG của CSDL chu trình doanh thu, trường khoá là
msvanphong. Vì mỗi văn phòng có thể nhiều trường có giá trị hệt nhau, nhưng
mã văn phòng thì duy nhất.
Bảng NHANVIEN trường msnhanvien sẽ là trường khóa vì không thể tồn tại 2
nhân viên ào trong bảng này trùng msnhanvien
2. Liên kết các bảng dữ liệu
Liên kết các bảng dữ liệu là một kỹ thuật trong thiết kế CSDL quan hệ. Chúng
là mối liên kết giữa 2 bảng với nhau theo thiết kế cho trước để đảm bảo được mục đích
lưu trữ dữ liệu cho ứng dụng. Trong Access tồn tại 2 kiểu liên kết: liên kết 1-1(một –
một) và liên kết 1-n (một-nhiều)
Xây dựng cấu trúc bảng
Mục này hướng dẫn cách thiết kế cấu trúc một bảng dữ liệu trên CSDL Access.
Để có thể làm tốt được công việc này, sinh viên cần tuân thủ theo thứ tự các bước liệt
kê dưới đây
Minh hoạ này hướng dẫn cách tạo cấu trúc bảng VANPHONG bao gồm các
trường msvanphong, tenvanphong, diachi, thanhpho.
Bước 1 khởi động thiết kế cấu trúc bảng ở chế độ Design view
Ở thẻ Tables chọn create
table in design view
11
Hộp thoại thiết kế cấu trúc một bảng xuất hiện
Bước 2: Khai báo danh sách tên các trường của bảng: bằng cách nhập tên danh sách
các trường lên cột field name của cửa sổ thiết kế
Chú ý: Không nên sử dụng dấu cách (Space), các ký tự đặc biệt hoặc chữ tiếng
Việt có dấu trong tên trường.
Bước 3: Khai báo kiểu dữ liệu cho các trường của bảng, bằng cách chọn kiểu dữ liệu
cho từng trường ở cột Data type tương ứng.
Để chọn kiểu dữ liệu, dùng chuột chọn kiểu dữ liệu từ hộp thả
Bước 4: Thiết lập trường khoá cho bảng (những bảng không có trường khoá có thể bỏ qua
bước này)
Chọn các trường muốn thiết lập khoá bằng cách dùng chuột kết hợp giữ phím
shift đánh dấu dòng các trường muốn thiết lập khoá
Mở thực đơn Edit/ Primary key hoặc chọn biểu tượng trên thanh công cụ
Bước 5: Lưu lại cấu trúc bảng, Mở thực đơn File/Save hoặc chọn biểu tượng trên
thanh công cụ, hộp thoại yêu cầu ghi tên cho bảng sẽ xuất hiện:
12
Hãy nhập tên bảng cần lưu và nhấn OK
Chú ý: Đối với những bảng không thiết lập trường khoá hoặc quên thiết lập
trường khoá thì trong quá trình ghi lại cấu trúc bảng chương trình sẽ hỏi
Nhấn Yes- máy tính sẽ tạo thêm một trường mới có tên ID và thiết lập trường
này làm khoá. Nếu không muốn như vậy hãy nhấn No; nhấn Cancel để huỷ lệnh lưu.
Tên bảng không nên chứa dấu cách, các ký tự đặc biệt khác hoặc chữ Việt có
dấu.
Mỗi trường dữ liệu được khai báo trong cửa sổ trên đều có thể thiết lập được rất
nhiều các thuộc tính tuỳ thuộc kiểu dữ liệu trường đó đã nhận. Các thuộc tính này có
thể thiết lập tại phần Tập hợp các thuộc tính của các trường như đã trình bày ở trên.
Dưới đây là danh sách một số các thuộc tính hay được sử dụng
Thuộc tính Dùng để quy định Giá trị có thể chọn
Field size Độ lớn của số cho phép nhập
Độ dài tối đa của chuối text Các kiểu số
New values Cách tạo ra giá trị mới (chỉ có trong điều kiện autoNumber)
Tăng dần (increment/ ngẫu nhiên
(random)
Format Định dạng hiển thị dữ liệu Tuỳ kiểu dữ liệu
Decimal Places Quy định số thập phân tối đa Tự động (auto) hoặc tuỳ định
Input Mask Dạng thức hiển thị số liệu nhập Chỉ cho dữ liệu kiểu Text hoặc Date
Caption Nhãn sẽ xuất hiện thay cho tên trường Tuỳ chọn
Default Value Giá trị mặc nhiên được gán cho vùng khi chờ nhập số liệu Tuỳ định
Validation rule Biểu thức kiẻm soát đối với dữ liệu nhập vào (điều kiện hợp lệ) Biểu thức hợp lệ
Validation Text
Thông báo lỗi cho xuất hiện ra khi
dữ liệu không thoả mãn điều kiện
hợp lệ
Tuỳ ý
Req ... n, số dư,
số phát sinh, trong kỳ.
Nguồn: dat_tblBDMTK, Qry_0_SoDauKy, QrySoPSNo, QrySoPSCo.
Các trường:
SoHieuTK, SoHieuTKTH, LoaiTK, TenTK, DVT (từ dat_tblBDMTK)
SoLuongTonDK, SoDuDK (từ Qry_0_SoDauKy)
SoLuongPSNo: CDbl(Nz(SLPSNo,0))
SoPSNo: CCur(Nz([SoPSNo],0))
SoLuongPSCo: CDbl(Nz(SLPSCo,0))
SoPSCo: CCur(Nz([SoPSCo],0))
SoLuongTonCK: IIF(dat_tblBDMTK.SoHieuTK like ‘15[2,3,5,6,8]*’, SoLuongTonDK +
SoLuongPSNo – SoLuongPSCo, 0)
SoDuCK: SoDuDK + IIF(dat_tblBDMTK.LoaiTK=’N’,SoPSNo – SoPSCo, SoPSCo –
SoPSNo)
33
Câu lệnh SQL
SELECT dat_tblBDMTK.SoHieuTK, dat_tblBDMTK.SoHieuTKTH,
dat_tblBDMTK.LoaiTK, dat_tblBDMTK.TenTK, dat_tblBDMTK.DVT,
Qry_0_Sodudk.SoLuongTonDK, Qry_0_Sodudk.SoDuDK, CDbl(Nz([SLPSNo],0)) AS
SoLuongPSNo, CDbl(Nz([QrySoPSNo].[SoPSNo],0)) AS SoPSNo, CDbl(Nz([SLPSCo],0)) AS
SoLuongPSCo, CDbl(Nz([QrySoPSCo].[SoPSCo],0)) AS SoPSCo,
IIf([dat_tblBDMTK].[SoHieuTK] Like '15[2,3,5,6,8]*',[SoLuongTonDK]+[SoLuongPSNo]-
[SoLuongPSCo],0) AS SoLuongTonCK, [SoDuDK]+IIf([LoaiTK]='N',[SoPSNo]-
[SoPSCo],[SoPSCo]-[SoPSNo]) AS SoDuCK
FROM ((dat_tblBDMTK LEFT JOIN Qry_0_Sodudk ON dat_tblBDMTK.SoHieuTK =
Qry_0_Sodudk.SoHieuTK) LEFT JOIN QrySoPSCo ON dat_tblBDMTK.SoHieuTK =
QrySoPSCo.SoHieuTK) LEFT JOIN QrySoPSNo ON dat_tblBDMTK.SoHieuTK =
QrySoPSNo.SoHieuTK;
5. Xây dựng các sổ sách kế toán
5.1. Bảng tổng hợp chi tiết 131
5.1.1Query QryTHCT131:
Lọc trên QryBDMTK ra các tài khoản chi tiết 131xxx. Rồi từ số dư cơ bản (đầu kỳ, cuối kỳ),
xác định xem nó dư bên nợ hay bên có.
Nguồn: QryBDMTK
Điều kiện lọc: SoHieuTK like ‘131*’
Các trường:
34
SoHieuTK, TenTK
SoDuDKNo: IIF(SoDuDK>0,SoDuDK,0)
SoDuDKCo: IIF(SoDuDK<0,-SoDuDK,0)
SoPSNo, SoPSCo
SoDuCKNo: IIF(SoDuCK>0,SoDuCK,0)
SoDuCKCo: IIF(SoDuCK<0,-SoDuCK,0)
Câu lệnh SQL
SELECT QryBDMTK.SoHieuTK, QryBDMTK.TenTK, IIf(sodudk>0,sodudk,0) AS
sodudkno, IIf([sodudk]<0-[sodudk],0) AS sodudkco, QryBDMTK.SoPSNo,
QryBDMTK.SoPSCo, IIf(soduck>0,soduck,0) AS soduckno, IIf([soduck]<0-[soduck],0) AS
soduckco
FROM QryBDMTK
WHERE (((QryBDMTK.SoHieuTK) Like "131*"));
5.1.2 Report RptTHCT131:
Nguồn: QryTHCT131,
Report layout: Tabular
35
Kết quả:
36
5.2. Bảng tổng hợp chi tiết TKxx :
5.2.1Query QryTHCTTKxx:
Nguồn: QryBDMTK
Các trường:
SoHieuTK, TenTK
SoDuDKNo: IIF((LoaiTK= ‘N’ and SoDuDK>0) Or (LoaiTK= ‘C’ and SoDuDK<0),
Abs(SoDuDK),0)
SoDuCKCo: IIF((LoaiTK= ‘C’ and SoDuDK>0) Or (LoaiTK= ‘N’ and SoDuDK<0),
Abs(SoDuDK),0)
SoPSNo, SoPSNo
SoDuCKNo: IIF((LoaiTK= ‘N’ and SoDuCK>0) Or (LoaiTK= ‘C’ and SoDuCK<0),
Abs(SoDuCK),0)
SoDuCKNo: IIF((LoaiTK= ‘C’ and SoDuCK>0) Or (LoaiTK= ‘N’ and SoDuCK<0),
Abs(SoDuCK),0)
Điều kiện lọc: SoHieuTK Like [NhapSoHieuTKTH] & “*”
Câu lệnh SQL
SELECT QryBDMTK.SoHieuTK, QryBDMTK.TenTK, IIf(([LoaiTK]='N' And
[SoDuDK]>0) Or ([LoaiTK]='C' And [SoDuDK]<0),Abs([SoDuDK]),0) AS SoDuDKNo,
IIf(([LoaiTK]='C' And [SoDuDK]>0) Or ([LoaiTK]='N' And [SoDuDK]<0),Abs([SoDuDK]),0)
AS SoDuDKCo, QryBDMTK.SoPSNo, QryBDMTK.SoPSCo, IIf(([LoaiTK]='N' And
[SoDuCK]>0) Or ([LoaiTK]='C' And [SoDuCK]<0),Abs([SoDuCK]),0) AS SoDuCKNo,
IIf(([LoaiTK]='C' And [SoDuCK]>0) Or ([LoaiTK]='N' And [SoDuCK]<0),Abs([SoDuCK]),0)
AS SoDuCKCo
FROM QryBDMTK
37
where sohieutk like [nhapsohieuTKTH]&"*"
5.2.2 Report RprTHCTTKxx
5.3. Nhật ký chung
5.3.1. Query QryNKChung:
Nguồn: QrySoKTMay
Các trường:
NgayGhiSo
SoCT, NgayCT
DienGiaiChiTiet
TKGhiNo, TKGhiCo
SoLuongPS, SoTienPS
Điều kiện lọc: Left(TKGhiNo,3) Not In (‘111’,’131’) And
Left(TKGhiCo,3) Not In (‘111’,’331’)
38
Câu lệnh SQL
SELECT QrySoKTMay.Soct, QrySoKTMay.Ngayct, QrySoKTMay.DienGiai,
QrySoKTMay.TKGHINO, QrySoKTMay.TKGHICO, QrySoKTMay.SoLuongPS,
QrySoKTMay.SoTienPS
FROM QrySoKTMay;
5.3.2 Report RptNKChung
5.4. Sổ chi tiết chi phí
5.4.1 Query QrySoCP621:
Nguồn: QrySoKTMay
Các trường:
NgayGhiSo
SoCT, NgayCT
39
DienGiaiChiTiet
GhiNo621: SoTienPS
GhiCo152: IIF(TKGhiCo Like ‘152*’, SoTienPS, 0)
GhiCo111: IIF(TKGhiCo Like ‘111*’, SoTienPS, 0)
GhiCo112: IIF(TKGhiCo Like ‘112*’, SoTienPS, 0)
GhiCo331: IIF(TKGhiCo Like ‘331*’, SoTienPS, 0)
GhiCoTKKhac: IIF(Left(TKGhiCo, 3) Not In (‘152*’, ‘111*’, ‘112*’, ‘331*’), SoTienPS,0)
SoTienTKKhac: IIF(GhiCoTKKhac0, TKGhiCo, “”)
Điều kiện lọc: TKGhiNo Like ‘621*’
Câu lệnh SQL
SELECT QrySoKTMay.NgayGhiSo, QrySoKTMay.SoCT, QrySoKTMay.NgayCT,
QrySoKTMay.DienGiaiChiTiet, QrySoKTMay.SoTienPS AS GhiNo621, IIf([TKGhiCo] Like
'152*',[SoTienPS],0) AS GhiCo152, IIf([TKGhiCo] Like '111*',[SoTienPS],0) AS GhiCo111,
IIf([TKGhiCo] Like '112*',[SoTienPS],0) AS GhiCo112, IIf([TKGhiCo] Like
'331*',[SoTienPS],0) AS GhiCo331, IIf(Left([TKGhiCo],3) Not In
('152','111','112','331'),[SoTienPS],0) AS GhiCoTKKhac,
IIf([GhiCoTKKhac]0,[TKGhiCo],"") AS SoHieuTKKhac
FROM QrySoKTMay
WHERE (((QrySoKTMay.TKGHINO) Like '621*'));
5.4.2 Report RptSoCP621
40
5.5. Sổ cái
5.5.1 Query QrySoCaiTK:
Nguồn: QrySoKTMay_TKTH
Tham số truyền vào: [SoHieuTK]
Các trường:
NgayGhiSo, SoCT, NgayCT, DienGiaiChung,
TKDoiUng: IIF(TKGhiNoTH=[SoHieuTK], TKGhiCoTH, TKGhiNoTH)
SoPSNo: IIF(TKGhiNoTH=[SoHieuTK],SoTienPSTH,0)
SoPSCo: IIF(TKGhiCoTH=[SoHieuTK],SoTienPSTH,0)
Điều kiện lọc: TKGhiNoTH= [SoHieuTKTH] Or TKGhiCoTH= [SoHieuTKTH]
Câu Lệnh SQL
41
SELECT QrySoKTMay_TKTH.NgayGhiSo, QrySoKTMay_TKTH.Soct,
QrySoKTMay_TKTH.Ngayct, QrySoKTMay_TKTH.DienGiai,
IIf([TKGhiNoTH]=[SoHieuTK],[TKGhiCoTH],[TKGhiNoTH]) AS TKDOIUNG,
IIf([TKGhiNoTH]=[SoHieuTK],[SoTienPSTH],0) AS SoPSNo,
IIf([TKGhiCoTH]=[SoHieuTK],[SoTienPSTH],0) AS SoPSCo
FROM QrySoKTMay_TKTH
WHERE (((QrySoKTMay_TKTH.TKGHINOTH)=[sohieutkTH])) OR
(((QrySoKTMay_TKTH.TKGHICOTH)=[sohieutkTH]));
5.5.2 Report RptSocai
Trong đó:
Số dư đầu kỳ =DSum("sodudk","QryBDMTK","sohieuTKTH='" & [sohieutk] & "'")
42
Loại TK= DLookUp("LoaiTK","dat_tblBDMTKTongHop","SoHieuTK='" & [SoHieuTK] & "'")
Số hiệu = sohieutTKTH
Tên TK: DLookUp("TenTK","dat_tblBDMTKTongHop","SoHieuTK='" & [SoHieuTK] & "'")
Số dư đầu kỳ nợ: =IIf(([SoDuDK]>0 And [LoaiTK]='N') Or ([SoDuDK]<0 And
[loaiTK]='C'),Abs([SoDuDK]),0)
Số dư đầu kỳ có = IIf(([SoDuDK]>0 And [LoaiTK]='C') Or ([SoDuDK]<0 And
[loaiTK]='N'),Abs([SoDuDK]),0)
Tổng phát sinh nợ = Sum([SoPSNo])
Tổng phát sinh có = Sum([SoPSCo])
Số dư cuối kỳ nợ = IIf(([SoDuDKNo]-[SoDuDKco]+[sumSoPSNo]-
[SumSoPSCo]>0),[SoDuDKNo]-[SoDuDKCo]+[sumSoPSNo]-[SumSoPSNo],0)
Số dư cuối kỳ có = =IIf(([SoDuDKCo]-[SoDuDKNo]+[sumSoPSCo]-
[SumSoPSNo]>0),[SoDuDKCo]-[SoDuDKNo]+[sumSoPSCo]-[SumSoPSCo],0)
5.6 Bảng tổng hợp chi tiết Các TK
5.6.1Query QryTHCTCTK:
Nguồn: QryBDMTK
Các trường:
SoHieuTK, TenTK
SoDuDKNo: IIF((LoaiTK= ‘N’ and SoDuDK>0) Or (LoaiTK= ‘C’ and SoDuDK<0),
Abs(SoDuDK),0)
SoDuCKCo: IIF((LoaiTK= ‘C’ and SoDuDK>0) Or (LoaiTK= ‘N’ and SoDuDK<0),
Abs(SoDuDK),0)
SoPSNo, SoPSNo
SoDuCKNo: IIF((LoaiTK= ‘N’ and SoDuCK>0) Or (LoaiTK= ‘C’ and SoDuCK<0),
Abs(SoDuCK),0)
SoDuCKNo: IIF((LoaiTK= ‘C’ and SoDuCK>0) Or (LoaiTK= ‘N’ and SoDuCK<0),
Abs(SoDuCK),0)
43
Câu lệnh SQL
SELECT QryBDMTK.SoHieuTK, QryBDMTK.TenTK, IIf(([LoaiTK]='N' And
[SoDuDK]>0) Or ([LoaiTK]='C' And [SoDuDK]<0),Abs([SoDuDK]),0) AS SoDuDKNo,
IIf(([LoaiTK]='C' And [SoDuDK]>0) Or ([LoaiTK]='N' And [SoDuDK]<0),Abs([SoDuDK]),0)
AS SoDuDKCo, QryBDMTK.SoPSNo, QryBDMTK.SoPSCo, IIf(([LoaiTK]='N' And
[SoDuCK]>0) Or ([LoaiTK]='C' And [SoDuCK]<0),Abs([SoDuCK]),0) AS SoDuCKNo,
IIf(([LoaiTK]='C' And [SoDuCK]>0) Or ([LoaiTK]='N' And [SoDuCK]<0),Abs([SoDuCK]),0)
AS SoDuCKCo
FROM QryBDMTK
5.6.2 Report RptTHCTCTK
44
5.7 Phiếu thu:
5.7.1 Query QryPhieuThu:
Liệt kê thông tin của tất cả các phiếu thu tổng hợp từ các bút toán định khoản cùng với số
phiếu thu tương ứng.
Nguồn: QrySoKTMay, Query type: total
Các trường:
Field Total
NghiepVu
SoPhieuThuChi
CTGoc: SoSerie & “-“ & SoHoaDon
Nguoi_NhanNop
DiaChi_NguoiNhanNop
DienGiaiChung
Group By
SoTien: IIF(TKGhiNo Like ‘111*’, SoTienPS,0) Sum
45
Điều kiện lọc: TKGhiNo Like ‘111*’
Câu lệnh SQL
SELECT Qrysoktmay.NghiepVu, Qrysoktmay.SoPhieuThuChi,
Qrysoktmay.NgayCT_ThuChi, Count([soserie] & "-" & [sohoadon]) AS chungtugoc,
Qrysoktmay.nguoi_nhannop, Qrysoktmay.diachi_nguoinhannop, Qrysoktmay.DienGiaiChung,
Sum(IIf([tkghino] Like '111*',[sotienps],0)) AS sotien
FROM Qrysoktmay
GROUP BY Qrysoktmay.NghiepVu, Qrysoktmay.SoPhieuThuChi,
Qrysoktmay.NgayCT_ThuChi, Qrysoktmay.nguoi_nhannop, Qrysoktmay.diachi_nguoinhannop,
Qrysoktmay.DienGiaiChung, Qrysoktmay.TKGHINO
HAVING (((Qrysoktmay.TKGHINO) Like "111*"));
5.7.2 Report RptPHIEUTHU
46
Kết quả:
47
5.8 Phiếu nhập xuất kho:
5.8.1 Query QryPhieuNhapKho:
Liệt kê thông tin của tất cả các phiếu nhập kho tổng hợp từ các bút toán định khoản cùng với
số phiếu nhập kho tương ứng.
Nguồn: QrySoKTMay, dat_tblBDMTK
Các trường:
NghiepVu, SoPhieuNhapXuat, NgayCT_NhapXuat,
TheoChungTu: SoSerie & “-“ & SoHoaDon
DienGiaiChung, Nguoi_GiaoNhan, GiaoNhanTaiKho,
MaHH: SoHieuTK
TenHH: TenTK
SLNhap: SoluongPS Sum
TriGiaNhap: SoTienPS Sum
Điều kiện lọc: Left(TKGhiNo,3) In (‘152*’,’153*’)
48
Câu lệnh SQL
SELECT QrySoKTMay.NghiepVu, QrySoKTMay.DienGiaiChung,
QrySoKTMay.SoPhieuNhapXuat, QrySoKTMay.TenCSKD AS CuaDV,
QrySoKTMay.NgayCT_NhapXuat, [SoSerie] & "_" & [SoHoaDon] AS TheoChungTu,
QrySoKTMay.Nguoi_GiaoNhan, QrySoKTMay.GiaoNhanTaiKho, dat_tblBDMTK.SoHieuTK
AS MaHH, dat_tblBDMTK.TenTK AS TenHH, Sum(QrySoKTMay.SoLuongPS) AS SLNhap,
Sum(QrySoKTMay.SoTienPS) AS TriGiaNhap, dat_tblBDMTK.DVT
FROM QrySoKTMay INNER JOIN dat_tblBDMTK ON QrySoKTMay.TKGHINO =
dat_tblBDMTK.SoHieuTK
WHERE (((Left([TKGhiNo],3)) In ('152','153')))
GROUP BY QrySoKTMay.NghiepVu, QrySoKTMay.DienGiaiChung,
QrySoKTMay.SoPhieuNhapXuat, QrySoKTMay.TenCSKD, QrySoKTMay.NgayCT_NhapXuat,
[SoSerie] & "_" & [SoHoaDon], QrySoKTMay.Nguoi_GiaoNhan,
QrySoKTMay.GiaoNhanTaiKho, dat_tblBDMTK.SoHieuTK, dat_tblBDMTK.TenTK,
dat_tblBDMTK.DVT;
5.8.2 Report RPTPhieunhapkho
49
Kết quả thực thi:
50
Xây dựng Module thư viện dùng chung.
Trường Name: cho biết tên của giá trị chuỗi thường dùng.
Value: cho biết hằng giá trị của nó như thế nào.
Ta tạo một Module với tên Md_CompanyInfo dùng với hàm dò tìm thông tin trên bảng như sau:
Function GetCompanyInfo(name As String) As String
GetCompanyInfo = Nz(DLookup("Value", "CompanyInfo", "Name='" & name & "'"))
End Function
51
BÀI TẬP ỨNG DỤNG
Doanh nghiệp tư nhân MKM trong tháng 6 năm 2010 có các nghiệp vụ kinh tế phát sinh như sau
(đvt: 1.000đ):
Số dư đầu kỳ:
Số hiệu
TK
Dự nợ Số hiệu
TK
Dư có
111 100.000.000 411 2.000.000.000
112 500.000.000 214 1.800.700.000
1311 50.300.000 3312 332.300.000
1521 6.000.000 338 25.000.000
1522 5.000.000 421 20.000.000
155 250.000.000 431 234.000.000
211 3.800.700.000 441 300.000.000
Tổng
cộng
4.712.000.000 4.712.000.000
Các nghiệp vụ kinh tế phát sinh trong kỳ:
1. Ngày 1/6 Chi tiền mặt tạm ứng cho nhân viên Quang mua máy vi tính số tiền 15.000 (PC601)
2. Ngày 1/6 Nhập kho 500 kg nguyên liệu CT023 từ công ty HHA trị giá 50.000, thuế GTGT
10%, đơn vị chưa thanh toán cho công ty HHA (HĐGTGT 1234)
3. Ngày 2/6 Thanh toán tiền quảng cáo sản phẩm HH98 cho công ty quảng cáo Mặt trời số tiền
6.000(PC 602)
4. Ngày 4/6 PXK xuất kho 600 cái sản phẩm HH98 bán cho công ty cổ phẩn MMC, giá bán
500/cái, thuế suất GTGT 5%, công ty MMC đã thanh toán bằng chuyển khoản ngân hàng
(GBC2345, HĐGTGT 3456, PXK601)
5. Ngày 5/6 xuất kho 100 kg nguyên liệu M012 sản xuất sản phẩm HH95 (PXK602)
6. Ngày 6/6 Thanh toán tiền điện thoại nhân viên quản lý số tiền 5.540 (PC 603, HĐGTGT 235)
7. Ngày 7/6 Xuất 200kg nguyên liệu CT023 dùng cho sản xuất sản phẩm HH95 (PXK612)
8. Ngày 7/6 Nhân viên Quang thanh toán tạm ứng bằng một máy tính HP5600 trị giá 13.500, số
tiền còn thừa nhân viên Quang đã hoàn quỹ (PT601, HĐGTGT 237)
9. Ngày 7/6 Mua 50 cái công cụ dụng cụ C034 dùng trực tiếp cho sản xuất sản phẩm HH95 trị
giá 5.000, thuế GTGT 500 từ DNTN TMM, đơn vị đã thanh toán bằng chuyển khoản ngân
hàng (HĐGTGT 458, GBN 601)
Mã Khách
hàng
Tên khách
hàng
Số tiền
1311YIC Công ty YIC 50.300.000
3312KIJ Công ty KIJ 332.300.000
MVT Tên VT ĐVT SL ĐG TT
155HH98 TP HH 98 Cái 1.000 250.000 250.000.000
1521M012 NL chính M012 Kg 400 150.000 6.000.000
1522N045 NL phụ N045 Lít 100 50.000 5.000.000
52
10. Ngày 9/6 Công ty YIC thanh toán khoản nợ tháng trước bằng chuyển khoản ngân hàng số
tiền 50.300 (GBC 604)
11. Ngày 15/6 Nộp vào kho bạc số tiền vi phạm luật giao thông số tiền 2.000 (PC604)
12. Ngày 17/6 tập hợp chi phí quản lý phân xưởng phát sinh 17.000 trong đó: Chi tiền mua nhiên
liệu L023: 4.000, thuế GTGT 5% (PC603, HĐGTGT 788); 50 lít nguyên liệu phụ N045
(PXK603); Tiền dịch vụ mua ngoài 10.500, thuế 10% (HĐGTGT 367, PC605)
13. Ngày 18/6 mua một số văn phòng phẩm dùng cho quản lý doanh nghiệp trị giá 12.000, thuế
GTGT 10% đơn vị đã thanh toán bằng tiền mặt (PC606, HĐGTGT 4858)
14. Ngày 25/6 BTTL06 tính tiền lương nhân viên tháng 6 trong đó:
Nhân viên SXSP 50.000; QLPX 20.000; QLDN 30.000; BH 25.000
Các khoản trích theo lương theo quy định
15. Ngày 26/6 đơn vị đã thanh toán lương cho nhân viên bằng chuyển khoản ngân hàng (GBN 602)
16. Ngày 27/6 Bán 200 sản phẩm HH98 cho công ty OT, giá bán 490/cái thuế suất GTGT 5%,
công ty OT.Chưa thu tiền của công ty OT (HĐGTGT 3498)
17. Ngày 28/6 Bảng tính và phân bổ khấu hao 06 chi phí khấu hao toàn doanh nghiệp 5.400
trong đó, QLDN 400, BPSX 4.000, BPBH 1.000
18. Ngày 29/6 Tập hợp chi phí sản xuất tính giá thành sản phẩm. Biết phân xưởng sản xuất báo
hoàn thành 1.000 cái sản phẩm HH95, sản phẩm dở dang cuối kỳ 1.000
19. Ngày 29/6 Tập hợp chi phí xác định kết quả kinh doanh tháng 6 của doanh nghiệp MKM
20. Tính thuế GTGT phải nộp trong tháng biết thuế GTGT đầu vào được khấu trừ là 90%
Yêu cầu:
1. Anh (chị) hãy điền các nghiệp vụ kinh tế phát sinh vào sổ kế toán máy theo các trường
sau (nghiepvu, ngayghiso, ngaychungtu, sohoadon, sophieuthuchi, sophieunhapxuat,
chungtukhac, ghinotk, ghicotk, soluongphatsinh, sotienphatsinh)
2. Anh (chị) hãy thiết kế những table cần thiết và mối liên kết giữa những table đó để tổ
chức dữ liệu kế toán trên phần mềm access.
3. Anh (chị) hãy xây dựng những query, report cần thiết để lên các sổ sách, chứng từ sau:
Sổ chi tiết; bảng tổng hợp chi tiết 131,141,331,334..
Sổ chi tiết chi phí 622, 627, 154, 641, 642..
Sổ chi tiết, bảng tổng hợp chi tiết dùng chung cho các tài khoản.
Sổ quỹ tiền mặt, tiền gửi ngân hàng
Nhật ký đặc biệt, nhật ký chung
Sổ cái dùng chung cho các tài khoản
Phiếu thu chi tiền mặt, tiền gửi ngân hàng; phiếu nhập xuất, kho.
53
TÀI LIỆU THAM KHẢO
[1] Hướng dẫn thực hành viết phần mềm kế toán trên Access – Viện tài chính kế toán & Tin học
– Ths. Đặng Văn Sáng – Kỹ sư Nguyễn Ngọc Hiến – Nhà xuất bản Giao thông vận tải
[2] Bài giảng thực hành Hệ thống thông tin kế toán 1,3 – Bộ môn Kiểm toán – Trường Đại học
Nha Trang.
File đính kèm:
giao_trinh_he_thong_thong_tin_ke_toan_3_excel_ke_toan_phan_2.pdf

