Đá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
  [Hỏi] Tạo các Button trên FORM với với số lượng button thay đổi theo dữ Liệu minhtungph 4 97 9 Giờ trước
Bài mới nhất: minhtungph
  [Hỏi] Navigation Bar không sử dụng được các control khác trên Form minhtungph 15 662 16-10-17, 12:15 PM
Bài mới nhất: minhtungph
Photo [Help] Vấn đề về dữ liệu trong form doandiepanh 6 362 09-10-17, 03:07 PM
Bài mới nhất: doandiepanh
  Form đăng nhập trong access. riolo05 13 8,217 24-09-17, 09:49 PM
Bài mới nhất: cpucloi
  [Hỏi] cách Khóa form không cho click ra ngoài toidjtjmtoi 3 159 08-09-17, 12:30 PM
Bài mới nhất: toidjtjmtoi

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ơ