Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Xin giúp đỡ về macro search record
#1
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: http://www.mediafire.com/download/7ib83t...SuTest.mdb
Chữ ký của reddevilsir Xin chào, mình là reddevilsir, Tham gia http://thuthuataccess.com/forum từ ngày 05-11 -13.
Reply
Những người đã cảm ơn
#2
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)

big green

LightbulbLightbulbLightbulbLightbulbLightbulbLightbulbLightbulbLightbulbLightbulb
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Khi nào bạn làm được chuyển file chia sẽ với mọi người.
Cám ơn bạn,
Chữ ký của anhemnhangu Xin chào, mình là anhemnhangu, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -13.
Reply
Những người đã cảm ơn
#4
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.
Chữ ký của anhemnhangu Xin chào, mình là anhemnhangu, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -13.
Reply
Những người đã cảm ơn
#5
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
Chữ ký của DustWind Xin chào, mình là DustWind, Tham gia http://thuthuataccess.com/forum từ ngày 09-11 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cần giúp đỡ về hàm if trong macro hvhvpdk 2 68 28-11-16, 01:04 PM
Bài mới nhất: hvhvpdk
  Hướng dẫn tạo Menu cho file Access bằng Macro Noname 44 31,773 10-11-16, 04:48 PM
Bài mới nhất: ongke0711
  [Hỏi] Cách tạo Combobox tìm và đi đến record (Khi gõ có hiện thông tin của record) thanh_linh60 4 418 30-09-16, 06:17 PM
Bài mới nhất: thienphuc2611
  [Hỏi] Macro Setvalue bị tắt sau khi chuyển thành file MDB toancvp 6 335 25-07-16, 07:28 PM
Bài mới nhất: toancvp
  Cần Giúp đỡ về Menu bar acess 2007 toi511 3 711 12-06-16, 02:34 PM
Bài mới nhất: truongtrungviet

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ơ