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

Table và Form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Table và Form
• Table và Form

• Table và Form

  dinhnhieu > 18-12-14, 10:36 AM

  
  Mình có Table NHANVIEN(MaNV,MaKhoa,HoTen,NgaySinh,TDCM); KHOAPHONG(MaKhoa,TenKhoa),...
  Khi minh tạo Form XUATTHUOC như hình https://www.dropbox.com/s/lmqr58o6dy7iy6...m.jpg?dl=0
  Muốn chọn mã người phát và mã khoa phát thì ở Mã người nhận và Khoa nhận nó cũng hiện lên giống vậy.
  Private Sub ComboMaNV_Change()// Nhân viên phát
  Me.TxtTenNV = DLookup("Hoten", "NHANVIEN", "MaNV=ComboMaNV")
  End Sub
  
  Private Sub ComboMaVN2_Change()// Nhân viên nhận
  Me.TxtTenNV2 = DLookup("Hoten", "NHANVIEN", "MaNV=ComboMaNV2")
  End Sub
  
  Private Sub ComboMaKhoa_Change()// Khoa Phát
  Me.txtTenKHOA = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa=ComboMaKhoa")
  End Sub
  
  Private Sub ComboMaKhoa2_Change()// Khoa nhận
  Me.TxtTenKhoa2 = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa=ComboMaKhoa2")
  End Sub
  
  Mong AC hướng dẫn giúp, xin cảm ơn.
  

• RE: Table và Form

  haquocquan > 18-12-14, 03:45 PM

  Bạn thử thay như thế này xem sao:
  
  

  Mã:

  Private Sub ComboMaNV_AfterUpdate()// Nhân viên phát
Me.TxtTenNV = DLookup("Hoten", "NHANVIEN", "MaNV='"& ComboMaNV &"'")
End Sub

Private Sub ComboMaVN2_AfterUpdate()// Nhân viên nhận
Me.TxtTenNV2 = DLookup("Hoten", "NHANVIEN", "MaNV='"& ComboMaNV2& "'")
End Sub

Private Sub ComboMaKhoa_AfterUpdate()// Khoa Phát
Me.txtTenKHOA = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa='"& ComboMaKhoa &"'")
End Sub

Private Sub ComboMaKhoa2_AfterUpdate()// Khoa nhận
Me.TxtTenKhoa2 = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa='"& ComboMaKhoa2 &"'")
End Sub

  
  Hoặc theo cách:
  

  Mã:

  Private Sub ComboMaNV_AfterUpdate()// Nhân viên phát
Me.TxtTenNV = ComboMaNV.Column(1)
End Sub

• RE: Table và Form

  dinhnhieu > 19-12-14, 09:40 AM

  Mình theo cách 1 thì cũng như cũ, áp dụng cách 2:
  Private Sub ComboMaKhoa_AfterUpdate()
  Me.txtTenKHOA = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa='" & ComboMaKhoa & "'")
  End Sub
  
  Private Sub ComboMaKhoa2_AfterUpdate()
  Me.TxtTenKhoa2 = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa='" & ComboMaKhoa2 & "'")
  End Sub
  
  Private Sub ComboMaNV_AfterUpdate()
  Me.TxtTenNV = ComboMaNV.Column(1)
  End Sub
  
  Private Sub ComboMaVN2_AfterUpdate()
  Me.TxtTenNV2 = ComboMaVN2.Column(1)
  End Sub
  
  Kết quả:
  Hình trước: https://www.dropbox.com/s/9gf05gveetjinu3/H1.jpg?dl=0
  Hình sau: https://www.dropbox.com/s/9qfcywya1r899gj/H2.jpg?dl=0
  
  Nhờ haquocquan nghiên cứu giúp. Thanks!

• RE: Table và Form

  haquocquan > 19-12-14, 01:02 PM

  Bạn up file lên xem sao

• RE: Table và Form

  dinhnhieu > 19-12-14, 08:40 PM

  (19-12-14, 09:40 AM)dinhnhieu Đã viết: Mình theo cách 1 thì cũng như cũ, áp dụng cách 2:
  Private Sub ComboMaKhoa_AfterUpdate()
  Me.txtTenKHOA = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa='" & ComboMaKhoa & "'")
  End Sub
  
  Private Sub ComboMaKhoa2_AfterUpdate()
  Me.TxtTenKhoa2 = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa='" & ComboMaKhoa2 & "'")
  End Sub
  
  Private Sub ComboMaNV_AfterUpdate()
  Me.TxtTenNV = ComboMaNV.Column(1)
  End Sub
  
  Private Sub ComboMaVN2_AfterUpdate()
  Me.TxtTenNV2 = ComboMaVN2.Column(1)
  End Sub
  
  Kết quả:
  Hình trước: https://www.dropbox.com/s/9gf05gveetjinu3/H1.jpg?dl=0
  Hình sau: https://www.dropbox.com/s/9qfcywya1r899gj/H2.jpg?dl=0
  
  Nhờ haquocquan nghiên cứu giúp. Thanks!

  Nhờ haquocquan xem lai F_XuatThuocSuB nó cũng bị lỗi. Mình đang làm chương trị Quản lý dược cho đơn vị chì yêu cầu xuất, nhập, tồn, bc thuốc gần hết hạ, bạn xem qua vả tư vấn giúp mình với.
  

  ---

  (19-12-14, 09:40 AM)dinhnhieu Đã viết: Mình theo cách 1 thì cũng như cũ, áp dụng cách 2:
  Private Sub ComboMaKhoa_AfterUpdate()
  Me.txtTenKHOA = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa='" & ComboMaKhoa & "'")
  End Sub
  
  Private Sub ComboMaKhoa2_AfterUpdate()
  Me.TxtTenKhoa2 = DLookup("TenKhoa", "KHOAPHONG", "MaKhoa='" & ComboMaKhoa2 & "'")
  End Sub
  
  Private Sub ComboMaNV_AfterUpdate()
  Me.TxtTenNV = ComboMaNV.Column(1)
  End Sub
  
  Private Sub ComboMaVN2_AfterUpdate()
  Me.TxtTenNV2 = ComboMaVN2.Column(1)
  End Sub
  
  Kết quả:
  Hình trước: https://www.dropbox.com/s/9gf05gveetjinu3/H1.jpg?dl=0
  Hình sau: https://www.dropbox.com/s/9qfcywya1r899gj/H2.jpg?dl=0
  
  Nhờ haquocquan nghiên cứu giúp. Thanks!

  Nhờ haquocquan xem lai F_XuatThuocSuB nó cũng bị lỗi. Mình đang làm chương trị Quản lý dược cho đơn vị chì yêu cầu xuất, nhập, tồn, bc thuốc gần hết hạn, bạn xem qua vả tư vấn giúp mình với.
  https://www.dropbox.com/s/8j1xrkkcbyeuito/QLKD.mdb?dl=0

• RE: Table và Form

  dinhnhieu > 22-12-14, 01:17 PM

  https://www.dropbox.com/s/8j1xrkkcbyeuito/QLKD.mdb?dl=0
  Đây là file mình đã sửa lại rồi, mong các AC xem giúp mình
  - Form HOADON va Form Xuatthuoc, mình muốn một hóa đơn có nhiều mặt hàng và các mặt hàng trong cùng hóa đơn là không trùng lặp, mình tạo quan hệ 1-nhiều nhưng vẫn bị báo lỗi.
  - Mình muốn làm bc tồn kho nhưng chưa biết làm sao mong ac tư vấn mình với.
  Mong sớm được hồi âm.

• RE: Table và Form

  haquocquan > 24-12-14, 09:22 AM

  F_XUATTHUOC của bạn chỉ cần để Unbound (không có Control Source) của các Text là ok.
  F-HOADON của bạn không bị lỗi đâu.
  Báo cáo tồn kho, bạn chỉ cần tạo query lấy NHAP-XUAT là được,
• Bài trước Bài tiếp