[Resolvido]ModulosCaixas

Bom dia
Neste ex do JPaulo quando no Formulário tem 3 caixas ele funciona, mas se tiver mais ou menos caixas ele não funciona.
Como posso por automáticamente para mais caixas? (1 To 3)

Public Sub MostraSoma()
'By JPaulo © MaximoAccess
'Para Nivaldo
Dim yColuna As Integer, xCampo As Long, i As Integer, strSoma() As Double

Me.RecordsetClone.MoveFirst

ReDim strSoma(1 To 3)
For yColuna = 1 To Me.RecordsetClone.RecordCount
For xCampo = 1 To 3
strSoma(xCampo) = strSoma(xCampo) + Nz(Me.RecordsetClone.Fields(xCampo), 0)
Next
Me.RecordsetClone.MoveNext
Next

For i = 1 To 3
Me.Controls("txtTotal" & i).Value = strSoma(i)
Next
End Sub
Obrigado
Pina

De alguma forma, você deve identificar quantos caixas tem no formulário e passar essa informação como parâmetro para a função:

Código:

Public Sub MostraSoma(caixas As Byte)
'By JPaulo © MaximoAccess
'Para Nivaldo
Dim yColuna As Integer, xCampo As Long, i As Integer, strSoma() As Double

Me.RecordsetClone.MoveFirst

ReDim strSoma(1 To caixas)
For yColuna = 1 To Me.RecordsetClone.RecordCount
For xCampo = 1 To caixas
strSoma(xCampo) = strSoma(xCampo) + Nz(Me.RecordsetClone.Fields(xCampo), 0)
Next
Me.RecordsetClone.MoveNext
Next

For i = 1 To caixas
Me.Controls("txtTotal" & i).Value = strSoma(i)
Next
End Sub

Bom dia Claudio
Obrigado pela sua ajuda
Vou enviar o Ex para ver que agora dá um erro na soma
No Form é como o JPalo tem mas tenho que dizer as caixas cada vez que eu tenho dados para esse Mês
No form1 alterei para o seu Modulo e dá erro na soma.
Obrigado
Pina

Bom dia Pina,

Então vc se referia a caixas de texto.
Mas não serão sempre 13?
Não entendi o problema com o "Form", parece estar ok.

Bom dia Claudio
Eu é que coloquei as 13 caixas para os doze meses, mas se um mês não tem dados não faz a soma.
Se apagar dados na Tabela vê-se o erro
Pina

Fiz tantas alterações que já até me perdi...

Dá uma olhada no Form1.

Boas Claudio
se apagar dados na Tabelas (tblDespesasttt)
dá erro de caixas

Obrigado
Pina

Não entendi.
Como assim, erro de caixas?

De qualquer maneira, pode tentar o seguinte, no evento Ao abrir do Form1:

Código:

If DCount("*", Me.RecordSource) = 0 Then
    MsgBox "Sem caixas"
    Cancel = True
End If

Boas Claudio
Concerteza não estou a explicar da melhor forma
Na Tabela de dados dor Form eu tenho dados até ao mês 12 então no Modulo do JPaulo tenho que ter (1 To 13)
Se tiver dados ate ao mês 5 tenho que ir ao Modulo do JPaulo e pôr (1 To 6) assim sucessivamente
Que era bom é que não fosse preciso ir ao Modulo e alterar cada vez que tenho dados para o mês seguinte.
Envio de noa base com as suas alterações no For1
O brigado
Pina

Pina, acho que já entendi sim.

Mas o arquivo que você postou não é o mesmo que enviei.
Então você não está testando as alterações que fiz e enviei anteriormente, na mensagem de 11:00hs.
O Form1 está funcionando conforme o número de caixas.

Boas Claudio
Desculpe, mas não vejo o artigo
importase de me enviar outra vez?
Pina

Boas Claudio
Foi por Email?
Pina

Pina, não foi por e-mail.

Está em anexo na minha terceira mensagem aqui logo acima.

Boas Claudio
Peço desculpa, eu vi o ficheiro só que não vi que tinha uma consulta nova (QryCaixas)
Ficou muito BOM
Vou colocar aqui o ficheiro para que alguém precise.
Muito Obrigado e ao JPaulo também.
Abraços
Pina

De nada.
Abraços