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]Ajuda com Record Set

    Compartilhe

    LCA-LUIZ
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 30/10/2017

    [Resolvido]Ajuda com Record Set

    Mensagem  LCA-LUIZ em Ter 12 Jun 2018, 02:13

    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
    Anexos
    Financeiro2018.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (131 Kb) Baixado 9 vez(es)
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 18/01/2013

    Re: [Resolvido]Ajuda com Record Set

    Mensagem  CassioFabre em Ter 12 Jun 2018, 18:23

    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.


    .................................................................................
    Só não tem código pra morte!

    LCA-LUIZ
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 30/10/2017

    Record set

    Mensagem  LCA-LUIZ em Qui 14 Jun 2018, 20:31

    Boa tarde

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 18/01/2013

    Re: [Resolvido]Ajuda com Record Set

    Mensagem  CassioFabre em Sex 15 Jun 2018, 11:29

    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.


    .................................................................................
    Só não tem código pra morte!

    LCA-LUIZ
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 30/10/2017

    Record set

    Mensagem  LCA-LUIZ em Sex 15 Jun 2018, 13:07

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

    Obrigado
    Obrigado
    Obrigado

      Data/hora atual: Qua 20 Jun 2018, 12:45