Código para Botão de Buscar com função Next

Olá,

Eu criei em um form de funcionários que contém um campo de busca com uma caixa de texto para o colocar o nome do funcionario, e um botão de buscar.


Adaptei o código abaixo (o Alexendre Neves que me ajudou com isso em outro tópico) para o meu sistema e funcionou direitinho, ele pesquisa pelo nome completo e pelo primeiro nome do funcionário, porém tenho funcionários que tem o mesmo primeiro nome. Existe a possibilidade de que quando eu pesquise um primeiro nome que tenha duas vezes no meu BD apareçam os registros de todos funcionários com este nome um depois do outro, como se fosse um botão de Next?


Quando pesquiso pelo primeiro nome, ele busca o funcionário com o nome que digitei, porém aparece na tela a mensagem "Match Not Found - Please Try Again", mesmo quando a busca encontra o funcionário desejado, essa mensagem só não aparece quando digito o nome completo do funcionário. Como posso ajustar para que a mensagem só apareça quando o nome do funcionário, de fato não existir em meu banco?

Código:

Private Sub cmdSearch_Click()
Dim strStudentRef As String
Dim strSearch As String

'Check txtSearch for Null value or Nill Entry first.

If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"
Me![txtSearch].SetFocus
Exit Sub
End If
'---------------------------------------------------------------

'Performs the search using value entered into txtSearch
'and evaluates this against values in strStudentID

DoCmd.ShowAllRecords
DoCmd.GoToControl ("strStudentID")
DoCmd.FindRecord "*" & Me!txtSearch & "*"

strStudentID.SetFocus
strStudentRef = strStudentID.Text
txtSearch.SetFocus
strSearch = txtSearch.Text

'If matching record found sets focus in strStudentID and shows msgbox
'and clears search control

If strStudentRef = strSearch Then
MsgBox "Match Found For: " & strSearch, , "Congratulations!"
strStudentID.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!"
txtSearch.SetFocus
End If
End Sub

Boa tarde, camila
Deve ter uma caixa de combinação para mostrar o(s) nome(s) que resultarem da consulta.
Ao executar a consulta, coloque CxcNomesProcurados.rowsource="SELECT ... WHERE NomeAluno like '*'" & TxtPesquisa & " & '*'"