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

Dữ liệu giữa các bảng có quan hệ

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Table
  • Dữ liệu giữa các bảng có quan hệ
• Dữ liệu giữa các bảng có quan hệ

• Dữ liệu giữa các bảng có quan hệ

  luunhatky > 12-06-13, 04:57 PM

  Như trên, mình mới tạo 1 CSDL gồm nhiều bảng trong đó có bảng Nhập, Xuất và Tồn. Có cách nào khi nhập số lượng từ bảng Nhập thì số lượng tồn được cộng vào, khi nhập số lượng xuất thì bảng Tồn sẽ trừ đi không?
  Giúp mình với!

• RE: Dữ liệu giữa các bảng có quan hệ

  wintq > 13-06-13, 08:48 AM

  Người ta chỉ lập 2 bảng. Nhập và xuất còn tồn thì khi nào tính người ta liên kết 2 bảng trên để tính. Ko ai tạo 3 bảng Nhạp, xuất, tòn như bạn

• RE: Dữ liệu giữa các bảng có quan hệ

  Xuân Thanh > 13-06-13, 10:58 AM

  Làm thông qua form nhập liệu sẽ có cách giải quyết thông qua Event AfterUpdate của trường SoLuong (Nhập hoặc Xuất)
  Thân mến

• RE: Dữ liệu giữa các bảng có quan hệ

  haidc > 13-06-13, 04:31 PM

  Cứ để Nhập, Xuất ở 2 table. Chỉ khi làm report thì mới dùng nó để trừ ra thôi. Nếu bạn muốn tự động trừ thì tạo 2 query 1 cho hàng Xuất, một cho hàng Nhập xong tử 2 query này tạo một union query Nhập-Xuất. Sau đó dùng union query này làm source cho text box hay combo box trong form nhập liệu. Tiếp theo bạn tạo 1 macro hay code requery cho text box hay combo box trên sau đó gán cho sự kiện LostFocus, AfterUpdate...v.v để tự động lấy hàng Nhập trừ đi hàng Xuất để còn hàng Tồn.

• RE: Dữ liệu giữa các bảng có quan hệ

  luunhatky > 14-06-13, 06:08 PM

  Cảm ơn mọi người, mình không rành access nên mới gà mờ như thế!

• RE: Dữ liệu giữa các bảng có quan hệ

  Xuân Thanh > 15-06-13, 04:15 PM

  Code trên form Nhập của textbox txtSoLuong
  
  

  Mã PHP:

  Private Sub txtSoLuong_AfterUpdate()
    Dim rs As Recordset
    Set rs = CurrentDb.openRecordset("tblHangHoa", dbOpenTable)
    rs.Index = "PrimaryKey"
    rs.Seek "=", Me.MaHang
    If Not rs.NoMatch Then
        rs.Edit
        rs!Ton = rs!Ton + Me.txtSoLuong
        rs.Update        
    End If
End Sub 


  
  Code trên form Xuat của textbox txtSoLuong
  
  

  Mã PHP:

  Private Sub txtSoLuong_AfterUpdate()
    Dim rs As Recordset
    Set rs = CurrentDb.openRecordset("tblHangHoa", dbOpenTable)
    rs.Index = "PrimaryKey"
    rs.Seek "=", Me.MaHang
    If Not rs.NoMatch Then
        If rs!Ton < Me.txtSoLuong Then
            MsgBox "Khong the xuat vuot so ton" , , "Chu y"
            Exit Sub
            Me.txtSoLuong.SetFocus
        Else
            rs.Edit
            rs!Ton = rs!Ton - Me.txtSoLuong
            rs.Update
        End If
    End If
End Sub 


  
  Table tblHangHoa : MaHang, TenHang, DVT, Ton
  Nghiên cứu tiếp nhé
  Thân mến
• Bài trước Bài tiếp