Tùy chọn
Xin giúp đỡ về macro search record
- Xin giúp đỡ về macro search record
-
Xin giúp đỡ về macro search record
reddevilsir > 05-11-13, 12:29 PM
Mình mới bắt đầu thực hành access để tạo một hồ sơ nhân sự cho công ty.
Mình có vấn đề này cần các bạn giúp đỡ
Mình đang làm một form search nhân viên theo split-form, với sự kiện click cmd button tìm sẽ thực thi một macro SearchFilter để lọc. Nhưng nó chỉ lọc được có một lần, không lọc được những lần tiếp theo. Muốn search tiếp phải tắt rồi mở form lại thì mới được. Mong mọi người chỉ giúp nhé. Cảm ơn
File source của mình: www.mediafire.com/download/7ib83tdkfdcdjjs/HoSoNhanSuTest.mdb -
RE: Xin giúp đỡ về macro search record
cpucloi > 05-11-13, 08:59 PM
Theo tớ:
1. Chuyển text box nhập mã để tìm kiếm thành dạng cobo box (cái này thuận tiện cho việc tìm kiếm, do Row Source lấy từ filed MSCD của table Nhanvien, đồng thời có thể sử dụng thuộc tính On not in list để đưa ra cảnh báo MSCD không có trong hệ thống - đây cũng là một cách bẫy lỗi).
2. Tại query nguồn bạn thêm trường (có tên hay không cũng được) và lấy giá trị là cbo_search mà bạn muốn nhập giá trị tìm kiếm, đồng thời criteria tương ứng như sau
flied: MSCD / [forms]![searchNV_FQ]![cbo_search]
criteria dòng 1: [forms]![searchNV_FQ]![cbo_search] / is not null
criteria dòng thứ 2: (chỗ này tương ứng để trống) / is null
2. Bạn viết thủ tục tại command cmdSearchQ (thật đơn giản)
me.requery
3. Bạn cũng có thể đặt thêm một thủ tục ApterUpdate tại cbo_search
me.requery
khi đó bạn chỉ cần chọn 1 MSCD là form tự chuyển cho bạn (không cần phải bấm nút tìm nữa)
-
RE: Xin giúp đỡ về macro search record
anhemnhangu > 06-11-13, 08:40 PM
Khi nào bạn làm được chuyển file chia sẽ với mọi người.
Cám ơn bạn, -
RE: Xin giúp đỡ về macro search record
anhemnhangu > 06-11-13, 09:58 PM
Mình đang học Access cũng quan tâm đến vấn đề tạo form tìm kiếm như chủ đề bạn gửi trên,
tối nay mình ngồi tải file của bạn làm theo hướng dẫn của Anh Cpucloi nhưng vẫn chưa được.
Anh chị nào đã làm được phần này xin gửi file cho mình học hỏi, tham khảo.
Cám ơn. -
RE: Xin giúp đỡ về macro search record
DustWind > 10-11-13, 06:50 AM
Tôi không Access nên không rõ . Tuy nhiên code VBA cũng sẽ tương tự na ná giống nhau .
Ví dụ :
Sub Test()
Dim rngFind As Range, firstAddress As String
Const strFindMe As String = "apple"
With Worksheets("Sheet1").Cells
Set rngFind = .Find(what:=strFindMe, LookIn:=xlValues)
If Not rngFind Is Nothing Then
firstAddress = rngFind.Address
Do
rngFind.Interior.ColorIndex = 3
Set rngFind = .FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> firstAddress
End If
End With
Do ... loop sẽ giúp bạn tìm kiếm tiếp . Tùy bạn muốn dùng loại loop gì ( For .. next hay while do ... v.v..)
Sub Sample()
Dim oSht As Worksheet
Dim lastRow As Long, i As Long
Dim strSearch As String
Dim t As Long
t = GetTickCount
On Error GoTo Err
Set oSht = Sheets("Sheet1")
lastRow = oSht.Range("A" & Rows.Count).End(xlUp).Row
strSearch = "10000"
For i = 1 To lastRow
If oSht.Range("A" & i).Value = strSearch Then
MsgBox "Value Found in Cell " & oSht.Range("A" & i).Address & vbCrLf & _
"and it took " & GetTickCount - t & " milliseconds"
Exit Sub
End If
Next i
Exit Sub
Err:
MsgBox Err.Description
End Sub
Có rất nhiều kiểu Find, tùy theo cái structure database của bạn hoặc mục tiêu tìm cái gì cho gọn và nhanh .
VBA bên này không ứng dụng đúng hoàn toàn trong VN, vì cái code đổi ra chữ việt sẽ tạo ra error . Nên tôi chỉ giúp ý kiến mà thôi