[Resolvido]MovimentoConta

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

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

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

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.

Olá Assis, obrigado pela informação.
Nem sabia qual o projecto
Aguardamos então o colega.
Abraço

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

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

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.

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  

Abraço

Boa noite Teixeira

Depois da sua dica aparece agora .... este

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

Parabéns Teixeira

E Obrigado

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

Só falta mesmo é poder inserir dados

Luís Antunes

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