thaomobilecntv > 24-02-21, 07:08 AM
ongke0711 > 24-02-21, 09:11 AM
Private Sub cboMaHang_AfterUpdate()
LayDonGia
End Sub
Private Sub cboLoaiKH_AfterUpdate()
LayDonGia
End Sub
Sub LayDonGia()
Select Case cboLoaiKH.Value
Case 1
Me.txtDonGia.Value = DLookup("GiaSi", "tbl_HangHoa", "MaHang ='" & Me.cboMaHang & "'")
Case 2
Me.txtDonGia.Value = DLookup("GiaLe", "tbl_HangHoa", "MaHang ='" & Me.cboMaHang & "'")
End Select
End Sub