ChiMai > 13-03-17, 03:13 PM
tranthanhan1962 > 13-03-17, 09:48 PM
Select Case cbLoaiPhieu.Value
Case "PT"
idDoiTuong.RowSource = "SELECT tblDanhMucDoiTuong.idDoiTuong, tblDanhMucDoiTuong.TenDoiTuong, tblDanhMucDoiTuong.LoaiDoiTuong " _
& "FROM tblDanhMucDoiTuong WHERE (((tblDanhMucDoiTuong.LoaiDoiTuong)='KH'));"
SoTienMat.ControlSource = "Thu"
Case "PC"
idDoiTuong.RowSource = "SELECT tblDanhMucDoiTuong.idDoiTuong, tblDanhMucDoiTuong.TenDoiTuong, tblDanhMucDoiTuong.LoaiDoiTuong " _
& "FROM tblDanhMucDoiTuong WHERE (((tblDanhMucDoiTuong.LoaiDoiTuong)='NC'));"
SoTienMat.ControlSource = "Chi"
Case Else
idDoiTuong.RowSource = ""
End Select
idDoiTuong.Requery
SoTienMat.Requery
Text26.Value = DLookup("[TenDoiTuong]", "tblDanhMucDoiTuong", "[idDoiTuong] = idDoiTuong.Value")