short_misa > 26-11-15, 12:26 PM
jason > 27-11-15, 09:54 AM
(26-11-15, 12:26 PM)short_misa Đã viết: - Cho mình hỏi là có cách nào mình gõ tên vật tư thì trong subform access tự động lọc ra các vật tư có tên tương tự như vậy không nhỉ?
ví dụ: mình có một phiếu xuất kho
- khi mình nhập tên vật tư vào : mình chị cần gõ chữ "đậu" thì những vật tư nào có chữ "đậu" sẽ hiện ra, nằm ở bất kì vị trí nào.
Như hiện giờ mình làm, thì mình phải nhớ chữ đầu của tên sản phẩm. Nếu không nhớ đúng chữ đầu thì mình sẽ không tìm ra tên sản phẩm.
Private Sub Form_Load()
DoCmd.SetWarnings 0
Me.txtTim = ""
DoCmd.SetWarnings -1
End Sub
Private Sub btTim_Click()
DoCmd.SetWarnings 0
If ([Forms]![FKH]![txtTim]) & "" <> "" Then
Dim str As String
Dim i As Integer
Dim kq As String
str = Trim(txtTim)
kq = ""
For i = 1 To Len(str) 'chay vong lap tim kiem
If Mid(str, i, 1) = " " Then
kq = kq & "*' And (QKH.TENKH) Like '*"
Else
kq = kq & Mid(str, i, 1)
End If
Next i
kq = " SELECT QKH.* FROM QKH WHERE (((QKH.TENKH) Like '*" & kq & "*'));"
Else
MsgBox "Ban chua nhap thong tin !", vbInformation, "Thong bao"
kq = "SELECT QKH.* FROM QKH WHERE (((TKH.TENKH) Like '*'));"
End If
FKH_sub.Form.RecordSource = kq
FKH_sub.Requery
DoCmd.SetWarnings -1
End Subminhman > 27-11-15, 10:15 AM
(26-11-15, 12:26 PM)short_misa Đã viết: - Cho mình hỏi là có cách nào mình gõ tên vật tư thì trong subform access tự động lọc ra các vật tư có tên tương tự như vậy không nhỉ?
ví dụ: mình có một phiếu xuất kho
- khi mình nhập tên vật tư vào : mình chị cần gõ chữ "đậu" thì những vật tư nào có chữ "đậu" sẽ hiện ra, nằm ở bất kì vị trí nào.
Như hiện giờ mình làm, thì mình phải nhớ chữ đầu của tên sản phẩm. Nếu không nhớ đúng chữ đầu thì mình sẽ không tìm ra tên sản phẩm.