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]DLast não apresenta o último valor

    Compartilhe
    avatar
    anaclaudiasos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 01/10/2013

    [Resolvido]DLast não apresenta o último valor

    Mensagem  anaclaudiasos em Qua 26 Abr 2017, 20:57

    Boa Tarde!

    Realizando um teste real em meu banco, e simulando algumas situações, estou com o seguinte problema.
    Se os campos do Lançamento estiverem em branco, e eu clicar no botão novo lançamento irá aparecer uma mensagem pro usuário para preencher as informações, mas neste momento minha função DLast para de funcionar, a partir dai ele ira copiar sempre o valor do ultimo registro antes desse erro.
    Mesmo que eu atualize na tabela, feche o aplicativo ele se mantém.
    Segue uma cópia do banco com este erro, como pode ser verificado na tabela.

    Agradeço se alguém puder me ajudar.

    Tenho um conhecimento básico em Access e estava sem utilizar cerca de 15 anos, estou ajudando o departamento onde trabalho, para melhorar a nossa rotina.

    Ana Claudia
    Windows 7/Office 2010
    Anexos
    Prestação - Erro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (637 Kb) Baixado 7 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]DLast não apresenta o último valor

    Mensagem  ahteixeira em Qua 26 Abr 2017, 21:32

    Olá Ana Claudia,
    Estou no 2007 e não consigo executar (imcompatibilidade de versões)
    No entto consegui ver o código.

    Não será por ter o campo NomeUnidade vazio, teste e experimente algo assim:
    Código:
    If Len(Me.LancamentoSubForm.Form.NomeUnidade & "") > 0 Then
        Me.LancamentoSubForm.Form.SaldoAnterior = Nz(DLast("SaldoAtualCal", "[Lancamento]", "[NomeUnidade]='" & Me.LancamentoSubForm.Form.NomeUnidade & "'"), 0)
    Else
        Me.LancamentoSubForm.Form.SaldoAnterior = 0
        ' ou outro tratamento
    End If

    Abraço
    avatar
    anaclaudiasos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 01/10/2013

    Re: [Resolvido]DLast não apresenta o último valor

    Mensagem  anaclaudiasos em Qui 27 Abr 2017, 12:44

    ahteixeira, Bom Dia!

    Vou testar e depois darei um retorno.

    Obrigada pela atenção.

    Ana Claudia
    avatar
    anaclaudiasos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 01/10/2013

    Re: [Resolvido]DLast não apresenta o último valor

    Mensagem  anaclaudiasos em Sex 28 Abr 2017, 19:35

    Após realizar diversos testes e simular o erro, ficou perfeito com a solução sugerida.

    Grata
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]DLast não apresenta o último valor

    Mensagem  ahteixeira em Sab 29 Abr 2017, 00:48

    Olá Ana Claudia, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: Sab 18 Nov 2017, 01:05