MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes

    avatar
    Helden
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 27/05/2016

    [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes Empty [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes

    Mensagem  Helden Sex Abr 30, 2021 1:54 am

    Boa noite mestre! Se puder me ajudar agradeço imensamente.
    Estou desenvolvendo meu próprio sistema de gerenciamento de contas.
    Tenho
    tbl_Lancamento
    com seguintes campos: ID; DataLancamento; DatadRef; DataVencimento; DataPagamento; Valor; QuantidadeLancamento; TipoLancamento; ClienteFornecedor; Descriao.

    frm_Lancamento: com todos esses campos.

    Gostaria que quando colocasse um numero maior que 1 no campo ""QuantidadeLancamento"" ele repetisse os registros (o numero de vezes colocado no campo) nas mesmas datas acrescida de 1 mes .
    Obrigado!! Very Happy




    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 255
    Registrado : 07/09/2012

    [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes Empty Re: [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes

    Mensagem  Maicon Sab Maio 01, 2021 12:18 am

    Não foi muito claro sobre qual objeto quer trabalhar ?
    Formulário ? Consulta ? Tabela ?
    Repetir os registros para quê ? gerar parcelas ?

    Creio que queira realizar isso em um formulário, mesmo que não seja para gerar parcelas o princípio me parece o mesmo veja os tópicos abaixo:


    Este tópico gera parcelas : "https://www.maximoaccess.com/t4436-resolvidoinserir-parcelas-no-controle-de-pagamento"


    [Resolvido]Inserir parcelas no controle de pagamento Empty Re: [Resolvido]Inserir parcelas no controle de pagamento
    Mensagem FabioPaes Qui 14 Jul 2016, 3:24 pm

    +
    ----
    -
    Sobre o Assunto:

    https://www.maximoaccess.com/t26940-resolvidoformulario-de-parcelas

    https://www.maximoaccess.com/t27142-resolvidoparcelador

    https://www.maximoaccess.com/t26967-resolvidogera-parcelas

    https://www.maximoaccess.com/t26331-resolvidogerar-parcelas

    Vários Tópicos Com o Mesmo assunto, e todos solucionados.




    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    avatar
    Helden
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 27/05/2016

    [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes Empty Re: [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes

    Mensagem  Helden Dom Maio 02, 2021 1:44 am

    Boa noite amigo, primeiramente obrigado pelo retorno.
    Respondendo aos questionamentos.
    Quero registrar contas a pagar e a receber, quando registro uma conta hoje quero que esteja registrado todo mês (no mesmo dia) para depois me lembrar que tenho que pagar ou receber . Todos os dias pesquiso contas a receber e a pagar,  seria tipo parcela mesmo.
    Estou inserindo o código no capo de registro "quantidade"em um formulário. Estou tentando esse código conforme suas orientações, algo não deu certo o código já para no" tbl_Lancamento_DataLancamento"


    Private Sub Quantidade_AfterUpdate()
    Dim DB As Database
    Dim rs As DAO.Recordset
    Dim F As Integer

    Set DB = CurrentDb()
       Set rs = DB.OpenRecordset("tbl_Lancamentos") 'Abre a tabela tbl_Lancamentos para lançamento dos dados
     
       For F = 1 To Me.Quantidade  'Calcula o Loop
           'Campos e valores a serem preenchidos
           rs.AddNew
           rs("tbl_Lancamentos_DataLancamento") = DateAdd("m", F, Format(Me.tbl_Lancamentos_DataLancamento, "dd/mm/yyyy"))
           rs("tbl_Lancamentos_DataVencimento") = DateAdd("m", F, Format(Me.tbl_Lancamentos_DataVencimento, "dd/mm/yyyy"))
           rs("tbl_Lancamentos_DataReferencia") = DateAdd("m", F, Format(Me.tbl_Lancamentos_DataReferencia, "dd/mm/yyyy"))
           rs("tbl_Lancamentos_Tipo") = Me.Combinaao17,Tipo.Column(0)
           rs("tbl_Lancamentos_Cliente") = Me.tbl_Lancamentos_Cliente
           rs("tbl_Lancamentos_Descricao") = Me.tbl_Lancamentos_Descricao
           rs("tbl_Lancamentos_ValorLanc") = Me.tbl_Lancamentos_ValorLanc
         
           rs("tbl_Lancamentos_Quantidade") = Format(F, "00") & "/" & Format(Me.Quantidade, "00") 'Insere as parcelas no formato 01/10, 02/10, 03/10...
           rs.Update
           'Move para o Proximo
       Next
       'Termina e encerra as conexoes
       rs.Close
       DB.Close
       
    End Sub
    Anexos
    [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes AttachmentGerenciamento Financeiro Pessoal.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (104 Kb) Baixado 14 vez(es)
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 255
    Registrado : 07/09/2012

    [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes Empty Re: [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes

    Mensagem  Maicon Dom Maio 02, 2021 6:20 pm

    Observando seu projeto observei que você não nomeia os controles caixa de texto etc, isso gera conflito no código porque existe com campo DataLançamento na tabela e no formulário vá até seu formulário e renomeie seus controles com nomes diferentes da tabela ,

    Eu uso txt_NomeCaixaTexto , Comb_NomeCaixa de combinação e assim por diante.

    Código:
    rs("Lancamentos_Cliente") = Me.tbl_Lancamentos_Cliente

    outra coisa no código você não precisa identificar o nome da tablea já que na hora de setar o banco de dados você já informou a tabela.

    Código:
    Set DB = CurrentDb()
        Set rs = DB.OpenRecordset("tbl_Lancamentos") 'Abre a tabela tbl_Lancamentos para lançamento dos dados



    Código:
    Dim DB As Database
    Dim rs As DAO.Recordset
    Dim F As Integer




    Set DB = CurrentDb()
        Set rs = DB.OpenRecordset("tbl_Lancamentos") 'Abre a tabela tbl_Lancamentos para lançamento dos dados
     
        For F = 1 To Me.txt_Quantidade  'Calcula o Loop
       
       
            'Campos e valores a serem preenchidos
            rs.AddNew
            rs("DataLancamento") = Me.txt_DataLancamento
            rs("DataVencimento") = Me.txt_DataVencimento
            rs("DataReferencia") = Me.txt_DataReferencia
            rs("Tipo") = Me.Combinacao17
            rs("Cliente") = Me.txt_Cliente
            rs("Descricao") = Me.txt_Descricao
            rs("ValorLanc") = Me.txt_ValorLanc
            rs("Quantidade") = Me.txt_Quantidade
            'Insere as parcelas no formato 01/10, 02/10, 03/10...
            rs.Update
            'Move para o Proximo
        Next
        'Termina e encerra as conexoes
        rs.Close
        DB.Close


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    avatar
    Helden
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 27/05/2016

    [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes Empty Re: [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes

    Mensagem  Helden Qua Maio 05, 2021 3:16 am

    REalizei mudanças,  e consegui com esse codigo que é bem divulgado em videos tambem:

    Private Sub btnSalvar_Click()
       Dim bd As DAO.Database
       Dim rs As DAO.Recordset
       Dim intParcelas As Integer
       Dim i As Integer
       
       Set bd = CurrentDb
       Set rs = bd.OpenRecordset("tbl_DESPESAS")
       
       intParcelas = Me!txtQtd
       
       For i = 1 To intParcelas
       rs.AddNew
       rs.Fields("Datalancamento") = DateAdd("m", i, Me!txtData)
       rs.Fields("Proveniente") = Me!cboCliente
       rs.Fields("Descricao") = Me!cboProdutos
       rs.Fields("Qtd") = i
       rs.Fields("ValorUnt") = Me!txtValorUnt / intParcelas
       rs.Fields("SubTotal") = Me!txtSubTotal
       rs.Fields("ValorRecebido") = Me!txtRecebido2
       rs.Fields("AReceber") = Me!txtAReceber
       
       rs.Update
    Next i

    rs.Close
    bd.Close

    Set rs = Nothing
    Set bd = Nothing
    End Sub
    Anexos
    [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes AttachmentGerenciamento Financeiro Pessoal BECKUP.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 11 vez(es)


    Última edição por Helden em Seg Maio 24, 2021 5:36 am, editado 2 vez(es) (Motivo da edição : resolvido (nao esta aparecendo o botão))
    avatar
    Helden
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 27/05/2016

    [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes Empty Re: [Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes

    Mensagem  Helden Seg Maio 24, 2021 5:38 am

    Agradeço a atenção, abraço!!!

      Data/hora atual: Sab Set 18, 2021 4:50 pm