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

    [Resolvido]Formulario que chama outros dois

    avatar
    prfa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 08/07/2015

    [Resolvido]Formulario que chama outros dois Empty [Resolvido]Formulario que chama outros dois

    Mensagem  prfa 30/3/2017, 00:09

    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.


    Última edição por prfa em 31/3/2017, 02:02, editado 1 vez(es)
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Formulario que chama outros dois Empty Re: [Resolvido]Formulario que chama outros dois

    Mensagem  caiosouza 30/3/2017, 13:28

    Opa, bom dia!

    Tente:

    Código:
    Private Sub Comando34_Click()
    If (IsNull(DLookup("[placa]", "tb_cad_veic", "[placa] ='" & Texto30.Value & "'"))) Then
      DoCmd.OpenForm "frm_nao_cadastrado"
    Else
      DoCmd.OpenForm "frm_entrada", acNormal, "", "[placa]=[Forms]![frm_principal]![texto30]", , acNormal
    End Sub


    Já na data e hora automáticos, você pode ir no modo Design da tabela, nas propriedade de campo [Data] e no valor padrão colocar Agora()


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    prfa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 08/07/2015

    [Resolvido]Formulario que chama outros dois Empty Respondido

    Mensagem  prfa 30/3/2017, 16:09

    Muito obrigado
    Funcionou perfeitamente agora é só aplicar as atribuições de campo obrigatorio e maiuscula mas isso ai é moleza cheers alien
    avatar
    prfa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 08/07/2015

    [Resolvido]Formulario que chama outros dois Empty ok

    Mensagem  prfa 30/3/2017, 16:11

    ok
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Formulario que chama outros dois Empty Re: [Resolvido]Formulario que chama outros dois

    Mensagem  caiosouza 30/3/2017, 17:26

    Agradeço, não esqueça de marcar o tópico como resolvido.
    https://www.maximoaccess.com/t860-resolucao-de-topicos


    .................................................................................
    Caio Souza

    Engenheiro de Software

    Conteúdo patrocinado


    [Resolvido]Formulario que chama outros dois Empty Re: [Resolvido]Formulario que chama outros dois

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 10:28