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]Preencher com zero se nulo

    avatar
    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Preencher com zero se nulo Empty [Resolvido]Preencher com zero se nulo

    Mensagem  Jonatan em 24/2/2019, 14:26

    Bom dia, pessoal!

    Estou tentando criar uma rotina que verifique campo nulo, caso afirmativo, preencha com 0 após perder o foco.

    Aqui, verifica, mas acabando preenchendo todos os campos em branco ao mesmo tempo. Preciso que faça um a um.

    Private Sub NaoVazio()
    Dim Ctl As Control
    For Each Ctl In Screen.ActiveForm
    If IsNull(Ctl) Then
    Ctl = Nz(Ctl, 0)
    End If
    Next
    End Sub


    Se retiro For Each, Next, não faz nada.

    Obrigado.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Preencher com zero se nulo Empty Re: [Resolvido]Preencher com zero se nulo

    Mensagem  Alexandre Neves em 24/2/2019, 17:23

    Boa tarde
    Não percebi, mas o código faz um a um através do ciclo
    Não entendi o que pretende


    .................................................................................
    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
    avatar
    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Preencher com zero se nulo Empty Re: [Resolvido]Preencher com zero se nulo

    Mensagem  Jonatan em 25/2/2019, 21:00

    Então, chamo este procedimento em cada controle ao perder o foco. Não quero que faça o ciclo, preciso que faça um a um, apenas em controles específicos.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Preencher com zero se nulo Empty Re: [Resolvido]Preencher com zero se nulo

    Mensagem  Alexandre Neves em 25/2/2019, 23:35

    Boa noite,
    Não quero que faça o ciclo, preciso que faça um a um, apenas em controles específicos.
    A descrição não é clara, quer apenas no controlo em que perdeu o foco?
    Se sim, coloque
    If IsNull(activecontrol) Then activecontrol=0


    .................................................................................
    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
    avatar
    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Preencher com zero se nulo Empty Re: [Resolvido]Preencher com zero se nulo

    Mensagem  Jonatan em 25/2/2019, 23:49

    Perfeito, Alexandre.

    É isso que eu precisava.
    Muito obrigado!

    Conteúdo patrocinado

    [Resolvido]Preencher com zero se nulo Empty Re: [Resolvido]Preencher com zero se nulo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/5/2019, 20:46