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

Viết câu lệnh SQl để tính toán giá trị trên form

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Viết câu lệnh SQl để tính toán giá trị trên form
• Viết câu lệnh SQl để tính toán giá trị trên form

• Viết câu lệnh SQl để tính toán giá trị trên form

  NganNguyen > 07-10-15, 10:48 PM

  Mình bị vướng chỗ viết câu lệnh để tìm các giá trị sau:
  1. Số lượng ứng với mã hàng hóa.
  (Mình dùng hàm Dlookup để tìm những khi tìm trong bảng CTHD thì có 2 khóa chính là SoHD và MaHH nên khi viết hàm dlookup mà không biết làm sao)
  câu lệnh SQL của mình: soluong=dlookup("soluong","cthd",điều kiện ???)
  2. Tính tiền vận chuyển TIENVC = SoLuong*DonGia*MucPhi 
  3. Thành tiền THANHTIEN=TIENVC+SoLuong*DonGia
  (câu 2, 3 phải tính tự động, tức là giá trị phải tự thay đổi. Cái này thì mình chưa có ý tưởng)
  Dữ  liệu:
  Access 2003:
  https://onedrive.live.com/redir?resid=34...file%2cmdb
  Access 2013: 
  https://onedrive.live.com/redir?resid=34...le%2caccdb

• RE: Viết câu lệnh SQl để tính toán giá trị trên form

  tranthanhan1962 > 08-10-15, 12:56 AM

  (07-10-15, 10:48 PM)NganNguyen Đã viết: Mình bị vướng chỗ viết câu lệnh để tìm các giá trị sau:
  1. Số lượng ứng với mã hàng hóa.
  (Mình dùng hàm Dlookup để tìm những khi tìm trong bảng CTHD thì có 2 khóa chính là SoHD và MaHH nên khi viết hàm dlookup mà không biết làm sao)
  câu lệnh SQL của mình: soluong=dlookup("soluong","cthd",điều kiện ???)
  2. Tính tiền vận chuyển TIENVC = SoLuong*DonGia*MucPhi 
  3. Thành tiền THANHTIEN=TIENVC+SoLuong*DonGia
  (câu 2, 3 phải tính tự động, tức là giá trị phải tự thay đổi. Cái này thì mình chưa có ý tưởng)
  Dữ  liệu:
  Access 2003:
  https://onedrive.live.com/redir?resid=34...file%2cmdb
  Access 2013: 
  https://onedrive.live.com/redir?resid=34...le%2caccdb

  Trên bảng CTHD 2 khóa là SoHD và MaHH là khóa ngoại (foreign keys) chứ không phải là khóa chính (primary key)
  Để tìm đơn giá trên form  
  

  Mã:

  Private Sub cboMaHH_AfterUpdate()
DonGia.Value = DLookup("[DMHH]![DONGIA]", "DMHH", "[DMHH]![MAHH]=MAHH.Value")
End Sub

  
  tương tự
  

  Mã:

  TIENVC .Value = DLookup("[DONVI]![MUCPHI]", "DONVI", "[DONVI]![MADV] =MADV.Value")

  
  Từ đó tính được:
  
  

  Mã:

  TIENVC.Value = SoLuong.Value * DLookup("[DMHH]![DONGIA]", "DMHH", "[DMHH]![MAHH]=MAHH.Value") * DLookup("[DONVI]![MUCPHI]", "DONVI", "[DONVI]![MADV] =MADV.Value")

THANHTIEN.Value=TIENVC.Value + SoLuong.Value * DLookup("[DMHH]![DONGIA]", "DMHH", "[DMHH]![MAHH]=MAHH.Value")

  
  * Các tham số có tên bảng là các trường trong bảng, Các tham số có .Value là các textbox (textbox nào chưa có thì tạo)
  * Những control là tham số thay đổi phải đưa thuật toán tính giá trị liên quan vào event control _AfterUpdate để khi thay đổi giá trị nó sẽ tính lại. 
  * Access 2003 và 2013 giống nhau trong cách tính toán này.
• Bài trước Bài tiếp