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