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

3 participantes

    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 : 1814
    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 : 3063
    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!!

      Data/hora atual: 21/9/2021, 02:33