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

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

bibitom nói:
mình test thử rồi, nhập dữ liệu mình thấy như vậy là ok, mình đã chuyển qua 1 máy khác, nó vẫn bị thiếu 1 cột ở listbox và không nhập trực tiếp tk vào được.
à mình còn thấy 1 điều nữa, ví dụ bạn gán tk chi tiết cho khách hàng :
ví dụ: Khách hàng A - gắn tk chi tiết là 131, thì bên nhập chi tiết tk mình chỉ cần đánh mã tk vô, enter là nó nhảy ra tên tk luôn. hy vọng chi tiết này giúp được cho bạn sử lý cái listbox. chào bạn.
Để mai mình test tiếp các phần khác xem có còn gì không.
Nhấn để mở rộng...

Cám ơn bạn đã test hộ mình, còn việc combox và testbox bị như vậy mình cũng không hiểu tại sao vì mình dùng wizard không à, mình post lên các hình mình vẫn sử dụng bình thường combox và listbox trong chương trình đâu có bị gì đâu.

http://www.mediafire.com/file/wmjmmxyyqjo/pic.zip

bạn có thể chụp màn hình các combox và listbox bị trường hợp trên gửi cho mình xem có như trường hợp 1 máy của mình bị không. (Không biết có thiếu file nào của access khi cài đặt không?)
mail của mình: Quochoi_05@yahoo.com
 
Ðề: Phần mềm kế toán access

dankhue nói:
Em muon lam nhieu cong ty va chi su dung tren 1 may vi tinh thoi vay thi em phai lam sao, nho anh chi dum . Cam on

NHO ANH HUONG DAN DUM ROI GOI QUA EMAIL DUM EM NHA
thuyhuong@bahicovn.com
Nhấn để mở rộng...

bạn copy file trong thư mục data thành 2 bản, sau đó vào hệ thống chọn vào mục chọn file dữ liệu khác, nó hiện ra bảng hỏi bạn có muốn chọn mới dữ liệu không bạn bấm nút chọn nó sẽ tìm đến thư mục data, rồi bạn chọn tệp dữ liệu mới copy ra là được.
Mình nhắn luôn bạn quochoi là sao nhập 2 số phiếu chi giống nhau mà nó vẫn cho nhập bình thường vậy.
 
Ðề: Phần mềm kế toán access

bibitom nói:
Mình nhắn luôn bạn quochoi là sao nhập 2 số phiếu chi giống nhau mà nó vẫn cho nhập bình thường vậy.
Nhấn để mở rộng...
Tại field số phiếu không phải là khóa chính, mỗi lần thêm mới số phiếu đều tăng lên nên mình không cho kiểm tra.
 
Ðề: Phần mềm kế toán access

Bạn vui lòng cho mình xin code của các nút HUỶ - XOÁ nhé, mình viết code cho 2 nút này nhưng không tác dụng, đặt biệt là nút Huỷ không hiệu lực, nó vẫn cứ ghi vào tab hoặc báo lỗi. ths
 
Ðề: Phần mềm kế toán access

zungnn nói:
Bạn vui lòng cho mình xin code của các nút HUỶ - XOÁ nhé, mình viết code cho 2 nút này nhưng không tác dụng, đặt biệt là nút Huỷ không hiệu lực, nó vẫn cứ ghi vào tab hoặc báo lỗi. ths
Nhấn để mở rộng...

Có nhiều cách để thực hiện.
1. Khi bạn tạo command button bằng wizard và phần
Record operations sẽ có Delete record và Undo record
Access sẽ tự động phát sinh ra câu lệnh VBA cụ thể
Hủy
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Xóa
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

2. Tuy nhiên trong nhiều trường hợp các câu lệnh trên không có tác dụng nhất là trong form có subform khi mà con trỏ đã di chuyển đến subform thì câu lệnh huỷ trên không có tác dụng ở mẫu tin chính.
Lệnh huỷ cũng là lệnh xoá chỉ có điều là xoá mẫu tin đang nhập
Bạn phát lệnh ghi mẫu tin đang nhập xong Phát lệnh huỷ bằng 2 câu lệnh ở trên hay bằng lệnh sau:
DoCmd.RunSQL "Delete * from <table> where <ĐK>"
Các bác Cao thủ cho ý kiến bổ sung thêm.
-----------------------------------------------------------------------------------------
vtuanhn nói:
Xin cho hỏi phần mềm access có áp dụng được cho DN Xây Dựng Không?Có áp dung QĐ 48 không? Xin chân thành cám ơn
Nhấn để mở rộng...

Bạn xem lại #28 cùng topic này có hướng dẫn tóm tắt .
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

cám ơn phầm mềm của bạn nhá... nhưng có mấy chữ tiếng việt mà bị mã rồi... không biết vì sao nữa?
 
Ðề: Phần mềm kế toán access

mayblelu nói:
cám ơn phầm mềm của bạn nhá... nhưng có mấy chữ tiếng việt mà bị mã rồi... không biết vì sao nữa?
Nhấn để mở rộng...

Sử dụng font unicode "Times New Roman"
và font VNI "Vni-Helve" vì Tree view không hổ trợ unicode nên dùng tạm VNI.
 
Ðề: Phần mềm kế toán access

Phần mềm này mà share cả code thì có nhiều thứ cho anh em học hỏi. Mình mới test thử thấy phiếu thu chi bị mất 1 phần địa chỉ công ty (phiếu phía dưới).
Quochoi có thể chỉ khóa code mà để chế độ có thể design cho mọi người được không vì nhiều phiếu, bảng biểu muốn chỉnh cho phù hợp hơn thì bị khóa cứng hết cả.
Nếu dc cho mình cái đoạn code tính toán tại bảng cân đối kế toán (chắc có sử dụng hàm eval) và làm cho các dòng trên bảng cân đối Béo, nghiên nhé
Thanks.
 
Ðề: Phần mềm kế toán access

Đã bạn nào chạy thử chương trình chưa nhỉ? Hình như chương trình chạy không chuẩn. Mình thử cho dữ liệu 2 người góp vốn, 1 phiếu tạm ứng và 1 phiếu chi mua ngoài khác thì thấy tại " bảng cân đối kế toán" mục tiền mặt thì có nhưng chẳng có đồng vốn chủ sở hữu nào cả
 
Ðề: Phần mềm kế toán access

behattieu nói:
Đã bạn nào chạy thử chương trình chưa nhỉ? Hình như chương trình chạy không chuẩn. Mình thử cho dữ liệu 2 người góp vốn, 1 phiếu tạm ứng và 1 phiếu chi mua ngoài khác thì thấy tại " bảng cân đối kế toán" mục tiền mặt thì có nhưng chẳng có đồng vốn chủ sở hữu nào cả
Nhấn để mở rộng...

Bạn vào phần [Thiết kế sổ ] hoặc [Mẫu báo cáo] khi chọn in, điều chỉnh lại phần lấy số dư cho các chỉ tiêu.
VD: chỉ tiêu TIỀN (MS 111) điều chỉnh lấy số dư từ NỢ các tài khoản TM & NH như 111,112 (nếu có tiểu khoản thì 1111, 11211, 1122,. . .)
Chỉ tiêu VỐN ĐẦU TƯ CỦA CHỬ SỞ HỮU (MS 411) : lấy số dư từ CÓ TK 411 (nếu có tiểu khoản thì 4111, . . . .)
Lưu ý khi thêm mới tài khoản (hoặc tiểu khoản, tiết khoản , . .) bạn phải vào thiết kế sổ để điều chỉnh lại phần lấy dữ liệu .
-----------------------------------------------------------------------------------------
behattieu nói:
Nếu dc cho mình cái đoạn code tính toán tại bảng cân đối kế toán (chắc có sử dụng hàm eval) và làm cho các dòng trên bảng cân đối Béo, nghiên nhé
Thanks.
Nhấn để mở rộng...

Trong Report bạn tạo 2 checkbox: chkBold, chkItalic
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If chkBold Then ' In đậm
Text.FontBold = True
Else
Text.FontBold = False
End If
If chkItalic Then ' In nghiên
Text.FontItalic = True
Else
Text.FontItalic = False
End If

End Sub
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

Có bác nào dùng phần mềm kế toán UNESCO ko ạ? hic. em mới đi làm, xí nghiệp em dùng phần mềm đó, mà em thì ko nít j..
 
Ðề: Phần mềm kế toán access

Chào cả nhà, không biết chuối công thức mà có dấu trừ (110+112+113-115+116)thì thuật toán của nó thế nào nhỉ.
 
Ðề: Phần mềm kế toán access

có ai hương dẫn minh với dùng chương trình với sao mình down xuống mở ko đc nó hỏi password
 
Ðề: Phần mềm kế toán access

behattieu nói:
Chào cả nhà, không biết chuối công thức mà có dấu trừ (110+112+113-115+116)thì thuật toán của nó thế nào nhỉ.
Nhấn để mở rộng...

"Thuật toán" củ chuối của mình đây, hi vọng giúp ít được cho bạn.

http://www.mediafire.com/file/fdjw1jkjyyy/TestCongthuc.mdb
-----------------------------------------------------------------------------------------
Cái này tổng hợp hơn và ngắn ngọn hơn, cám ơn behattieu gợi ý dùng hàm Eval.

http://www.mediafire.com/file/yndjj5mdqyz/TestCongthuc1.mdb
 
Sửa lần cuối:
Ðề: Phần mềm kế toán access

Cảm ơn quochoi nhé.
Mình xem đoạn code và test thử thì thấy công thức mới sử dụng cho 2 phép toán cộng và trừ.
Đang ngồi nghĩ làm sao cho nó tính đưọc công thức dạng (a+b-c)/d.
 
Ðề: Phần mềm kế toán access

Đáp lại thịnh tình của quochoi xin gửi bạn đoạn code mà mình đã mày mò . Cái này không cần sài query và sau này có thể dùng cho ADO.

Dim str As String, Arr As Variant, gt As String
Dim rst As DAO.Recordset, rst1 As DAO.Recordset, db As DAO.Database
Dim ChuoiCanBo$, i%, ChuoiGoc$
'Vong lap nay de tinh cac cong thuc theo thu tu

Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblData where congthuc is not null order by congthuc desc")
rst.MoveFirst
For i = 1 To rst.RecordCount


ChuoiCanBo = "+-*/()" 'mu?n b? kí t? ǵ th́ gơ vào dây
ChuoiGoc = rst.Fields("congthuc")
'MsgBox ChuoiGoc
For j = 1 To Len(ChuoiCanBo)
ChuoiGoc = Replace(ChuoiGoc, Mid(ChuoiCanBo, j, 1), ";")
Next
mCongthuc = Replace(ChuoiGoc, ";;", ";")

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


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



str = rst.Fields("congthuc")
Arr = Split(mCongthuc, ";")
For k = 0 To UBound(Arr, 1)
gt = Arr(k)
Set rst1 = CurrentDb.OpenRecordset("select sotien from tbldata where code='" & gt & "'")
rst1.MoveFirst
str = Replace(str, gt, rst1.Fields(0))
'

rst1.MoveNext

Next
MsgBox Eval(str)
' Update du lieu vao day



rst.MoveNext
Next
 
Ðề: Phần mềm kế toán access

behattieu nói:
Đáp lại thịnh tình của quochoi xin gửi bạn đoạn code mà mình đã mày mò . Cái này không cần sài query và sau này có thể dùng cho ADO.

Dim str As String, Arr As Variant, gt As String
Dim rst As DAO.Recordset, rst1 As DAO.Recordset, db As DAO.Database
Dim ChuoiCanBo$, i%, ChuoiGoc$
'Vong lap nay de tinh cac cong thuc theo thu tu

Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblData where congthuc is not null order by congthuc desc")
rst.MoveFirst
For i = 1 To rst.RecordCount

ChuoiCanBo = "+-*/()" 'mu?n b? kí t? ǵ th́ gơ vào dây
ChuoiGoc = rst.Fields("congthuc")
'MsgBox ChuoiGoc
For j = 1 To Len(ChuoiCanBo)
ChuoiGoc = Replace(ChuoiGoc, Mid(ChuoiCanBo, j, 1), ";")
Next
mCongthuc = Replace(ChuoiGoc, ";;", ";")

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

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

str = rst.Fields("congthuc")
Arr = Split(mCongthuc, ";")
For k = 0 To UBound(Arr, 1)
gt = Arr(k)
Set rst1 = CurrentDb.OpenRecordset("select sotien from tbldata where code='" & gt & "'")
rst1.MoveFirst
str = Replace(str, gt, rst1.Fields(0))
'
rst1.MoveNext

Next
MsgBox Eval(str)
' Update du lieu vao day

rst.MoveNext
Next
Nhấn để mở rộng...

Cám ơn Bé nhé, nhưng bạn ơi hàm của mình cũng dùng được cho ADO. không cần bỏ đi các dấu "+-*/()". mình dùng query để hiện lên kết quả đe SS với dữ liệu cũ thôi.
bạn test thử đoạn code gọi hàm sau.

Private Sub Command2_Click()
Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("select * from tblData where (Not (tblData.Congthuc) Is Null)")
If rst.RecordCount > 0 Then
rst.MoveFirst
Do Until rst.EOF
If TONGQUAT(rst.Fields("CONGTHUC")) = -1 Then
MsgBox "Cong thuc bi sai"
Exit Sub
Else
rst.Edit
rst.Fields("SoTien") = TONGQUAT(rst.Fields("CONGTHUC"))
rst.Update
End If
rst.MoveNext
Loop
End If
rst.Close
End Sub
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

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