USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Se livrar desta msg: No current record...nomatch.?
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 31/05/2005 17:58 hs         
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!

http://www.vilmarbro.com.br
     
JCarlos
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
Postada em 01/06/2005 09:55 hs            
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.
 
     
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 01/06/2005 10:04 hs            
Vil,
Nesta rotina nao teria que ter um EXIT SUB para ele nao entrar no TRATARERRO. Assim
.....

datDistribuidora.Recordset.Seek "=", strBusca

Exit sub

TratarErro:
If datDistribuidora.Recordset.NoMatch Then
.....

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

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
     
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 01/06/2005 13:41 hs         
Oi pessoal, ainda não deu certo, vejam como está o código:
 
Sub cmdProcurar_Click()
On Error GoTo tratarErro:
strBusca = CInt(txtProcura.Text)
datDistribuidora.Recordset.Index = "PrimaryKey"
datDistribuidora.Recordset.Seek "=", strBusca
If datDistribuidora.Recordset.NoMatch Then
    MsgBox "Registro não encontrado", vbInformation, "Aviso"
    txtProcura.Text = ""
    txtProcura.SetFocus
Else
    txtProcura.Text = ""
    txtProcura.SetFocus
End If
 
Exit Sub
tratarErro:
   MsgBox "Registro não encontrado Erro: " & Err.Description, vbInformation, "Aviso"
End Sub
 
Agradeço qq outra dica!

http://www.vilmarbro.com.br
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página