MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Gravar campo vazio

    Compartilhe

    guism
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 20
    Registrado : 05/11/2015

    [Resolvido]Gravar campo vazio

    Mensagem  guism em Qui 18 Fev 2016, 17:16

    Fala pessoal,

    To com um problemão. Tenho uma tabela "Desconto" que eu alimento por um formulário com campos não associados por meio de DAO.
    Inseri uns campos novos do tipo sim/não , mas acontece que quando o usuário não marca nenhum desses campos ele não grava nenhuma informação.
    Curiosamente, se marcar algum dos campos ele grava normalmente.
    Realmente não sei qual a lógica, se ele não lê nulos ou algo do tipo.
    O código está abaixo:

    Set db = CurrentDb

    Set rsDesconto = db.OpenRecordset("DESCONTO")

    rsDesconto.AddNew

    rsDesconto!beneficio = Form_frmLS.txtBeneficio
    rsDesconto!competencia = Me.txtCompetencia
    rsDesconto!periodoInicial = Me.txtPeriodoInicial
    rsDesconto!periodoFinal = Me.txtPeriodoFinal
    rsDesconto!referencia = Me.txtReferencia
    rsDesconto!paragrafo_Devolucao = Me.chkDevolucao
    rsDesconto!paragrafo_RevisaoDIB = Me.chkRevisaoDIB
    rsDesconto!DIB_BB = Me.txtDIB_BB

    rsDesconto.Update

    Form_frmDesconto.subFrmDescontos.Requery
    Me.Requery

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Gravar campo vazio

    Mensagem  JPaulo em Qui 18 Fev 2016, 17:41

    Ola;

    Use a função interna Nz para tratamento de nulos;

    Exemplo:
    Código:
    rsDesconto!paragrafo_Devolucao = Nz(Me.chkDevolucao, "")
    rsDesconto!paragrafo_RevisaoDIB = Nz(Me.chkRevisaoDIB, "")

    Ou se um valor para os nulos;;

    Código:
    rsDesconto!paragrafo_Devolucao = Nz(Me.chkDevolucao, 0)
    rsDesconto!paragrafo_RevisaoDIB = Nz(Me.chkRevisaoDIB, 0)

    Deveria usar para todos os tratamentos de nulos.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    guism
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 20
    Registrado : 05/11/2015

    Re: [Resolvido]Gravar campo vazio

    Mensagem  guism em Qui 18 Fev 2016, 19:10

    Obrigado, funcionou!

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Gravar campo vazio

    Mensagem  JPaulo em Sex 19 Fev 2016, 10:09

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qua 07 Dez 2016, 20:12