Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Carregando comentários...