Boa noite pessoal.
Estou desenvolvendo uma pequena aplicação que tem por objetivo validar a entrada de veiculos autorizados no estacionamento.
Tenho um formulario principal onde será informado a placa do veiculo, dai surgiu uma grande dúvida, desejo, colocar um botão de validação onde, quando a placa informada no campo [texto30] existir na tabela de veiculos autorizados aparece o formulario para marcação de nova entrada dele no estacionamento, caso a placa nao esteja cadastrada o mesmo botão chama um formulario com uma mensagem de não autorizado.
Seria mais ou menos uma função IF ELSEIF, ja tentei de diversas formas mas só conseguir chamar o formulario quando não há o registro da placa na seguinte expressão colocada no botão ao clicar :
Private Sub Comando34_Click()
If (IsNull(DLookup("[placa]", "tb_cad_veic", "[placa] ='" & Texto30.Value & "'"))) Then DoCmd.OpenForm "frm_nao_cadastrado"
End Sub
não consigo chamar o formulario com os dados existente no campo Texto30 para inserir a nova entrada.
Se voce tira o Isnull para encontrar o valor igual dá mensagem de erro de tipo de formato erro 13
Aproveitando como faço para inserir automaticamente na tabela do veiculo a data e hora da nova entrada?
Se alguém tiver uma idéia ou um modelo para disponibilizar agradeço muito.
Estou desenvolvendo uma pequena aplicação que tem por objetivo validar a entrada de veiculos autorizados no estacionamento.
Tenho um formulario principal onde será informado a placa do veiculo, dai surgiu uma grande dúvida, desejo, colocar um botão de validação onde, quando a placa informada no campo [texto30] existir na tabela de veiculos autorizados aparece o formulario para marcação de nova entrada dele no estacionamento, caso a placa nao esteja cadastrada o mesmo botão chama um formulario com uma mensagem de não autorizado.
Seria mais ou menos uma função IF ELSEIF, ja tentei de diversas formas mas só conseguir chamar o formulario quando não há o registro da placa na seguinte expressão colocada no botão ao clicar :
Private Sub Comando34_Click()
If (IsNull(DLookup("[placa]", "tb_cad_veic", "[placa] ='" & Texto30.Value & "'"))) Then DoCmd.OpenForm "frm_nao_cadastrado"
End Sub
não consigo chamar o formulario com os dados existente no campo Texto30 para inserir a nova entrada.
Se voce tira o Isnull para encontrar o valor igual dá mensagem de erro de tipo de formato erro 13
Aproveitando como faço para inserir automaticamente na tabela do veiculo a data e hora da nova entrada?
Se alguém tiver uma idéia ou um modelo para disponibilizar agradeço muito.
Última edição por prfa em 31/3/2017, 02:02, editado 1 vez(es)