maidinhdan > 22-03-15, 02:26 AM
Private Sub Form_Load()
Me.txtTens = "*"
Dim ListAB As String
ListAB = "SELECT ID, Tenhang FROM tblHH Where Tenhang Like '*' & txtTenS"
Me.List.RowSource = ListAB
End Sub
Private Sub txtTens_AfterUpdate()
Me.List.Requery
End Sub