Oi,

 

Alguém sabe como se livrar desta msg: No current record, para o método rs.seek?
Vejam rotina:

Private Sub cmdProcurar_Click()

strBusca = txtProcura.Text

On Error GoTo TratarErro:
'datDistribuidora.EOFAction = 1
datDistribuidora.Recordset.Seek "=", strBusca

TratarErro:
If datDistribuidora.Recordset.NoMatch Then
    MsgBox "Registro não encontrado", vbInformation, "Aviso"
    txtProcura.Text = ""
    txtProcura.SetFocus
'    Exit Sub
Else
    txtProcura.Text = ""
    txtProcura.SetFocus
End If

End Sub

Já olhei tudo sobre este método aqui no msdn usa, mas não diz nada sobre isso:
http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/office97/html/output/F1/D2/S5A2CB.asp

 

Grato e no aguardo!

Por acaso a tabela está sem nenhum registro? Se for isto, só dê o Seek se .Recorcount > 0

Este é um problema que ocorre no DAO.

 

Vil,

Nesta rotina nao teria que ter um EXIT SUB para ele nao entrar no TRATARERRO. Assim

.....

Uso esta rotina para fazer usso de uma olhada.

Function LE_ARQUIVO(rst As recordset, procura As String, ByVal chave) As Integer
    On Error GoTo erro:
    LE_ARQUIVO = False
    
    rst.Seek procura, chave
    If rst.NoMatch Then
        rst.AddNew
        LE_ARQUIVO = True
    Else
        rst.Edit
    End If
    Exit Function

erro:
    LE_ARQUIVO = True
    Resume Next
End Function

 

Voce usa assim

 

   IF not le_arquivo(rst_cliente,"=",txt_cod_cliente) Then

       msgbox "Cliente nao encontrado"...

   end if

Oi pessoal, ainda não deu certo, vejam como está o código: