[Resolvido]Como crio uma condição que avalia meus campos vazios?

Olá Pessoa, bom dia! Tudo bem com vocês? Espero que sim!

Queria pedir uma ajudinha a vocês. Tenho dois campos que eles não podem ser vazios e ao clicar no botão avançar. Preciso que ele verifique se os campos estão vazios, se eles estiverem vazio, retorne com uma msgbox informando que eu preciso preencher todos os campo. O detalhe nisso é: se qualquer um do campo estiver vazio, me retorne a mensagem. Eu cheguei a criar um código para outras atividades, mas o tratamento do campo nulo estou tendo dificuldades. Segue o código abaixo.

Código:

'    If (Cbox_TipoDocumento = "") Or (Doc_Pessoa = "") Then
'
'        MsgBox ("Você precisa preencher todos os campos antes de avançar"), vbInformation, ":::Atenção:::"
'
'    Else
   
        DoCmd.OpenForm "Frm_Cadastro_Clientes", acNormal
        DoCmd.RunCommand acCmdRecordsGoToNew
   
            If (Me.Grp_TipoPessoa = 1) And (Cbox_TipoDocumento = "CPF") Then
                Forms!Frm_Cadastro_Clientes!Grp_TipoCliente = 1
                Forms!Frm_Cadastro_Clientes!Doc_Cliente = Doc_Pessoa
                Forms!Frm_Cadastro_Clientes!Doc_Cliente.InputMask = "###.###.###-##"
                DoCmd.Close acForm, "Frm_Nova_Pessoa"
   
        Else
   
            If (Me.Grp_TipoPessoa = 1) And (Cbox_TipoDocumento = "CNPJ") Then
                Forms!Frm_Cadastro_Clientes!Grp_TipoCliente = 2
                Forms!Frm_Cadastro_Clientes!Doc_Cliente = Doc_Pessoa
                Forms!Frm_Cadastro_Clientes!Doc_Cliente.InputMask = "##.###.###/####-##"
                DoCmd.Close acForm, "Frm_Nova_Pessoa"
   
        End If
        End If


Desde já agradeço!

Bom dia,
tente assim:

If IsNull(Cbox_TipoDocumento) Or IsNull(Doc_Pessoa) Then

Se quiser aprimorar essa validação, veja essa minha videoaula, clicando aqui.

Fala Marcelo, tudo bem? Então, cheguei a praticar aquele código que me mandou e só não funcionou na minha caixa de combinação e acredito que ele não está funcionando, justamente porque tenho um grupo de opção acima que modifica os itens da caixa de combinação. Como eu disse, eu acredito, mas não tenho certeza. rsrs

Segue abaixo os códigos que utilizei.



Grupo de opções

Código:

Private Sub Grp_TipoPessoa_Click()

    Dim Grp_TipoPessoa As Integer

    Select Case Me.Grp_TipoPessoa
   
    Case Is = 1
    Cbox_TipoDocumento.RowSource = ""
    Cbox_TipoDocumento.AddItem "CPF"
    Cbox_TipoDocumento.AddItem "CNPJ"
   
    Case Is = 2
    Cbox_TipoDocumento.RowSource = ""
    Cbox_TipoDocumento.AddItem "CPF"
   
    Case Is = 3
    Cbox_TipoDocumento.RowSource = ""
    Cbox_TipoDocumento.AddItem "CPF"
   
    Case Is = 4
    Cbox_TipoDocumento.RowSource = ""
    Cbox_TipoDocumento.AddItem "CPF"
    Cbox_TipoDocumento.AddItem "CNPJ"
   
    End Select
   
End Sub

Btm_Avancar

Código:

Private Sub Btm_Avancar_Click()
   
    If (Cbox_TipoDocumento = "") Or IsNull(Doc_Pessoa) Then

        MsgBox ("Você precisa preencher todos os campos antes de avançar"), vbInformation, ":::Atenção:::"

    Else
   
        DoCmd.OpenForm "Frm_Cadastro_Clientes", acNormal
        DoCmd.RunCommand acCmdRecordsGoToNew
   
            If (Me.Grp_TipoPessoa = 1) And (Cbox_TipoDocumento = "CPF") Then
                Forms!Frm_Cadastro_Clientes!Grp_TipoCliente = 1
                Forms!Frm_Cadastro_Clientes!Doc_Cliente = Doc_Pessoa
                Forms!Frm_Cadastro_Clientes!Doc_Cliente.InputMask = "###.###.###-##"
                DoCmd.Close acForm, "Frm_Nova_Pessoa"
   
        Else
   
            If (Me.Grp_TipoPessoa = 1) And (Cbox_TipoDocumento = "CNPJ") Then
                Forms!Frm_Cadastro_Clientes!Grp_TipoCliente = 2
                Forms!Frm_Cadastro_Clientes!Doc_Cliente = Doc_Pessoa
                Forms!Frm_Cadastro_Clientes!Doc_Cliente.InputMask = "##.###.###/####-##"
                DoCmd.Close acForm, "Frm_Nova_Pessoa"
   
        End If
        End If
        End If

End Sub

Tente assim:

If Len(Trim(Me.Cbox_TipoDocumento))=0 Or IsNull(Me.Doc_Pessoa) Then

Oi Marcelo, boa tarde!

Despois de alguns testes aqui, consegui resolver o problema da seguinte forma.

Código:

If IsNull(Cbox_TipoDocumento) Or (Doc_Pessoa = "") Then
   
        MsgBox ("Você precisa preencher todos os campos antes de avançar"), vbInformation, ":::Atenção:::"

    Else
   
        DoCmd.OpenForm "Frm_Cadastro_Clientes", acNormal
        DoCmd.RunCommand acCmdRecordsGoToNew
   
            If (Me.Grp_TipoPessoa = 1) And (Cbox_TipoDocumento = "CPF") Then
                Forms!Frm_Cadastro_Clientes!Grp_TipoCliente = 1
                Forms!Frm_Cadastro_Clientes!Doc_Cliente = Doc_Pessoa
                Forms!Frm_Cadastro_Clientes!Doc_Cliente.InputMask = "###.###.###-##"
                DoCmd.Close acForm, "Frm_Nova_Pessoa"
   
        Else
   
            If (Me.Grp_TipoPessoa = 1) And (Cbox_TipoDocumento = "CNPJ") Then
                Forms!Frm_Cadastro_Clientes!Grp_TipoCliente = 2
                Forms!Frm_Cadastro_Clientes!Doc_Cliente = Doc_Pessoa
                Forms!Frm_Cadastro_Clientes!Doc_Cliente.InputMask = "##.###.###/####-##"
                DoCmd.Close acForm, "Frm_Nova_Pessoa"
   
        End If
        End If
        End If

End Sub

Desde já agradeço pela disposição em me ajudar.

Ótimo com deu certo! Grato pelo retorno e excelente ano!