{"id":73,"date":"2011-10-16T10:01:01","date_gmt":"2011-10-16T10:01:01","guid":{"rendered":"http:\/\/www.edcortes.ph\/?p=177"},"modified":"2021-07-11T07:58:43","modified_gmt":"2021-07-11T07:58:43","slug":"177","status":"publish","type":"post","link":"https:\/\/emcortes.com\/?p=73","title":{"rendered":"Quick Search Function"},"content":{"rendered":"

Scenario (Applies to MS Access)<\/em><\/p>\n

I have a main form (frmSearch)\u00a0with a subform (sfrmNamesList)\u00a0by which its\u00a0data source is a query (qrySearchNames).\u00a0In a query, I added\u00a0a Search field\u00a0concatenating the\u00a0fields\u00a0that are included in the search (Search:[LastName] & ” ” & [FirstName] & ” ” & [Employee ID]). I set a criteria for the Search field as : Like “*” & [Forms!frmSearch!txtSearch] & “*”.<\/p>\n

Task<\/em><\/p>\n

Refresh the form that when the user enter a letter in the Search text box (txtSearch), the names of employees that match would display in the subform.<\/p>\n

Approach<\/em><\/p>\n

Create a module in VBA and\u00a0place this code:<\/p>\n

Public Function pfPositionCursor(ctl As Control, lngWhere As Long)
\nSelect Case ctl.ControlType
\nCase AcControlType.acTextBox, AcControlType.acComboBox<\/p>\n

ctl.SelStart = lngWhere
\nctl.SelLength = 0<\/p>\n

Case Else
\n\u2019Do Nothing
\nEnd Select
\nEnd Function<\/p>\n

Then, on the On Change Event of txtSearch, put this code:<\/p>\n

Private Sub txtSearch_Change()
\nMe.Refresh
\npfPositionCursor Me.txtSearch, Len(Me.txtSearch & “”)
\nEnd Sub<\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

Scenario (Applies to MS Access) I have a main form (frmSearch)\u00a0with a subform (sfrmNamesList)\u00a0by which its\u00a0data source is a query (qrySearchNames).\u00a0In a query, I added\u00a0a Search field\u00a0concatenating the\u00a0fields\u00a0that are included in the search (Search:[LastName] & ” ” & [FirstName] & ” ” & [Employee ID]). I set a criteria for the Search field as : […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[9,4],"tags":[],"class_list":["post-73","post","type-post","status-publish","format-standard","hentry","category-access","category-programming-notes"],"_links":{"self":[{"href":"https:\/\/emcortes.com\/index.php?rest_route=\/wp\/v2\/posts\/73","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/emcortes.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/emcortes.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/emcortes.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/emcortes.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=73"}],"version-history":[{"count":1,"href":"https:\/\/emcortes.com\/index.php?rest_route=\/wp\/v2\/posts\/73\/revisions"}],"predecessor-version":[{"id":337,"href":"https:\/\/emcortes.com\/index.php?rest_route=\/wp\/v2\/posts\/73\/revisions\/337"}],"wp:attachment":[{"href":"https:\/\/emcortes.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=73"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/emcortes.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=73"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/emcortes.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=73"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}