Meu sistema de busca

[coldcase 0]

Galera, não consigo achar onde está o erro da minha busca.

 

Aí vai:

 

Private Sub cmdPESQUISAR_Click()        ' ------------------' Sistema de busca  |' ------------------                Dim Nome As String        Dim Registro As Variant            Nome = InputBox("Digite o nome da Praça desejada: ", " Localizar")                If Nome = "" Then   ' CASO NAO DIGITADO NADA           Exit Sub         ' FIM DE BUSCA        End If                        Registro = datPrimaryRS.Recordset.Bookmark        datPrimaryRS.Recordset.MoveFirst        datPrimaryRS.Recordset.Find "Nome = '" & FormatLike(Nome) & "'"        ' ------------------' Caso nao encontre |' ------------------                If datPrimaryRS.Recordset.EOF Then           datPrimaryRS.Recordset.Bookmark = Registro' MENSAGEM DE ERRO           MsgBox ("PRAÇA NÃO LOCALIZADA! DIGITE COM GRAFIA CORRETA (C/ ACENTUAÇÃO)")        End IfEnd Sub

Se alguem puder me dar uma maozinha...

 

[]´s

[Luizgrs 0]

Num sei se vai te ajudar mas tenta trocar aquele igual (do find) por um like.

[Screech 0]

Já pensastes em utilizar SQL???

[coldcase 0]

Aí está o problema.. eu nao sei sql

[Luizgrs 0]

O que que esse formatlike faz?

Tb tenta por "%" antes e depois da variavel:

.find "Nome like '%" & wnome & "%'"

[coldcase 0]

perfeito... funfou!podem fechar o topico se quiserem