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


3 participantes

    [Resolvido]Repetir cadastro de despesa

    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Repetir cadastro de despesa Empty [Resolvido]Repetir cadastro de despesa

    Mensagem  Helden 19/11/2021, 13:01

    Bom dia amigos, gostaria de uma ajuda para repetir cadastro de despesa em subformulario (subFormDESPESAS). acrescida de um mes, coloquei no codigo na primeira linha do rs.Fields , mas nao sei se está correto.


    Private Sub btnGravar_Click()
    Form_frm_Lancamentos_Despesas.txtDataLanc = Me.txtData
    Form_frm_Lancamentos_Despesas.GravarDespesa

    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!txtParcelas

    For i = 1 To intParcelas
    rs.AddNew
    rs.Fields("Datalancamento") = DateAdd("m", i, frm_Lancamentos_Despesas!subFormDESPESAS.Form! = Me!txtData)

    rs.Fields("DataReferencia") = DateAdd("m", i, Me!txtDataReferencia)
    rs.Fields("DataVencimento") = DateAdd("m", i, Me!txtDataVencimento)
    rs.Fields("DataPagamento") = DateAdd("m", i, Me!txtDataPagamento)
    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("ValorPago") = Me!txtPago
    rs.Fields("APagar") = Me!txtAPagar

    rs.Update
    Next i

    rs.Close
    bd.Close

    Set rs = Nothing
    Set bd = Nothing

    DoCmd.Close
    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Repetir cadastro de despesa Empty Re: [Resolvido]Repetir cadastro de despesa

    Mensagem  Silvio 25/11/2021, 12:24

    rs.Fields("Datalancamento") = DateAdd("m", i, frm_Lancamentos_Despesas!subFormDESPESAS.Form!Me.txtData)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Repetir cadastro de despesa Empty Re: [Resolvido]Repetir cadastro de despesa

    Mensagem  Helden 1/12/2021, 00:24

    boa noite , obrigado pelo retorno, posto link para dar uma olhada.
    https://www.dropbox.com/s/4hp7widzhl3pihj/Controle%20Financeiro%20Pessoal.accdb?dl=0

    coloquei o codigo no botao gravar do formulario
    frm_Datalanc_despesa
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Repetir cadastro de despesa Empty Re: [Resolvido]Repetir cadastro de despesa

    Mensagem  Helden 10/12/2021, 12:53

    bom dia pessoal, postei o sistema , alguem poderia me dar uma luz? obrigado!
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Repetir cadastro de despesa Empty Re: [Resolvido]Repetir cadastro de despesa

    Mensagem  rubenscouto 11/12/2021, 02:07

    veja um modelo.
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Repetir cadastro de despesa Empty Re: [Resolvido]Repetir cadastro de despesa

    Mensagem  Helden 15/12/2021, 00:49

    opa Ruben obrigado , tinha colocado esse codigo abaixo , na verdade tinha que colocar outros dados no sistema de vba nos RecordSource, obrigado!!!!
    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!txtParcelas
       
       For i = 1 To intParcelas
       rs.AddNew
       rs.Fields("Datalancamento") = Me.txtDataLanc
       rs.Fields("Datalancamento") = DateAdd("m", i, Me!txtDataLanc)
       rs.Fields("DataReferencia") = DateAdd("m", i, Me!txtDataReferencia)
       rs.Fields("DataVencimento") = DateAdd("m", i, Me!txtDatavencimento)
       rs.Fields("Proveniente") = Me!cboCliente.Column(0)
       rs.Fields("Descricao") = Me!cboProdutos.Column(0)
       rs.Fields("Qtd") = Me!txtQtd
       rs.Fields("ValorUnt") = Me!txtValorUnt
       rs.Fields("SubTotal") = Me!txtSubTotal
       rs.Fields("ValorPago") = Me!txtPago
       rs.Fields("APagar") = Me!txtAPagar
       
       rs.Update
    Next i

    rs.Close
    bd.Close

    Set rs = Nothing
    Set bd = Nothing
    SomPreto
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Repetir cadastro de despesa Empty Re: [Resolvido]Repetir cadastro de despesa

    Mensagem  Helden 4/1/2022, 15:10

    opa Ruben obrigado , tinha colocado esse codigo abaixo , na verdade tinha que colocar outros dados no sistema de vba nos RecordSource, obrigado!!!!
    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!txtParcelas

    For i = 1 To intParcelas
    rs.AddNew
    rs.Fields("Datalancamento") = Me.txtDataLanc
    rs.Fields("Datalancamento") = DateAdd("m", i, Me!txtDataLanc)
    rs.Fields("DataReferencia") = DateAdd("m", i, Me!txtDataReferencia)
    rs.Fields("DataVencimento") = DateAdd("m", i, Me!txtDatavencimento)
    rs.Fields("Proveniente") = Me!cboCliente.Column(0)
    rs.Fields("Descricao") = Me!cboProdutos.Column(0)
    rs.Fields("Qtd") = Me!txtQtd
    rs.Fields("ValorUnt") = Me!txtValorUnt
    rs.Fields("SubTotal") = Me!txtSubTotal
    rs.Fields("ValorPago") = Me!txtPago
    rs.Fields("APagar") = Me!txtAPagar

    rs.Update
    Next i

    rs.Close
    bd.Close

    Set rs = Nothing
    Set bd = Nothing
    SomPreto
    GOSTONÃO GOSTO

    Conteúdo patrocinado


    [Resolvido]Repetir cadastro de despesa Empty Re: [Resolvido]Repetir cadastro de despesa

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:45