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


4 participantes

    [Resolvido]Campo não pode ficar vazio ou nulo

    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1085
    Registrado : 23/03/2010

    [Resolvido]Campo não pode ficar vazio ou nulo Empty [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  Finformática Ter 21 Jul 2020, 3:12 am

    Grandes Mestres, Boa Noite.

    Estou com dois pequenos problemas:
    1. O pequeno código abaixo que não pode ficar com campo Filial vazio (vazio, nulo, "", " ") de modo algum. Tentei diversos modos e ainda não amarrei. Onde estou errando? O campo é texto.
    Já até conectei o conteúdo do campo com uma letra e verifico a letra e passa direto. Ex. XX = [Filial] & "A" --- If XX = A e passa direto.
    2. Tem como agilizar (ficar mais rápido) o processamento da mensagem falada abaixo? Uso a função do grande mestre JPaulo para fazer o Access falar, a quem mais uma vez sou muito grato.


    Private Sub Filial_AfterUpdate()

    Dim TxtFala As String

    If IsNull(Filial) Or Filial = "" Or Len(Filial) = 0 Then ' Esta é a linha do problema. Hora funciona, 2 horas não, fura...

    TxtFala = "Campo de preechimento obrigatório"
    FazerFalar (TxtFala)
    Me.Filial.SetFocus

    Else

    TxtFala = "Muito bem preenchido..."
    FazerFalar (TxtFala)

    End If


    End Sub


    '--------------------------------------------- Aqui está tudo certo -----------------------------
    Public Function FazerFalar(str As String)
    'By JPaulo 2008
    Dim objVo As Object
    Set objVo = CreateObject("SAPI.SpVoice")
    objVo.Speak str
    End Function
    '--------------------------------------------------------------------------------------------------

    Desde já, muito grato a todos.

    Forte Abraço.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3449
    Registrado : 13/12/2016

    [Resolvido]Campo não pode ficar vazio ou nulo Empty Re: [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  Alexandre Fim Ter 21 Jul 2020, 4:26 am

    Olá Finformatica,

    Tente isso:
    Código:


    If IsNull(Me.Filial) Or Trim(Me.Filial) = Empty Then
        TxtFala = "Campo Filial é de preechimento obrigatório"
        FazerFalar (TxtFala)
        Me.Filial.SetFocus
    Else
        TxtFala = "Muito bem preenchido..."
        FazerFalar (TxtFala)
    End If



    Boa sorte.

    Abs


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Campo não pode ficar vazio ou nulo Setinf11
    Sistemas e Tecnologia Ltda
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1085
    Registrado : 23/03/2010

    [Resolvido]Campo não pode ficar vazio ou nulo Empty Re: [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  Finformática Ter 21 Jul 2020, 1:05 pm

    Grande Alexandre, bom dia.

    Não funcionou. Basta "Enter" ou "Tab" e passa direto. A critério de curiosidade, qual o motivo que o Setfocus só funciona se mandar para outro campo e depois mandar para o campo que queremos? Isso é só a curiosidade. Aqui está funcionando do modo que falei anteriormente.

    Muito grato

    Abraços
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8483
    Registrado : 05/11/2009

    [Resolvido]Campo não pode ficar vazio ou nulo Empty Re: [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  Alexandre Neves Ter 21 Jul 2020, 2:47 pm

    Boa tarde
    No seu código tem criação de variável TxtFala quando TxtFala não se tratará de variável mas de nome de controlo do formulário
    Código:

    Private Sub Filial_AfterUpdate()
        If Len("" & Filial) = 0 Then
            TxtFala = "Campo de preechimento obrigatório"
            FazerFalar (TxtFala)
            Me.Filial.SetFocus
        Else
            TxtFala = "Muito bem preenchido..."
            FazerFalar (TxtFala)
        End If
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Campo não pode ficar vazio ou nulo Empty Re: [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  DamascenoJr. Ter 21 Jul 2020, 10:13 pm

    Você está usando o evento após atualizar. Dar tab não dispara o evento, ora bolas, pois não houve modificação no campo, isto é, o campos não foi atualizado para que o evento Após Atualizar fosse acionado.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3449
    Registrado : 13/12/2016

    [Resolvido]Campo não pode ficar vazio ou nulo Empty Re: [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  Alexandre Fim Ter 21 Jul 2020, 10:45 pm

    Você pode colocar a rotina de validação no Evento "LostFocus" do campo Filial.

    Abs.


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Campo não pode ficar vazio ou nulo Setinf11
    Sistemas e Tecnologia Ltda
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1085
    Registrado : 23/03/2010

    [Resolvido]Campo não pode ficar vazio ou nulo Empty Re: [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  Finformática Ter 21 Jul 2020, 11:17 pm

    Grandes Mestres,

    Muito grato pelas sugestões e lições. Estava tão convicto do que estava fazendo que não atentei ao "Após Atualizar". Grande causador de tudo. Agora está funcionando. Peço até desculpas a vocês por minha displicência. Falta agora as duas outras etapas. São apenas lições, explicações: a questão do setfocus para funcionar corretamente tem que mandar para outro campo e depois mandar para campo desejado (em outros momentos que funciona sem esse atalho). E a outra questão, deixa para lá.

    Fico no aguardo

    Mais uma vez, muito agradecido a todos.

    Forte abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Campo não pode ficar vazio ou nulo Empty Re: [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  DamascenoJr. Qua 22 Jul 2020, 12:38 am

    O SetFocus não precisa ser "tabelado". Tudo depende do que você pretende e do evento onde você está usando ele.

    Exemplo:
    Pretendido: não deixar que um campo fique vazio NUNCA.
    Evento usado: Ao perder foco.

    Nesse evento, o código será disparado quando o campo estiver perdendo o foco. E você não pode estar saindo de um campo e mandar o foco de volta para ele, afinal, sair dele é que causou o disparo do evento. Por isso, usar nesse evento, é preciso garantir que o foco esteja em outro campo (assim finalizando a perda do foco do campo que disparou o evento) antes de trazer de volta o foco para o campo que se quer.

    O que você quer pode ser resolvido com o evento "Ao sair". Você o conhece? Veja o "cabeçalho" do comando.

    Private Sub CampoX_Exit(Cancel As Integer)

    Viu o Cancel destacado? Isso significa que você pode cancelar o evento.

    Exemplo:
    If IsNull(CampoA) Then Cancel = True

    Com isso você nem sequer sai do campo caso ele esteja vazio.

    Atenção: isso é algo a ser usado com muito cuidado. Imagina se o usuário não tiver a informação do campo no momento e resolver tentar cancelar a edição do registro porém não conseguir tirar o foco do campo e ficar preso?

    Minha recomendação: tenha um botão salvar e garanta nele a verificação do preenchimento dos campos obrigatórios.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1085
    Registrado : 23/03/2010

    [Resolvido]Campo não pode ficar vazio ou nulo Empty Re: [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  Finformática Qua 22 Jul 2020, 12:50 am

    Grande Damasceno,

    Muito grato por mais essa grande explanação, realmente uma aula completa. Muito obrigado.

    Muito obrigado para todos.

    Grande abraço

    Resolvido


    Conteúdo patrocinado


    [Resolvido]Campo não pode ficar vazio ou nulo Empty Re: [Resolvido]Campo não pode ficar vazio ou nulo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Ter 08 Out 2024, 7:00 am