2 questions regarding a search box function

[Guest]

Hi all..

I am using the following search function to search my database:

Private Sub cmdSearch2_Click()
Dim strLastName As String
Dim strSearch As String

'Check txtSearch for Null value or Nill Entry first.
If IsNull(Me![txtSearch2]) Or (Me![txtSearch2]) = "" Then
MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"
Me![txtSearch2].SetFocus
Exit Sub
End If
'Performs the search using value entered into txtSearch
'and evaluates this against values in strStudentID
DoCmd.ShowAllRecords
DoCmd.GoToControl ("LastName")
DoCmd.FindRecord Me!txtSearch2
LastName.SetFocus
strLastName = LastName.Text
txtSearch2.SetFocus
strSearch = txtSearch2.Text
'If matching record found sets focus in strStudentID and shows msgbox
'and clears search control
If strLastName = strSearch Then
'MsgBox "Match Found For: " & strSearch, , "Congratulations!"
LastName.SetFocus
'txtSearch = ""
'If value not found sets focus back to txtSearch and shows msgbox
Else
MsgBox "Match Not Found For: " & strSearch & " - Please Try
Again.", _
, "Invalid Search Criterion!"
txtSearch2.SetFocus
End If
End Sub
Which i got from here: http://www.databasedev.co.uk/text_search.html

Question #1

I have my own record counter setup at the bottom of the form via this:

Private Sub Form_Current()
'Inserts current record number and total number of records
Me.txtCurrent = Me.CurrentRecord
Me.RecordsetClone.MoveLast
Me.txtTotal = Me.RecordsetClone.RecordCount
End Sub

I would like to have this show how many searchs were found. I really don't
care about how many entries at this point... but if you do a search via
lastname for "johnson" I have 15 right now.. I would like to let the end user
know their are 15 enteries with the last name "johnson"... how can I do this
if it is possible with what I have setup..

Also.. How do I get the search lastname field to go blank after I hit the
search button??

Thanks
R~

 

[Guest]

Anyone??????

R~