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

    Repetir cadastro de despesa

    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Repetir cadastro de despesa Empty 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 : 4801
    Registrado : 20/04/2011

    Repetir cadastro de despesa Empty Re: 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."

      Data/hora atual: 29/11/2021, 23:25