MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Exigir preenchimento do campo

    Compartilhe

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    [Resolvido]Exigir preenchimento do campo

    Mensagem  Careca2014 em Dom 11 Jun 2017, 11:06

    Bom dia, nas pesquisas que fiz aqui e na internet, cheguei nas sintaxes abaixo para impedir que passe para um novo registro sem que o campo valor esteja preenchido. Bom de fato esta impedindo, no entanto a mensagem avisando o porque esta impedindo, não esta sendo exibida, alguem poderia me dizer o que esta errado?
    No form tem um campo cmpFerias que deve estar preenchido para que avance.
    As sintaxes estao no botao para adicionar novo registro
    Segue abaixo

    Private Sub btNovo_Click()
    If [CmpFerias] = "" Then
    MsgBox "Campo Obrigatório...", vbCritical
    End If
    If [CmpFerias] <> "" Then
    On Error Resume Next
    Dim msgResult As VbMsgBoxResult
    msgResult = MsgBox("Deseja realmente criar novo registro?", vbQuestion + vbYesNo, "Confirmação")
    End If
    If msgResult = vbYes Then
    DoCmd.GoToRecord , , acNewRec 'cria novo registro
    Me!CmpNumeroSequencial = Nz(DMax("NumeroAp", "TabAp")) + 1
    Me.CmpClasse.visible = False
    End If
    End Sub
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 422
    Registrado : 12/04/2016

    Re: [Resolvido]Exigir preenchimento do campo

    Mensagem  marcelo marques em Dom 11 Jun 2017, 11:28


    ola. careca2014 bom dia tente assim



    If isnull (me.CmpFerias)Then
    MsgBox "Campo Obrigatório...", vbCritical
    exit sub
    else

    'aqui vai caso estiver preenchido
    DoCmd.GoToRecord , , acNewRec 'cria novo registro
    Me!CmpNumeroSequencial = Nz(DMax("NumeroAp", "TabAp")) + 1
    Me.CmpClasse.visible = False
    End If

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Exigir preenchimento do campo

    Mensagem  Careca2014 em Dom 11 Jun 2017, 12:43

    Bom dia Marcelo e obrigado pela dica, funcionou perfeitamente!
    Valeu!

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Exigir preenchimento do campo

    Mensagem  Careca2014 em Dom 11 Jun 2017, 12:46

    Desculpem esqueci de dar como resolvido.
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 422
    Registrado : 12/04/2016

    Re: [Resolvido]Exigir preenchimento do campo

    Mensagem  marcelo marques em Dom 11 Jun 2017, 12:51

    obrigado pelo retorno o fórum agradece

      Data/hora atual: Qua 22 Nov 2017, 20:16