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


    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 : 58
    Registrado : 27/05/2016

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

    Mensagem  Helden 30/4/2021, 02:54

    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 : 08/09/2012

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

    Mensagem  Maicon 1/5/2021, 01:18

    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 : 58
    Registrado : 27/05/2016

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

    Mensagem  Helden 2/5/2021, 02:44

    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
    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 8 vez(es)
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Maicon 2/5/2021, 19:20

    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 : 58
    Registrado : 27/05/2016

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

    Mensagem  Helden 5/5/2021, 04:16

    tentei essas modificaçoes  criei um botão gerar e ao clicar coloquei o código com correções, mas não esta dando efeito.
    Anexos
    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 5 vez(es)

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2021, 14:07