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
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