[Resolvido]Ajuda com Record Set

Boa noite pessoal, fiz um formulário para conta corrente, e usei um record set. Funcionou, mas quando incluo uma segunda conta dá erro.
Ele calcula o saldo de toda a tabela, gostaria que calculasse somente da conta selecionada.

Meio difícil de explicar.

Sub AtualizaSaldo()
Dim curSaldoInicial As Currency 'Variável como moeda
Dim rst As DAO.Recordset ' Variável do Record Set

   curSaldoInicial = 0 'defino o saldo inicial como zero
   Set rst = CurrentDb.OpenRecordset("Cons_Conta")
   
   Do While Not rst.EOF
       rst.Edit
           curSaldoInicial = curSaldoInicial + rst!CxValor
           rst!CxSaldo = curSaldoInicial
           
       rst.Update
       rst.MoveNext
   Loop
End Sub

Segue anexo BD

Boa tarde,

no trecho:

Código:

Set rst = CurrentDb.OpenRecordset("Cons_Conta")

voce tem que especificar qual conta você está querendo alterar. Ficaria algo do tipo:

Código:

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Cons_Conta WHERE [campoCodigo] = " & txtCodigo & "")

Onde campoCodigo é o campo da tabela que tem um identificador unico para cada conta e txtCodigo é o campo do formulário que contém o código da conta que está preenchido no campo "campoCodigo".

Abraço.

Boa tarde

Não deu certo, talvez eu não tenha conseguido fazer, ou tem mais algum detalhe que não percebi

Bom dia,

Teste o seguinte na linha correspondente da função AtualizaSaldo:

Código:

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Cons_Conta WHERE ContaID = " & Me.ContaID & "")

Abraço.

Bom Dia, obrigado Cássio e pessoal do fórum, funcionou perfeito, era isso que faltava no meu projeto

Obrigado
Obrigado
Obrigado