Sid_ney

Fazer uma soma em SQL. Dim intSoma as integer dim Rst As DAO.Recordset Set Rst = CurrentDb.OpenRecordset("SELECT SUM " _ & "(ValorMes1+ValorMes2+ValorMes3+ValorMes4+ValorMes5+ValorMes6+ValorMes7+ValorMes8+ValorMes9+ValorMes10+ValorMes11+ValorMes12) " _ & " FROM tab_Moradores WHERE UnidPesqMor='1-ATIVO' AND CodMorSis=" & intNMorSisAtual & "") intSoma = Rst(0) Este programa faz uma soma dos rendimento referente a uma ano, de uma determinada pessoa, com critérios difentes. att; Sidney

FortNegro, Boa tarde!! Poste uma parte do seu exemplo para um melhor entendimento. att; Sidney

Helvio, Boa Tarde!! cola este codigo em um module e execute, Public Function GerNumSeq() Dim intUltimNum, intNumVezes As Integer Dim srtSQL As String 'Crie uma tabela chamada tab_Sequencia, e nela um campo chamado NumeroSequencia intNumVezes = InputBox("Digite a quantidade a ser adicionado.", "CONTADOR") intUltimNum = Nz(DMax("NumeroSequencia", "tab_Sequencia")) For i = 1 To intNumVezes intUltimNum = intUltimNum + 1 srtSQL = "INSERT INTO tab_Sequencia (Numerosequencia) VALUES (" & intUltimNum & ")" CurrentDb.Execute (srtSQL) Next i End Function att; Sidney

jmxcn, Boa Tarde!! Poderia disponibilizar um exemplo do seu banco de dados, há várias maneiras de se fazer isso, att; Sidney