Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Cách tìm mã vật tư trên subform
#1
- 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.
Chữ ký của short_misa Xin chào, mình là short_misa, Tham gia http://thuthuataccess.com/forum từ ngày 19-02 -13.
Reply
Những người đã cảm ơn
#2
(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.

bạn xem code dưới rồi tự áp dụng vào bài của mình nhen:
thân mến.
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 Sub
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#3
(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.


Bạn xem thử: http://www.mediafire.com/download/r8q3js...ithuoc.mdb
Chữ ký của minhman minhman,gia nhập Thủ Thuật Access từ 07-08 -15.
Reply
Những người đã cảm ơn maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Search dựa trên nhiều tiêu chí Godspear 7 118 20-01-17, 10:55 AM
Bài mới nhất: Godspear
  Nút Thêm dữ liệu trên form vulhu06 3 828 16-01-17, 10:33 AM
Bài mới nhất: Lê Văn Giáp
  [Hỏi] Search dựa trên combo box Godspear 16 380 20-12-16, 03:43 PM
Bài mới nhất: ongke0711
  [Help] Gán giá trị từ checkbox vào subform Dean 4 155 18-12-16, 07:32 PM
Bài mới nhất: Dean
  Cách đề tạo Combo Box và List Box Tương ứng Godspear 11 431 13-12-16, 05:41 AM
Bài mới nhất: Godspear

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ