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


    [Resolvido]Dúvidas com campo Obrigatório

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]Dúvidas com campo Obrigatório Empty [Resolvido]Dúvidas com campo Obrigatório

    Mensagem  Mylton 24/9/2017, 19:53

    Boa tarde
    Usando essa rotina para campo obrigatório

    ............

    On Error GoTo Form_Err

    ' na linha abaixo coloca-se quantos campos forem necessários
    If Len(CboDominante & "") = 0 Then
    MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
    DoCmd.CancelEvent
    End If

    Form_Exit:
    Exit Sub

    Form_Err:
    MsgBox Error$
    Resume Form_Exit

    ...........
    identifica a necessidade.
    Todavia se uso logo após para:
    1) Abrir um form:
    Private Sub BtEctoscopia_Click()  
    On Error GoTo Form_Err

    ' na linha abaixo coloca-se quantos campos forem necessários
    If Len(CboDominante & "") = 0 Then
    MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
    DoCmd.CancelEvent
    End If

    Form_Exit:
    Exit Sub

    Form_Err:
    MsgBox Error$
    Resume Form_Exit


    DoCmd.OpenForm "Frm_AntebracoEctoscopiaD"


    End Sub

    Ele identifica, preencho o campo e não abre o form desejado.

    2) Salvar registro:


    Private Sub BtSalvar_Click()
    On Error GoTo Form_Err

    ' na linha abaixo coloca-se quantos campos forem necessários
    If Len(CboDominante & "") = 0 Then
    MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
    DoCmd.CancelEvent
    End If

    Form_Exit:
    Exit Sub

    Form_Err:
    MsgBox Error$
    Resume Form_Exit

    'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
    DoCmd.RunCommand acCmdSave
    '   DoCmd.RunCommand acCmdSave
       MsgBox "Registro Salvo", vbInformation, "Aviso"
    'DoCmd.Close

    End Sub


    Ele identifica, preencho o campo e não salva.

    3) Fechar e salvar um form:

    Private Sub BtSair_Click()
    On Error GoTo Form_Err

    ' na linha abaixo coloca-se quantos campos forem necessários
    If Len(CboDominante & "") = 0 Then
    MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
    DoCmd.CancelEvent
    End If

    Form_Exit:
    Exit Sub

    Form_Err:
    MsgBox Error$
    Resume Form_Exit

    'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
    DoCmd.RunCommand acCmdSave
       MsgBox "Registro Salvo", vbInformation, "Aviso"
    DoCmd.Close

    End Sub


    Ele identifica, preencho o campo e não salva e nem fecha.


    Como poderia resolver.
    Obrigado
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]Dúvidas com campo Obrigatório Empty Re: [Resolvido]Dúvidas com campo Obrigatório

    Mensagem  Mylton 24/9/2017, 20:35

    Como diz J paulo em...
    https://www.maximoaccess.com/t1683-resolvidocampo-nao-pode-ficar-vazio

    Existem mil maneiras de fazer nestum!

    Essa resolveu.
    As vezes menos é mais!!

    Private Sub SeuCampo_Exit(Cancel As Integer)
    If IsNull(Me.ActiveControl) Then
    DoCmd.CancelEvent
    MsgBox "Campo Obrigatório...", vbCritical
    End If
    End Sub

      Data/hora atual: 22/11/2024, 09:55