MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Erro em uma pesquisa código VBA

    avatar
    ACCESS2019
    Novato
    Novato


    Respeito às regras : 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 21/9/2019, 02:28

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 21/9/2019, 21:43

    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: 28/3/2024, 23:09