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


    mensagem box de confirmação com campo nulo

    avatar
    rlss
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

    mensagem box de confirmação com campo nulo Empty mensagem box de confirmação com campo nulo

    Mensagem  rlss 23/3/2021, 13:52

    boa tarde querios,

    gostaria de uma força!!

    tenho um codigo VBA que é condicional

    uma função que avalia se um campo em meu formulario se é nulo ou preenchido

    exemplo: se o campo marca/modelo tiver preenchido então aparece um msg box yes/no,
    porem se tiver nulo não aparece a msg box e insere direto os dados que preciso...


    segue o codigo abaixo com minha tentativa e esta sublinhada

    Function definirNewentrada()
    On Error GoTo definirNewentrada_Err

    If Forms!consulta_nomes_cartao_veiculo![Texto83] Then

    Dim resultado As VbMsgBoxResult
       
        resultado = MsgBox(" O usuario selicionado possui veiculo " & Forms!consulta_nomes_cartao_veiculo![Texto83] & ", registrar entrada com o veiculo?", vbYesNo, "Confirmando sua ação:")
        If resultado = vbYes Then

       With CodeContextObject
           If (IsNull(.Nome_user_encarregado2)) Then
               .[entrada-saida subformulário2new].Form![Enc Data-hr entrada] = Forms![ConsultaQraRe subformulário1]!Qra_nome
               .[entrada-saida subformulário2new].Form!destino = .destino
               .[entrada-saida subformulário2new].Form![posto-grad] = Forms!CONSULTA_nomes_cartao_veiculo![Tabela_nomes_cartao_veiculo subformulário].Form![POSTO/GRAD]
               .[entrada-saida subformulário2new].Form![data entrada] = Now()
               .[entrada-saida subformulário2new].Form![hora entrada] = Now()
               .[entrada-saida subformulário2new].Form![Opm-orgão-empresa] = Forms!CONSULTA_nomes_cartao_veiculo![Tabela_nomes_cartao_veiculo subformulário].Form!OPM
               .[entrada-saida subformulário2new].Form!nome = Forms!CONSULTA_nomes_cartao_veiculo![Tabela_nomes_cartao_veiculo subformulário].Form!nome
               .[entrada-saida subformulário2new].Form![re - rg] = Forms!CONSULTA_nomes_cartao_veiculo![Tabela_nomes_cartao_veiculo subformulário].Form!RE
               DoCmd.Close acForm, "CONSULTA_nomes_cartao_veiculo"
           Else
               .[entrada-saida subformulário2new].Form![Enc Data-hr entrada] = Forms![ConsultaQraRe subformulário1]!Qra_nome
               .[entrada-saida subformulário2new].Form!destino = .destino
               .[entrada-saida subformulário2new].Form![posto-grad] = Forms!CONSULTA_nomes_cartao_veiculo![Tabela_nomes_cartao_veiculo subformulário].Form![POSTO/GRAD]
               .[entrada-saida subformulário2new].Form![data entrada] = Now()
               .[entrada-saida subformulário2new].Form![hora entrada] = Now()
               .[entrada-saida subformulário2new].Form![Opm-orgão-empresa] = Forms!CONSULTA_nomes_cartao_veiculo![Tabela_nomes_cartao_veiculo subformulário].Form!OPM
               .[entrada-saida subformulário2new].Form!nome = Forms!CONSULTA_nomes_cartao_veiculo![Tabela_nomes_cartao_veiculo subformulário].Form!nome
               .[entrada-saida subformulário2new].Form![re - rg] = Forms!CONSULTA_nomes_cartao_veiculo![Tabela_nomes_cartao_veiculo subformulário].Form!RE
               DoCmd.Close acForm, "CONSULTA_nomes_cartao_veiculo"
           End If

    obrigado meus queridos
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1688
    Registrado : 23/01/2018

    mensagem box de confirmação com campo nulo Empty Re: mensagem box de confirmação com campo nulo

    Mensagem  crysostomo 24/3/2021, 00:15

    If (IsNull(.Nome_user_encarregado2)) Then escreveu:

    porque dois parênteses no isnull?
    Você só está fechando o campo e mais nenhum.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    rlss gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    mensagem box de confirmação com campo nulo Empty Re: mensagem box de confirmação com campo nulo

    Mensagem  DamascenoJr. 24/3/2021, 00:35

    If Nz(Forms!consulta_nomes_cartao_veiculo![Texto83])<>vbNullString Then


    .................................................................................
    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.
    avatar
    rlss
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

    mensagem box de confirmação com campo nulo Empty Re: mensagem box de confirmação com campo nulo

    Mensagem  rlss 25/3/2021, 11:48

    bom dia a todos, bom dia damasceno, vou tentar seu linha de comando
    e ja falo se deu certo!!

    Conteúdo patrocinado

    mensagem box de confirmação com campo nulo Empty Re: mensagem box de confirmação com campo nulo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 11:27