[Resolvido]Saber Qd a Pesq não Localizou nenhum registro

Bom dia,

essa duvida é mais pra estetica do banco de dados, eu programei a pesquisa de colaboradores
por nome. Dei um "jeitinho" pra repetir a consulta (O comando encontrar proximo registro),
O que eu queria é se nenhum registro foi localizado apareça a mensagem
Meu Codigo está assim:
___________________________________________________________________________________________________
Private Sub cmdLocalizar_Click()
On Error GoTo fim
Dim textopesq As String
textopesq = InputBox("Digite o Fragmento Do Nome:", "")
txtNome.SetFocus
DoCmd.FindRecord "*" & (textopesq) & "*"
GoTo repetir
repetir:
If MsgBox("Localizar Próximo Registro?", vbYesNo + vbQuestion, "Localizar Registro") = vbYes Then
DoCmd.FindNext
GoTo repetir
Else
Exit Sub
End If
fim:
Exit Sub
End Sub
____________________________________________________________________________________________________

Tem algum retorno do comando Docmd.FindNext pra quando o registro não é encontrado?

Bom dia amigo.

Não me entendi com esse código e fiz-lhe um para si, se precisar de ajuda dê um grito.


Private Sub cmdLocalizar_Click()
'By JPaulo Maximo Access
Dim rs As Object
Dim resposta As String
Do
resposta = InputBox("Digite o Fragmento Do Nome a Localizar", "Localizar Registro", "", 1800, 3000)
If resposta <> "" Then
Set rs = Me.Recordset.Clone
rs.FindFirst "ID LIKE " & ID.Value 'acha o primeiro registro do campo chave primária para poder fazer o loop
rs.FindNext "Nome LIKE'" & resposta & "'" 'procura próximo informado na inputbox dentro do loop
'se não existir ou chegar ao ultimo, dá msg
If rs.NoMatch = True Then MsgBox "Nome não Encontrado...", vbInformation, "Pesquisa": Exit Sub
'se encontrar devolve
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
'pergunta se quer nova pesquisa
If MsgBox("Localizar Próximo Registro?", vbYesNo + vbQuestion, "Localizar Registro") = vbYes Then
Else
Exit Sub
End If
End If
End If
Loop
End Sub

É meu codigo tá muito confuso...

O que eu quero é isso mesmo que voce passou, só que na compilação ele
pedi uma condição pro Loop. Dá esse erro: "ERRO De Compilação: Loop sem Do"

tentei colocar uma condição no Loop mas mesmo assim continua dando erro!

Pressione o botão Pesquisar e digite jpaulo tantas vezes até esgotar os registos com o nome de jpaulo

http://dl.dropbox.com/u/771097/Kleyton.mdb

O codigo tá igualzinho, e agora funcionou aqui... sei lá o que aconteceu!!!

Vou te encomodar mais um pouco,é só mais uma duvida com a pesquisa rs.FindNext... Eu nao consigo pesquisar digitando
só uma parte do nome???

Na pesquisa FindRecord eu consigo assim

DoCmd.FindRecord "*" & (textopesq) & "*"

Já Descobrir...

Fiz uma alteração no seu codigo

Código:

Private Sub cmdLocalizar_Click()
'By JPaulo Maximo Access
  Dim rs As Object
    Dim resposta As String
    'Coloquei o InputBox antes do Do... pra repetir a mesma pesquisa
    resposta = InputBox("Digite o Fragmento Do Nome a Localizar", "Localizar Registro", "", 1800, 3000)
    If resposta <> "" Then
        ' Mesmo o codigo encontrar o 1º registro.. eu tive que colocar essa linha de baixo, porque ele nao voltava
        DoCmd.GoToRecord , , acFirst
        Do
            Set rs = Me.Recordset.Clone
            rs.FindFirst "[ID] LIKE " & ID.Value 'acha o primeiro registro do campo chave primária para poder fazer o loop
            rs.FindNext "Nome LIKE '*" & resposta & "*'" 'procura próximo informado na inputbox dentro do loop
            'se não existir ou chegar ao ultimo, dá msg
            If rs.NoMatch = True Then MsgBox "Nome não Encontrado...", vbInformation, "Pesquisa": Exit Sub
            'se encontrar devolve
            If Not rs.EOF Then
                Me.Bookmark = rs.Bookmark
            'pergunta se quer nova pesquisa
                If MsgBox("Localizar Próximo Registro?", vbYesNo + vbQuestion, "Localizar Registro") = vbYes Then
                Else
                    Exit Sub
                End If
            End If
        Loop
    End If

Perfeito...

Já que estamos a fazer bem feito, tambem podemos personalizar.

If MsgBox("Deseja Localizar Próximo Registro do Nome:" & UCase(resposta) & "", vbYesNo + vbQuestion, "Localizar Registro") = vbYes Then

Ficou Otimoo!!!

Valeuuu msm!!

Tranquilo amigo, já disponibilizei na sala de Exemplos.