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]MovimentoConta

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 270
    Registrado : 05/04/2016

    [Resolvido]MovimentoConta Empty [Resolvido]MovimentoConta

    Mensagem  Luís Antunes em 11/10/2016, 00:21

    Fiz um download duma BD "MovimentoConta", no site do mestre Avelino Sampaio.
    Apaguei todos os dados das tabelas para começar de novo. acontece que deu erro na linha
    strsql = strsql & "WHERE cdbl(dataMovimento) > " & CDbl(DMax("datamovimento", "tblMovimento") - d) & ";" ' ORDER BY dataMovimento;".
    introduzi uma entrada entrada directa  na tblMovimento e dá-me erro:
    Acumulado = Me!SaldoAnterior
    Ora se eu vou iniciar o caixa não existe saldo anterior ou será zero.
    Será que me podem dar uma dica de como iniciar o caixa através do form

    Antecipadamente  Grato

    Luís Antunes
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3925
    Registrado : 06/11/2009

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  Assis em 11/10/2016, 15:11

    Boa tarde Luis

    Conheço o exemplo.
    O mesmo não tem o formulário de registar dados novos.

    Quer postar o que tem para ver como está a registar novos dados.

    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  ahteixeira em 11/10/2016, 15:14

    Olá a todos,
    Se poder dar mais informação como o colega Assis disse será melhor.
    No entanto (sem ver) por exemplo se vai iniciar em 01-01-2016 já experimento efetuar um lançamento em 31-12-2015 com os valores a zero e testar.
    Fica a sugestão.
    Abraço a todos
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3925
    Registrado : 06/11/2009

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  Assis em 11/10/2016, 15:37

    Teixeira

    Sem nenhum registo nas tabelas não dá erro ao abrir mas tive que usar o "On Error Resume Next", e usar a função nz para os saldos.  
    Vou esperar que o Luis poste como está a fazer os registos.


    [Resolvido]MovimentoConta 21l7jbb


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  ahteixeira em 11/10/2016, 15:50

    Olá Assis, obrigado pela informação.
    Nem sabia qual o projecto Laughing
    Aguardamos então o colega.
    Abraço
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  Alexandre Neves em 11/10/2016, 17:13

    Boa tarde,
    Movi para esta sala
    Respeite as regras do fórum. A sala de repositório não serve para tirar dúvidas


    .................................................................................
    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
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 270
    Registrado : 05/04/2016

    [Resolvido]MovimentoConta Empty MovimentoConta

    Mensagem  Luís Antunes em 11/10/2016, 18:48

    Me desculpem se vos induzi em erro.
    Só depois de por a questão consegui abrir a BD com um registo, alterei o saldo inicial. e quando
    quis lançar um novo registo é que reparei que os campos estão bloqueados para a adição.
    Já estava a pensar em dar o assunto como resolvido.


    Luís Antunes
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3925
    Registrado : 06/11/2009

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  Assis em 11/10/2016, 19:06

    Boa noite Amigos

    Teixeira este é o exemplo do Mestre Avelino sem registos.

    Ao abrir a BD como evitar o erro que é o que o Amigo Luis Antunes fala.


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  ahteixeira em 11/10/2016, 20:36

    Olá a todos,

    Assis, vai atrasar um pouco na função fncMontaSaldo, porque vai verificar se a tabela tem registos.
    Com a alteração abaixo, parece-me bem, mesmo que tenha registos e sejam eliminados não vai dar erro.

    Código:
    Public Function fncMontaSaldo()

    '== inicio alteração ==========================
    If Nz(DCount("*", "[tblMovimento]")) = 0 Then
        Call fncCarregalista
        Me.SaldoAnterior = 0
        Me.txSaldo = 0
        Exit Function
    End If
    '== fim alteração =============================

    Caro Avelino Sampaio, me perdoe em fazer alterações ao seu excelente código  Embarassed

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3925
    Registrado : 06/11/2009

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  Assis em 11/10/2016, 21:41

    Boa noite Teixeira

    Depois da sua dica aparece agora .... este

    [Resolvido]MovimentoConta 9tcy75


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  ahteixeira em 11/10/2016, 22:39

    Olá Assis, aplicando a mesma técnica.

    Altere na SUB fncAcumularSaldo:
    Código:
    Private Sub fncAcumularSaldo()
    '== inicio alteração ==========================
    If Nz(DCount("*", "[tblMovimento]")) = 0 Then
        Exit Sub
    End If
    '== fim alteração =============================

    Já agora no imprimir:
    Código:
    Private Sub btImprimir_Click()
        If Nz(DCount("*", "[tblMovimento]")) = 0 Then
            MsgBox "Não existe movimento para imprimir.", vbInformation, ""
        Else
            DoCmd.OpenReport "rltMovimento", acViewPreview
            DoCmd.Maximize
        End If
    End Sub

    Segue teste

    Abraço
    Anexos
    [Resolvido]MovimentoConta AttachmentMovimentoConta_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 83 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3925
    Registrado : 06/11/2009

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  Assis em 11/10/2016, 23:55

    Parabéns Teixeira

    E Obrigado

    PS- Luis Antunes pode dar o tópico por "Resolvido" ?


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 270
    Registrado : 05/04/2016

    [Resolvido]MovimentoConta Empty MovimentoConta

    Mensagem  Luís Antunes em 12/10/2016, 00:58

    Só falta mesmo é poder inserir dados

    Luís Antunes
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  ahteixeira em 12/10/2016, 09:41

    Olá a todos,
    Assis, obrigado pelo retorno.

    Luís Antunes, o autor (Avelino Sampaio) descreveu o propósito no canto inferiror direito.

    No entanto se é o que pretende "toca a meter a mão na massa".

    Sugestão:
    a) Adicionar um botão de comando que abre formulario para adicionar movimentos
    ou
    b) Adicionar botão e aproveitar campos da edição.


    Abraço

    Conteúdo patrocinado

    [Resolvido]MovimentoConta Empty Re: [Resolvido]MovimentoConta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/10/2019, 04:47