Phần mềm kế toán access

Ðề: Phần mềm kế toán access

Uh, cách của quochoi cung dc, nhung nó sẽ bị vướng hàm Dsum. Cái này là đặc thù của access nếu chuyển sang VB là hơi vướng.
Ah, quochoi xem lại phần nhập phiếu chi xem. Mình cho thử 1 nghiệm vụ mua (có VAT) nó cứ báo "Tài khoản 1331 chi tiết hóa đơn thuế"
Nếu quochoi có YM thì nhiều khi hỏi tiện hơn
-----------------------------------------------------------------------------------------
Phát hiện thêm 1 cái nữa, code của quochoi bắt buộc field"code" chỉ có độ dài bằng 3. Nếu có 1 "code" cái dài hơn hoặc ngắn hơn 3 thì dữ liệu sẽ bị sai.
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

Uh, cách của quochoi cung dc, nhung nó sẽ bị vướng hàm Dsum. Cái này là đặc thù của access nếu chuyển sang VB là hơi vướng.
Ah, quochoi xem lại phần nhập phiếu chi xem. Mình cho thử 1 nghiệm vụ mua (có VAT) nó cứ báo "Tài khoản 1331 chi tiết hóa đơn thuế"
Nếu quochoi có YM thì nhiều khi hỏi tiện hơn
Bạn nhập phần chứng từ hóa đơn cho phiếu này (phần thứ 3 của màn hình nhập liệu), đối với các bút toán có thuế (133,3311) bắt buộc phải nhập phần này.


Phát hiện thêm 1 cái nữa, code của quochoi bắt buộc field"code" chỉ có độ dài bằng 3. Nếu có 1 "code" cái dài hơn hoặc ngắn hơn 3 thì dữ liệu sẽ bị sai.

- cách 1 Đúng là phần code có chiều dài =3 (đã bảo củ chuối rồi mà)
- cách 2 trong Function TONGQUAT không bắt buộc độ đài =3 đâu, đâu có câu lệnh nào cắt chuỗi.

Nói chung đây chỉ là tổng quát tuỳ vào từng trường hợp mà ứng phó thôi.
 
Ðề: Phần mềm kế toán access

Bạn nhập phần chứng từ hóa đơn cho phiếu này (phần thứ 3 của màn hình nhập liệu), đối với các bút toán có thuế (133,3311) bắt buộc phải nhập phần này.

.

Nhập nhưng nó không cho ghi.
Mình nghi rằng nó không khớp TK. Phần 2(chi tiết hóa đơn khi nhập xong nó không cho ghi lại) . Tại phần 1. Định khoản chỉ có 2 TK 1331 và 1332, trong khi phần chi ti ết hóa đơn chỉ có 2 giá trị mặc định trong combobox"TK" là 133 và 333 chứ không có 2 TK con 1331 và 1332.

Đoạn code của quochoi va của mình vẫn bị lỗi. Mình nhập thử dữ liệu vào field code gồm 2 dòng
code Sotien
11 5
111 10
Thì khi tính toán phép cộng nó thay chuỗi 11+111 bằng 5+51==> kết quả 56 trong khi đúng ra phải là 15
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

Nhập nhưng nó không cho ghi.
Mình nghi rằng nó không khớp TK. Phần 2(chi tiết hóa đơn khi nhập xong nó không cho ghi lại) . Tại phần 1. Định khoản chỉ có 2 TK 1331 và 1332, trong khi phần chi ti ết hóa đơn chỉ có 2 giá trị mặc định trong combobox"TK" là 133 và 333 chứ không có 2 TK con 1331 và 1332.

Nếu phần 1 ghi nợ 1331 hoặc 1332 thì tại phần chi tiết chọn 133.
-----------ghi có 3311 (33311, . . .) ------------------- 333

Đoạn code của quochoi va của mình vẫn bị lỗi. Mình nhập thử dữ liệu vào field code gồm 2 dòng
code Sotien
11 5
111 10
Thì khi tính toán phép cộng nó thay chuỗi 11+111 bằng 5+51==> kết quả 56 trong khi đúng ra phải là 15

Mình có nhận xét:
1. cách của mình tốt nhất là các code có chiều dài bằng nhau
2. cách của bạn phải sắp xếp các code có chiều dài dài nhất trứơc đến chiều dài thấp nhất sau.
3. Cả 2 cách trên hình như chưa tính đến khả năng kết quả lúc đầu có các ký tự trùng với code chưa tính => kết quả tính toán sai
ví dụ : tính công thức (110+111+112) tương ứng với các gi trị (5+112000+200000) = 312.002
áp dụng công thức sẽ bằng 200.200.005
vì khi dùng hàm replace :
bước 1 sẽ thay thế = 5 +"111"+"112"
bước 2 sẽ thay thế = 5 + 112000 +"112"
bước 3 sẽ thay thế = 5 + 200000000 + 200000 = 200.200.005
=> kết quả sai
Tóm lại cách của mình và của Bé chưa an toàn (vì dùng hàm replace)

Đối với các công thức chỉ có +-*/ đơn giản thì dùng thuật toán "củ chuối" của mình là chính xác nhất.
Bé cho ý kiến thêm nhé.
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

Nếu phần 1 ghi nợ 1331 hoặc 1332 thì tại phần chi tiết chọn 133.
-----------ghi có 3311 (33311, . . .) ------------------- 333
.

Quochoi thử gửi cho mình file dữ liệu mà nhập được chi tiết hóa đơn nhé, mình nhập mãi không dc.

Mình có nhận xét:
1. cách của mình tốt nhất là các code có chiều dài bằng nhau
2. cách của bạn phải sắp xếp các code có chiều dài dài nhất trứơc đến chiều dài thấp nhất sau.
3. Cả 2 cách trên hình như chưa tính đến khả năng kết quả lúc đầu có các ký tự trùng với code chưa tính => kết quả tính toán sai
ví dụ : tính công thức (110+111+112) tương ứng với các gi trị (5+112000+200000) = 312.002
áp dụng công thức sẽ bằng 200.200.005
vì khi dùng hàm replace :
bước 1 sẽ thay thế = 5 +"111"+"112"
bước 2 sẽ thay thế = 5 + 112000 +"112"
bước 3 sẽ thay thế = 5 + 200000000 + 200000 = 200.200.005
=> kết quả sai
Tóm lại cách của mình và của Bé chưa an toàn (vì dùng hàm replace)

Đối với các công thức chỉ có +-*/ đơn giản thì dùng thuật toán "củ chuối" của mình là chính xác nhất.
Bé cho ý kiến thêm nhé.

Vụ này đã xử lý xong. Thêm vào chuỗi Replace ",,1". Nó sẽ có dạng.
str = Replace(str, gt, rst1.Fields(0), , 1)
Đoạn code của mình sẽ cho kết quả đúng, còn của quochoi se chua chạy dc
 
Ðề: Phần mềm kế toán access

Quochoi thử gửi cho mình file dữ liệu mà nhập được chi tiết hóa đơn nhé, mình nhập mãi không dc.


http://www.mediafire.com/file/zdzhn2g0nmq/MyData.mdb
bạn down xuống và chọn file dữ liệu khác từ chương trình.

Vụ này đã xử lý xong. Thêm vào chuỗi Replace ",,1". Nó sẽ có dạng.
str = Replace(str, gt, rst1.Fields(0), , 1)
Đoạn code của mình sẽ cho kết quả đúng, còn của quochoi se chua chạy dc

Mình sẽ nghiên cứu thêm.
Chúc ngày cuối tuần vui vẻ.
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

Mãi mới phát hiện tại sao không cho ghi lại. Hóa ra mấy ô phía sau phần MST bị che khuất nên không nhập liệu thành ra cứ báo lỗi.
Theo mình quochoi cho cột Tên khách hàng nhỏ lại và cao hơn (2 đến 3 dòng). Để khi nhập liệu nhìn thấy được hết các nội dung của phần chi tiết hóa đơn. Sửa xong thì share cho mình nhé.


Với dữ liệu như thế này thì kết chuyển trong chương trình thế nào nhỉ. Mình thấy phài sản thì có nhưng nguồn vốn thì trống trơn.
http://www.mediafire.com/?sharekey=065a2f5435d866ae24a64199ac7f73e5e04e75f6e8ebb871
 
Ðề: Phần mềm kế toán access

Với dữ liệu như thế này thì kết chuyển trong chương trình thế nào nhỉ. Mình thấy phài sản thì có nhưng nguồn vốn thì trống trơn.
http://www.mediafire.com/?sharekey=065a2f5435d866ae24a64199ac7f73e5e04e75f6e8ebb871

Mình xem file của bạn . Thấy TK 4111 hạch toán chi tiết có mã là 0001, tuy nhiên trong [Danh mục đối tượng] thì 0001 không có gắn với TK nào cả (Không hiểu sao bạn nhập được trong phiếu thu TK 4111 – 0001 được?).
Bạn vào [Danh mục đối tượng] thêm TK chi tiết 4111 cho đối tượng 0001 (bấm chọn Thêm, sửa TK chi tiết và thêm vào)
Với lại Trong bảng cân đối kế toán phần lấy số dư mã số 411 phải chọn Có 4111 chứ (bạn chọn Nợ).
Phần kết chuyển trong chương trình là Kết chuyển Doanh thu & Chi phí , bạn định nghĩa trong phần thiết kế sổ sách BÁO CÁO KẾT QUẢ SXKD
Ví dụ mã số 01 – Doanh thu , bạn chọn phần bên phải là Nợ các TK 511 và TK đối ứng 911. (mình thấy trong file của bạn có TK 6428/911 – bạn xóa dòng này đi).
Tương tự cho các mã số khác: MS 25 – chi phí QLDN: chọn Có TK 6421, 6422,…6428 Nợ TKĐU 911.
Để thực hện kết chuyển vào Báo cáo kế toán chọn Kết chuyển doanh thu – chi phí.

Trở lại vấn đề nhúng công thức.
Biến số của công thức là chuỗi gồm các ký tự (a,b,c,….z) thì không sao, nhưng nếu biến số là chuỗi các ký số (0,1,2,..,9) như các mã số trong Bảng CĐKT, Bảng KQSXKD thì kết quả có thể bị sai.
Kể cả dòng lệnh sau str = Replace(str, gt, rst1.Fields(0), , 1)
Bạn thử test số liệu như sau sẽ thấy.

3. Cả 2 cách trên hình như chưa tính đến khả năng kết quả lúc đầu có các ký tự trùng với code chưa tính => kết quả tính toán sai
ví dụ : tính công thức (110+111+112) tương ứng với các gi trị (5+112000+200000) = 312.002
áp dụng công thức sẽ bằng 200.200.005
vì khi dùng hàm replace :
bước 1 sẽ thay thế = 5 +"111"+"112"
bước 2 sẽ thay thế = 5 + 112000 +"112"
bước 3 sẽ thay thế = 5 + 200000000 + 200000 = 200.200.005
=> kết quả sai

Mình sửa lại đoạn code một chút như sau .
Public Function R_Ketqua(mCongthuc As String) As Variant
Dim kq As String, Arr As Variant, gt As String
Dim rst1 As DAO.Recordset
Dim ChuoiCanBo$, ChuoiGoc$
Dim kq1 As String

ChuoiCanBo = "+-*/()" 'mu?n b? kí t? g´ th´ go vào dây
ChuoiGoc = mCongthuc
For j = 1 To Len(ChuoiCanBo)
ChuoiGoc = Replace(ChuoiGoc, Mid(ChuoiCanBo, j, 1), ";")
Next
ChuoiGoc = Replace(ChuoiGoc, " ", "")
ChuoiGoc = Replace(ChuoiGoc, ";;", ";")

If Left(ChuoiGoc, 1) = ";" Then
ChuoiGoc = Right(ChuoiGoc, Len(ChuoiGoc) - 1)
End If
If Right(mCongthuc, 1) = ";" Then
ChuoiGoc = Left(ChuoiGoc, Len(ChuoiGoc) - 1)
End If

Arr = Split(ChuoiGoc, ";")
For k = 0 To UBound(Arr, 1)
gt = Arr(k)
Set rst1 = CurrentDb.OpenRecordset("select sotien from tbldata where code='" & gt & "'")
If rst1.RecordCount > 0 Then
rst1.MoveFirst
kq = str(Nz(rst1.Fields(0), 0))
kq1 = ""
For j = 1 To Len(kq)
kq1 = kq1 & Mid(kq, j, 1) & ";"
Next

Else
kq1 = "0;"
End If
mCongthuc = Replace(mCongthuc, gt, kq1)

Next
mCongthuc = Replace(mCongthuc, ";", "")
R_Ketqua = Eval(mCongthuc)
End Function

đúng với điều kiện là mã số có chiều dài từ 2 trở lên.
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

Cám ơn quochoi nhé.
Quochoi xem lại phần in "Bảng tổng kết tài sản" xem sao. Mình chui vào data thì thấy nó kết chuyển vào Nguồn vốn rồi nhưng khi in "Bảng tổng kết tài sản" thì thấy không cân. Tài sản có 4tr nhưng nguồn vốn vẫn còn 5tr. Chắc cái này phải kết chuyển vào lỗ

Thực ra đoạn code mình đưa lên và quochoi đã chỉnh vẫn chưa chuẩn. SAu khi post lên mình mới phát hiện ra nó thiếu 1 vòng lặp cho đoạn:
ChuoiGoc = Replace(ChuoiGoc, ";;", ";")
Nó phải thay thế ;; cho đến khi nào không còn nữa.
Có gì trao đổi thêm.
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

Cám ơn quochoi nhé.
Quochoi xem lại phần in "Bảng tổng kết tài sản" xem sao. Mình chui vào data thì thấy nó kết chuyển vào Nguồn vốn rồi nhưng khi in "Bảng tổng kết tài sản" thì thấy không cân. Tài sản có 4tr nhưng nguồn vốn vẫn còn 5tr. Chắc cái này phải kết chuyển vào lỗ

Thực ra đoạn code mình đưa lên và quochoi đã chỉnh vẫn chưa chuẩn. SAu khi post lên mình mới phát hiện ra nó thiếu 1 vòng lặp cho đoạn:
ChuoiGoc = Replace(ChuoiGoc, ";;", ";")
Nó phải thay thế ;; cho đến khi nào không còn nữa.
Có gì trao đổi thêm.

Bạn có hạch toán Nợ 6428 : 1.000.000đ
bạn phải kết chuyển TK 6428 đi chứ.

Đúng rồi, đề phòng trường hợp có ";;;"

While InStr(Chuoigoc, ";;") > 0
chuoigoc = Replace(chuoigoc, ";;", ";")
Wend
-----------------------------------------------------------------------------------------
Mãi mới phát hiện tại sao không cho ghi lại. Hóa ra mấy ô phía sau phần MST bị che khuất nên không nhập liệu thành ra cứ báo lỗi.
Theo mình quochoi cho cột Tên khách hàng nhỏ lại và cao hơn (2 đến 3 dòng). Để khi nhập liệu nhìn thấy được hết các nội dung của phần chi tiết hóa đơn. Sửa xong thì share cho mình nhé.

[/url]

Mình chỉ Up file chương trình thôi, bạn Unzip và copy đè lên file cũ nhé.

http://www.mediafire.com/file/1mgttundrzw/Ketoan123.zip
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

Từng bước để hạch toán 6428 như thế nào nhỉ? Quốc hội mô tả 1 chút tuần tự các bước để kết chuyển 6428 vào 911 hộ mình 1 cái. Đang xem cách thức chương trình hoạt động cùng với nghiệp vụ kế toán nên chưa rõ cái nào thực hiện trước, cái nào thực hiện sau.
 
Ðề: Phần mềm kế toán access

Từng bước để hạch toán 6428 như thế nào nhỉ? Quốc hội mô tả 1 chút tuần tự các bước để kết chuyển 6428 vào 911 hộ mình 1 cái. Đang xem cách thức chương trình hoạt động cùng với nghiệp vụ kế toán nên chưa rõ cái nào thực hiện trước, cái nào thực hiện sau.

Các bước tuần tự như sau:
1. Nhập dữ liệu (các phiếu Thu, Chi, Phiếu Kế toán)
2. Tính trị giá xuất kho (Nếu theo PP bình quân gia quyền) nếu có hạch toán xuất bán
a. PP BQGQ: khi xuất chỉ hạch toán Nợ 111,131/Có 511 (cuối tháng tính giá trị xuất kho tự động kết chuyển giá vốn luôn Nợ 632/Có 156)
b. PP Đích danh: Vừa hạch toán Xuất kho vừa HT doanh thu
+ Nợ 111,131/Có 511
+ Nợ 632/Có 156
3. Kết chuyển doanh thu – Chi phí: để kết chuyển đúng bạn phải vào thiết kết sổ [Báo cáo kết quả kinh doanh] để quy định các chỉ tiêu kết chuyển.(các bút toán kết chuyển vào 911)
Ví dụ :
+ MS 01 (Doanh thu bán hàng) : chọn phần bên phải HT Nợ các TK 511; TKĐỨ: 911 và click chọn vào cột tính K/C
+ MS 11 (Giá vốn): Chọn HT Có TK 632; TKĐỨ 911 và click chọn vào cột tính K/C
Các mã số khác thực hiện tương tự như vậy, . . .
Thực hiện kết chuyển cho từng tháng
Sau khi kết chuyển xong, bạn in số CT TK911 để lấy số dư và kết chuyển bằng tay vào 421.
 
Ðề: Phần mềm kế toán access

Cảm ơn quochoi nhé, để mình xem, có gì không hiểu sẽ hỏi thêm
 
Ðề: Phần mềm kế toán access

phan mem nay co nhap file ke khai thue vao duoc khong ban? sao ban khong viet them phan lap du toan tren do de lam quyet toan cho de
 
Ðề: Phần mềm kế toán access

phan mem nay co nhap file ke khai thue vao duoc khong ban?

nếu bạn muốn kê khai thuế thì khi nhập dữ liệu xong thì in bảng kê mua vào - bán ra ra file excel rồi copy vào file mẫu excel mẫu của HTKK rồi dùng HTKK để import vào.

sao ban khong viet them phan lap du toan tren do de lam quyet toan cho de

mình chưa hiểu ý bạn lắm, có thể nói rõ thêm được không?
 
Ðề: Phần mềm kế toán access

Hiện mình đang gặp trường hợp hơi khó hiểu. 1 máy tính khi thực hiện kết chuyển chi phí thì cho kết chuyển và popup 1 thông báo, còn 1 máy tính thì không thấy bất kỳ biểu hiện gì cả.
Có thể có quochoi da bẫy on error trong đoạn code đó nên khi gặp lỗi không thấy gì cả. QUochoi co thể gửi lại cho mình 1 bản nhưng không bẫy lỗi để xem nó báo lỗi gì để còn khắc phục 1 cái.
 
Ðề: Phần mềm kế toán access

Ua? Sao em down dzia mo phan mem len yeu cau nhap pass???
Cho em bit pass dc hem anh?
 
Ðề: Phần mềm kế toán access

Chào các bạn hiền
Có bạn nào biết số điện thoại của bạn Quochoi_05 không? cho mình xin với, có chuyện nhờ bạn đó giúp tí.
Thanks mọi người
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

các bác ơi sao không mở dc thế phải cho pass e với
cảm ơn các bác
 

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Cách làm file Excel quản lý lãi vay

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top