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

3 participantes

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

    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    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 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
    Ivan Carlo
    Ivan Carlo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3740
    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 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


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    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 15/10/2020, 23:13

    Obrigado Avelino

    Deu certo

    Grato

      Data/hora atual: 26/9/2021, 11:34