Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Table và Form
#1

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.
Chữ ký của dinhnhieu Xin chào, mình là dinhnhieu, Tham gia http://thuthuataccess.com/forum từ ngày 26-11 -14.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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!
Chữ ký của dinhnhieu Xin chào, mình là dinhnhieu, Tham gia http://thuthuataccess.com/forum từ ngày 26-11 -14.
Reply
Những người đã cảm ơn
#4
Bạn up file lên xem sao
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
(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
Chữ ký của dinhnhieu Xin chào, mình là dinhnhieu, Tham gia http://thuthuataccess.com/forum từ ngày 26-11 -14.
Reply
Những người đã cảm ơn
#6
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.
Chữ ký của dinhnhieu Xin chào, mình là dinhnhieu, Tham gia http://thuthuataccess.com/forum từ ngày 26-11 -14.
Reply
Những người đã cảm ơn
#7
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,
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn dinhnhieu


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Tongue [Hỏi] Lệnh Hide/Unhide cột trong form Datasheet View bomnhauag 2 77 7 Giờ trước
Bài mới nhất: bomnhauag
  [Help] Tạo form tìm kiếm đơn giản trong access liaemars 2 82 , 09:40 AM
Bài mới nhất: NguyenDungAnh
  Hướng Dẫn Tạo form hóa đơn bán hàng Mỹ Hạnh 6 229 04-04-18, 09:29 PM
Bài mới nhất: ongke0711
  Tạo form tìm kiếm thông tin Mỹ Hạnh 2 147 29-03-18, 02:28 PM
Bài mới nhất: Mỹ Hạnh
  Lấy dữ liệu từ form khác Mỹ Hạnh 1 108 27-03-18, 04:21 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line