Đá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
  Hiện nội dung record của subform lên main form hueqlhc 9 2,706 02-08-17, 04:36 PM
Bài mới nhất: tvn_hut
  [Help] Code update dữ liệu từ subform vào table history(có ghi nhận ngày update) subasatran 5 238 10-07-17, 02:07 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 6 206 26-06-17, 11:45 AM
Bài mới nhất: tranthanhan1962
  Lấy dữ liệu từ 2 subform trong Mainform thanhtruong 39 1,745 10-06-17, 08:22 AM
Bài mới nhất: thanhtruong
  Lỗi check và uncheck trên checkbox tieu_ngao 5 233 09-06-17, 02:14 PM
Bài mới nhất: tieu_ngao

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ơ