MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Campo obrigatorio no Subform, não esta correspondendedo

    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 20/01/2011

    [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo Empty [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo

    Mensagem  Vanderlei em 15/10/2020, 14:14

    Olá

    Estou com um pequeno problema
    Tenho um formulário principal com um subform.
    No subform, tenho um campo que é de preenchimento obrigatório. estou utilizando o código abaixo:
    No caso deste campo ficar em branco:
    Enquanto estou dentro do subform funciona perfeitamente, mas se clico, por exemplo em um campo do form principal, aparece a mensagem que o campo
    códigoloja é obrigatorio, clico no ok mas não retorna para o preenchimento e sim posiciona no campo clicado no form principal.
    e o campo obrigatorio acaba ficando em branco

    PRECISO QUE NÃO SAIA DO SUBFORM EM HIPOTESE ALGUMA COM O CAMPO CÓDIGOLOJA EM BRANCO

    Private Sub CódigoLoja_Change()
    If IsNull(Me.CódigoLoja) = True Then
    MsgBox "Selecione a Loja - Campo obrigatório", vbInformation, "Aviso"
    Cancel = True
    CódigoLoja.SetFocus
    End If
    End Sub
    avatar
    Ivan Carlo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 13/06/2015

    [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo Empty Re: [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo

    Mensagem  Ivan Carlo em 15/10/2020, 14:31

    Bom dia.
    Será que resolve?

    Código:
    Private Sub CódigoLoja_Change()
    If IsNull(Me.CódigoLoja) = True Then
    MsgBox "Selecione a Loja - Campo obrigatório", vbInformation, "Aviso"
    Cancel = True
    Me."Qualquer outro campo do seu subform".setfocus
    Me.CódigoLoja.SetFocus
    End If
    End Sub
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 20/01/2011

    [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo Empty Re: [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo

    Mensagem  Vanderlei em 15/10/2020, 21:55

    Acontece a mesma coisa

    Clicando no form principal aceita ficar em branco o campo obrigatorio no subform
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3620
    Registrado : 04/04/2010

    [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo Empty Re: [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo

    Mensagem  Avelino Sampaio em 15/10/2020, 22:45

    Olá!

    O "cancel" é advindo do argumento de uma sub(evento).  No caso, a sub que o senhor está utilizando não tem o argumento cancel. Veja:

    Private Sub CódigoLoja_Change(sem o argumento CANCEL)


    A caixa SubFormulário possui o evento "Ao sair", que possui o argumento cancel. Veja em destaque na cor vermelha:

    Private Sub NomeDoSeuSubFormulário_Exit(Cancel As Integer)
    If IsNull(Me!NomeDoSeuSubFormulario!CódigoLoja) Then
       MsgBox "Preenchimento do campo CódigoLoja obrigatório..."
       Cancel = True
       Me!NomeDoSeuSubFormulario!CódigoLoja.SetFocus
    End If
    End Sub


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 20/01/2011

    [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo Empty Re: [Resolvido]Campo obrigatorio no Subform, não esta correspondendedo

    Mensagem  Vanderlei em 15/10/2020, 23:13

    Obrigado Avelino

    Deu certo

    Grato

      Data/hora atual: 23/10/2020, 09:47