Đá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
  Tự động hiện Form khi loading hết thời gian ChiMai 1 34 Hôm qua, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 186 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 162 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 123 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Help] Dòng chữ chạy trên form báo đến ngày sinh nhật tronghieu9792 1 121 20-10-16, 09:30 AM
Bài mới nhất: lamvankhanh

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ơ