Đá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] Refresh Form và tiếp tục hoạt động Godspear 3 557 10-12-17, 07:24 AM
Bài mới nhất: amazonvn82
Photo [Hỏi] Không chèn được ActiveX control vào Form killitmore 4 168 06-12-17, 02:49 PM
Bài mới nhất: killitmore
  [Hỏi] Truyền dữ liệu từ 1 bound form vào 1unbound form mrsiro 8 217 04-12-17, 12:33 PM
Bài mới nhất: ongke0711
  [Help] Sub Form tự động điền các record haidc 6 362 03-12-17, 10:16 PM
Bài mới nhất: haidc
  [Hỏi] Form access hiện thì trắng khi xem ở chế độ Forrm View subasatran 1 92 29-11-17, 12:57 AM
Bài mới nhất: maidinhdan

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ơ