MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Erro em uma pesquisa código VBA

    avatar
    ACCESS2019
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 21/02/2019

    Erro em uma pesquisa código VBA Empty Erro em uma pesquisa código VBA

    Mensagem  ACCESS2019 em Sab 21 Set 2019, 1:28 am

    Boa noite amigos.

    Gostaria da ajuda de vcs fera do grande access, no post abaixo. O que ocorre é o seguinte:
    Nesse de pesquisa quando digito corretamente a placa1 que existe na tabela o código busca os demais campos. Mas quando digita um placa que nao existe no campo placa1 ai da erro. O que eu queria era uma mensagem que nao foi encontrado a informação e abordassem o codigo.  Veja o codigo abaixo

    Private Sub BTNPESQUISA_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim ISQL As String

    MsgBox "Informe a Placa 1, e clique no botão procurar", vbInformation, "Atenção"
    txtPlaca1.SetFocus

       Set db = CurrentDb()
       ISQL = "SELECT * FROM TB_VEICULO WHERE PLACA1 = '" & txtPlaca1 & "'"
       Set rs = db.OpenRecordset(ISQL, dbReadOnly)
           txtPlaca1 = rs!Placa1
           txtPlaca2 = rs!Placa2
           txtPalca3 = rs!Palca3
           txtCidade = rs!Cidade
           txtEstado = rs!Estado
           txtVeiculo = rs!Veiculo
           txtModelo = rs!Modelo
           txtCor = rs!Cor
           txtRenavam = rs!Renavam
           txtAno = rs!Ano
           TXTFROTA = rs!Frota
           txtLocacao = rs!Locacao
           txtProprietario = rs!Proprietario
            txtMotorista = rs!Motorista
           txtCNH = rs!CNH
           txtValidade = rs!Validade
           txtMarca = rs!Marca
    End Sub Wink Wink
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 984
    Registrado : 22/11/2016

    Erro em uma pesquisa código VBA Empty Re: Erro em uma pesquisa código VBA

    Mensagem  IvanJr. em Sab 21 Set 2019, 8:43 pm

    Private Sub BTNPESQUISA_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim ISQL As String

    MsgBox "Informe a Placa 1, e clique no botão procurar", vbInformation, "Atenção"
    txtPlaca1.SetFocus

      Set db = CurrentDb()
      ISQL = "SELECT * FROM TB_VEICULO WHERE PLACA1 = '" & txtPlaca1 & "'"
      Set rs = db.OpenRecordset(ISQL, dbReadOnly)

    if rs.recordcount > 0 then
          txtPlaca1 = rs!Placa1
          txtPlaca2 = rs!Placa2
          txtPalca3 = rs!Palca3
          txtCidade = rs!Cidade
          txtEstado = rs!Estado
          txtVeiculo = rs!Veiculo
          txtModelo = rs!Modelo
          txtCor = rs!Cor
          txtRenavam = rs!Renavam
          txtAno = rs!Ano
          TXTFROTA = rs!Frota
          txtLocacao = rs!Locacao
          txtProprietario = rs!Proprietario
           txtMotorista = rs!Motorista
          txtCNH = rs!CNH
          txtValidade = rs!Validade
          txtMarca = rs!Marca
    else
      call msgbox("não foi encontrado a informação")
    end if


    call rs.close: set rs = nothing

    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: Qui 24 Out 2019, 2:11 am