Đá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
  [Hỏi] Cách sử dụng Old Value - Property? vkaccess 2 112 07-12-17, 04:14 PM
Bài mới nhất: vkaccess
  [Hỏi] Xin hỏi về cách nhập dữ liệu mới cho form mainsub Thiên Hùng 1 82 23-11-17, 04:01 PM
Bài mới nhất: cpucloi
  [Hỏi] Xin hỏi cách cập nhật thông tin cán bộ nghỉ hưu kiepgiangho79 3 140 08-11-17, 05:27 PM
Bài mới nhất: cpucloi
  Subform hoạt động được nhưng không thêm dữ liệu vào được pvhung76 7 167 02-11-17, 08:16 AM
Bài mới nhất: pvhung76
  [Help] Cập nhật dữ liệu cho subform có thêm field mới subasatran 8 396 26-10-17, 05:54 PM
Bài mới nhất: subasatran

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ơ