Cách tạo nút combo box trong access project
dannynguyen1980 > 25-11-11, 01:17 PM
Tôi có đoạn code trong Access Project sử dụng cho nút combo box CbSO_HC để khi chọn 1 SO_HC(số hộ chiếu) trên mainform (nguồn T_Đanhsachoituong) thì chương trình sẽ cập nhật các fields NGHE_NGHIE, NGAY_XN, TEN_DBAY,MA_CBAY, TEN_MD, DC_VN,XUAT_NHAP , MATTP, TEN_TTP trên subform F_SubCapnhat(nguồn T_CapnhatXNC). Nhưng không hiểu lý do tại sao không chọn được SO_HC trên list của nút combo box CbSO_HC. Mong các anh/ chị có kinh nghiệm hướng dẫn giúp.
-------------------------------------------------------------------
Private Sub CbSO_HC_Click()
Dim rst As New ADODB.Recordset
rst.Open "select NGHE_NGHIE, NGAY_XN, TEN_DBAY,MA_CBAY, TEN_MD, DC_VN,XUAT_NHAP , MATTP, TEN_TTP from T_Danhsachdoituong inner join T_CapnhatXNC on T_Danhsachdoituong.SO_HC = T_CapnhatXNC.SO_HC where Trim(SO_HC) = '" + Trim(CbSO_HC), _
CurrentProject.Connection, adOpenStatic, adLockReadOnly
Set F_SubCapnhat.Form.Recordset = rst
F_SubCapnhat.Requery
'Exit Here:
rst.Close
End Sub
------------------------------------------------
Trân trọng./.