• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư Viện Ứng Dụng
  • Phần mềm kế toán DN nhỏ và vừa (QĐ 48)
• Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

• Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

  DoquangLam > 16-12-10, 10:54 AM

  Mình muốn gửi chương trình kế toán DN lên để các bạn tham khảo, dung lượng khoảng 2MB, không up được, admin có thể hướng dẫn dùm.

• RE: Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

  DoquangLam > 16-12-10, 11:26 AM

  Chương trình : http://www.mediafire.com/?c67b776nbr157w7
  Hướng dẫn : http://www.mediafire.com/?w31wuvw96466adp

• RE: Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

  Noname > 16-12-10, 11:29 AM

  Thanks Doquanglam đã góp chương trình cùng mọi người! Good job!
  

• RE: Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

  mkhank4 > 04-05-13, 11:04 AM

  link die rồi

• RE: Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

  ngochuong279 > 23-11-13, 05:56 PM

  Xin chao
  Minh co thiet ke 1 phan mem ke toan, nhung o phieu ke toan minh lam them mot nut lenh la" lap but toan" nhung khi lam xong va viet code vao chay thu thi bao loi nay la sao ban co the giup minh duoc khong " Microsoft office Access can't find the field ' ' referred to in your expression

• RE: Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

  khải nguyên > 24-11-13, 10:18 AM

  Hãy xem lại tên cột (trường dữ liệu ) trong chương trình và khi viết code không chính xác nên sảy ra lỗi
  này " không tìm thấy cột dữ liệu !"
  Khải Nguyên!

• RE: Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

  ngochuong279 > 27-11-13, 12:09 AM

  Xin chào
  Mình cũng đã hiểu lỗi này là thiếu trường dữ liệu" Microsoft office Access can't find the field'|'referred to in your expression" nhưng mình vẫn không tìm ra. sau đây là code của mình viết ra bạn có thể xem giúp mình đã sai ở chỗ nào được không.
  Private Sub Lap_BT_Click()
  On Error GoTo Err_Lap_BT_Click
  Dim Dbs As Database
  Dim strSQL As String, mSTT As Integer
  Set Dbs = CurrentDb
  
  If DCount("*", "OrgCTKT", "STT_REC=" & Me!STT_REC) > 0 Then
  If MsgBox("Cã ®ång ý lËp l¹i bót to¸n?", vbQuestion + vbYesNo, "Th«ng b¸o") = vbNo Then
  Exit Sub
  End If
  Dbs.Execute "Delete from OrgCTKT where STT_REC=" & Me![STT_REC]
  End If
  
  'Lap cac but toan tu dong:
  ' STT. No: Co: dien giai
  ' 2 133 TK_Co tien thue VAT
  ' Neu co cac thong tin den dau thi lap den do
  
  Dim Rst As Recordset
  If Nz([Tg_DoanhSo]) > 0 Then
  strSQL = "Select Doanh_so, tien_thue, So_HD from OrgCTVAT Where STT_REC = " & Me!STT_REC
  Set Rst = Dbs.OpenRecordset(strSQL)
  mSTT = 1
  Do While Not Rst.EOF
  'BT tien hangf
  strSQL = "Insert into OrgCTKT(STT_REC,STT_BT, TK_TICO, TIEN_VND, SO_HD, DIEN_GIAI_BT) "
  strSQL = strSQL & " values (" & Me![STT_REC] & "," & mSTT & ",'" & Me![TK_TI] & "',"
  strSQL = strSQL & Nz(Rst!Doanh_So) & ",'" & Nz(Rst!SO_HD) & "','" & ABCtoUnicode("TiÒn hµng") & "');"
  Dbs.Execute strSQL
  mSTT = mSTT + 1
  
  'BT tien thue
  If Nz(Rst!TIEN_THUE) <> 0 Then
  strSQL = "Insert into OrgCTKT(STT_REC, STT_BT,TK_TINO, TK_TICO,TIEN_VND, SO_HD, DIEN_GIAI_BT) "
  strSQL = strSQL & " values (" & Me![STT_REC] & ", " & mSTT & "," & IIf(Nz(TKVATDauVao) = "", "'1331'", "'" & TKVATDauVao & "'") & ",'" & Me![TK_TI] & "',"
  strSQL = strSQL & Nz(Rst!TIEN_THUE) & ",'" & Nz(Rst!SO_HD) & "','" & ABCtoUnicode("TiÒn thuÕ GTGT") & "');"
  Dbs.Execute strSQL
  mSTT = mSTT + 1
  End If
  Rst.MoveNext
  Loop
  Rst.Close
  End If
  
  Set Dbs = Nothing
  Me![BUTTOAN].Requery
  
  Exit_Lap_BT_Click:
  Exit Sub
  
  Err_Lap_BT_Click:
  MsgBox Err.Description
  Resume Exit_Lap_BT_Click
  
  End Sub

• RE: Phần mềm kế toán DN nhỏ và vừa (QĐ 48)

  anhemnhangu > 27-11-13, 05:57 PM

  Đường link này không tải được, bạn vui lòng gửi đường link mới.
  Cám ơn,

• RE: Phần mềm kế toán DN

  ngochuong279 > 28-11-13, 08:21 PM

  Xin chào[quote[/quote]
  Mình cũng đã hiểu lỗi này là thiếu trường dữ liệu" Microsoft office Access can't find the field'|'referred to in your expression" nhưng mình vẫn không tìm ra. sau đây là code của mình viết ra bạn có thể xem giúp mình đã sai ở chỗ nào được không.
  
  Private Sub Lap_BT_Click()
  On Error GoTo Err_Lap_BT_Click
  
  Dim Dbs As Database
  Dim strSQL As String, mSTT As Integer
  Set Dbs = CurrentDb
  If DCount("*", "OrgCTKT", "STT_REC=" & Me!STT_REC) > 0 Then
  If MsgBox("Cã ®ång ý lËp l¹i bót to¸n?", vbQuestion + vbYesNo, "Th«ng b¸o") = vbNo Then
  Exit Sub
  End If
  Dbs.Execute "Delete from OrgCTKT where STT_REC=" & Me![STT_REC]
  End If
  
  'Lap cac but toan tu dong:
  ' STT. No: Co: dien giai
  ' 2 133 TK_Co tien thue VAT
  ' Neu co cac thong tin den dau thi lap den do
  Dim mDien_Giai As String
  If Not IsNull(Me!DIEN_GIAI_CT) Then
  mDien_Giai = Me!DIEN_GIAI_CT
  Else
  mDien_Giai = ABCtoUnicode("TiÒn hµng")
  End If
  'BT tien hang
  If Nz([HD_DoanhSo]) > 0 Then
  strSQL = "Insert into OrgCTKT(STT_REC,STT_BT,TK_TINO,TIEN_VND,DIEN_GIAI_BT) "
  strSQL = strSQL & " values (" & Me![STT_REC] & "," & mSTT & ",'"
  strSQL = strSQL & Round([HD_Doanh_So]) & ",'" & "','" & ABCtoUnicode("TiÒn hµng") & "');"
  Dbs.Execute strSQL
  mSTT = mSTT + 1
  End If
  'BT tien thue
  If Nz(Me![HD_TienThue]) > 0 Then
  'lap but toan
  strSQL = "Insert into OrgCTKT(STT_REC, STT_BT,TK_TINO,TIEN_VND,DIEN_GIAI_BT) "
  strSQL = strSQL & " values (" & Me![STT_REC] & "," & mSTT & ",'" & IIf(Nz(TKVATDauVao) = "", "1331", TKVATDauVao) & "',"
  strSQL = strSQL & Round(Me![HD_TienThue]) & ",'"
  If Not IsNull(Me!CTU_GOC) Then
  strSQL = strSQL & ",'TiÒn thuÕ GTGT H§ sè " & Left(Nz(Me!CTU_GOC), Len(Nz(Me!CTU_GOC)) - 1) & "');"
  Else
  strSQL = strSQL & ABCtoUnicode("TiÒn thuÕ GTGT") & "');"
  End If
  Dbs.Execute strSQL
  mSTT = mSTT + 2
  End If
  
  Set Dbs = Nothing
  Me![BUTTOAN].Requery
  
  Exit_Lap_BT_Click:
  Exit Sub
  
  Err_Lap_BT_Click:
  MsgBox Err.Description
  Resume Exit_Lap_BT_Click
  
  End Sub
• Bài trước Bài tiếp