como uso data.recordeset nas minhas pesquisas, toda vez que é efetuada uma pesquisa e não é encontrado um valor é exibida a mensagem 'no current record'. Pq, e como faço para resolver isto? Obrigado

if rst.recorcount > 0 then

'encontrou registro

end if

infelismente nao deu certo, nem tem este comando .recorcount

vou enviar minha linha de pesquisa para facilitar, se alguem puder me ajudar

 

        Dim criterio As String
    Dim marcador As Variant
 
    marcador = Data1.Recordset.Bookmark
    Data1.Recordset.Index = "COD" 
  
  criterio = InputBox$("Código a ser pesquisado: ", "Pesquisando por código")
           If criterio <> Empty Then
      Data1.Recordset.Seek ">=", criterio
     
      If Data1.Recordset.NoMatch Then
            MsgBox "Código não localizado! ", vbExclamation, "Pesquisando por código"
        Data1.Refresh
     End If
    Else
        Data1.Recordset.Bookmark = marcador
   End If
           

 

O que acontece é que antes dele ler o .nomatch ele já gera a mensagem 'no current record'. Se tiverem algum outro tipo de pesquisa.... grato

Coloque a propriedade do Data1 como RecordsetType = 1 (Dynaset)

  Dim criterio As String
  criterio = InputBox$("Código a ser pesquisado: ", "Pesquisando por código")
           If criterio <> Empty Then
      Data1.RecordSource = "Select * from Tabela where COD>='" & criterio & "'"
      Data1.Refresh
      If Data1.Recordset.Recordcount = 0 Then
            MsgBox "Código não localizado! ", vbExclamation, "Pesquisando por código"
    
    Else
            MsgBox "Localizado!"

    End If

vlu//

Novamente o programa não está aceitando o 'data1.refresh'

 

error '3011':

the microsoft jet database engine could not the object 'select* from tabela where COD>='4''.Make sure the object exists and that you spell its name and the path name correctly.

 

Obs: meu vb nao é o profissional, pode ser por isso q ele costuma dar estes erros?

O problema que voce relatou é que ele não está encontrando o arquivo ou a tabela, veja se o caminho e o nome da tabela estão corretos