Xin trợ giúp sự kiện xảy ra trong Combox

[doibac2004]

Em có xem qua một chương trình kế toán viết bằng fox và thấy tại trường nhập khách hàng là một combobox, người sử dụng có thể nhập vào một chữ nào đó có chứa trong tên của khách hàng thì combobox sẽ tự động sổ xuống những tên khách hàng có tên chứa chữ cái đó. Em thấy rất hay và muốn áp dụng nó vào chương trình access của mình. Nhưng em chưa biết phải làm thế nào với combobox để làm được như vậy. Nhờ các chuyên gia trên diễn đàn chỉ giáo cho em với.Thanks all

 

[doibac2004]

Ðề: Xin trợ giúp sự kiện xảy ra trong Combox

Sao không bạn nào giúp mình với.Chán thật

 

[doibac2004]

Ðề: Xin trợ giúp sự kiện xảy ra trong Combox

sao ko ai gup vay

 

[xuanthanh]

Ðề: Xin trợ giúp sự kiện xảy ra trong Combox

1/ Trong combo nó tự động short theo chữ cái đầu của danh sách, chỉ cần gõ là nó hiện ra ngay
2/ Muốn làm theo tên thì không dùng hộip combo mà dùng một textbox rồi gán sự kiện afterupdate của nó để gọi một hàm tự tạo để tìm kiếm. Hàm tự tạo là hàm tìm một từ trong m,ột chuỗi từ cho trước. Nếu tìm thấy thì cho hiển thị, ngược lại thì không
Chắc bạn hiểu ý đồ này và vận dụng vào bài của mình
Thân

Thôi thì gửi cho bạn cái hàm tự tạo đó. Bạn tùy nghi sử dụng vào mục địch của mình
Thân

Function TimChuoi(ChuoiMe As String, ChuoiCon As String) As String    
    Dim i As Long
    Dim Lm As Long
    Dim Lc As Long
    Dim Tu As String
    Dim Thay As Boolean
    Thay = False
    ChuoiMe = Trim(ChuoiMe): ChuoiCon = Trim(ChuoiCon)
    Lm = Len(ChuoiMe): Lc = Len(ChuoiCon)
    For i = 1 To Lm
        Tu = Mid(ChuoiMe, i, Lc)
        If Tu = ChuoiCon Then Thay = True: Exit For
    Next
    If Thay = True Then
        TimChuoi = ChuoiMe
    Else
        MsgBox "Khong tim thay"
        Exit Function
    End If
End Function