Đá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
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 184 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 160 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Help] Dòng chữ chạy trên form báo đến ngày sinh nhật tronghieu9792 1 121 20-10-16, 09:30 AM
Bài mới nhất: lamvankhanh
  [Hỏi] Sử dụng chuột giữa trong subform là report. toancvp 10 353 12-10-16, 01:01 AM
Bài mới nhất: toancvp
  Thay đổi màu nền các dòng theo điều kiện trên form Continuous tranthanhan1962 9 1,696 27-09-16, 11:01 PM
Bài mới nhất: ongke0711

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ơ