[Resolvido]Formulario de parcelas

galera puxei um formulario simples de um rapaz aqui do forum e nele tem uns exemplos de VBA


fiz uns teste aqui porem nao esta dubplicando a finalidade conforme o numero de parcelas


EX: se tiver 10 parcelas ele coloca 10 datas subsequentes e duplica numero de parcelas. Porem nao duplica o que coloquei no formulario.


alguem pode ajudar ?

Private Sub parcelas_AfterUpdate()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrDesc As Double
Dim Parc As String
Dim NumFin As Double

NumFin = Me.cbo_Finalidade.Column(0)
StrDesc = Me.lc_descrição.Column(0)

For I = 1 To Me.parcelas
StrDateAdd = DateAdd("m", I, Format(Me.lc_data, "dd/mm/yyyy"))
StrParc = I & "/" & Me.parcelas
CurrentDb.Execute "INSERT INTO lc(lc_Data,lc_Descrição,lc_Historico,lc_Valor,lc_Finalidade,lc_Parcela)" _
               & " Values(#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,""" & StrDesc & """, """ & lc_historico & """,""" & lc_valor & """,""" & strNumFin & """,""" & StrParc & """);"
Next I
End Sub

Bom dia  maguim, Peguei um exemplo aqui no fórum, e acho que seria o que esta precisando.

Acho que sua consulta esta com aspas duplas (") no lugar de aspas simples ('). veja na minha consulta como esta.

Código:

            CurrentDb.Execute ("INSERT INTO tblParcelas (VendaID,NParc,Vencimento,ValorParcela) " & _
                "VALUES (" & Me.VendaID & ",1,'" & DtVencimento & "','" & VlParcela & "')")

Segue exemplo baixado no Fórum.

meu querido acredito que dever ser algum looping

repare

Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrDesc As Double
Dim Parc As String

CurrentDb.Execute "INSERT INTO lc(lc_Data,lc_Descrição,lc_Historico,lc_Valor,lc_Finalidade,lc_Parcela)" _
               & " Values(#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,""" & StrDesc & """, """ & lc_historico & """,""" & lc_valor & """,""" & NumFin & """,""" & StrParc & """);"

Não tem nenhum DIM

alguém poderia montar o código por favor. Não faço ideia de como montar.

Segue o Codigo novamente
Private Sub parcelas_AfterUpdate()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrDesc As Double
Dim Parc As String

Me.NumFin = Me.cbo_Finalidade.Column(0)
StrDesc = Me.lc_descrição.Column(0)

For I = 1 To Me.parcelas
StrDateAdd = DateAdd("m", I, Format(Me.lc_data, "dd/mm/yyyy"))
StrParc = I & "/" & Me.parcelas
CurrentDb.Execute "INSERT INTO lc(lc_Data,lc_Descrição,lc_Historico,lc_Valor,lc_Finalidade,lc_Parcela)" _
& " Values(#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,""" & StrDesc & """, """ & lc_historico & """,""" & lc_valor & """,""" & NumFin & """,""" & StrParc & """);"
Next I
End Sub

https://www.maximoaccess.com/t26967-resolvidogera-parcelas
Mensagem n 04 e 09.

Veja la que tem ele funcionando centinho...

amigao, desculpa a ignorancia. tentei fazer assim...


Private Sub parcelas_AfterUpdate()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrDesc As Double
Dim Parc As String
Dim StrFin As Double

Me.NumFin = Me.cbo_Finalidade.Column(0)
StrDesc = Me.lc_descrição.Column(0)

For I = 1 To Me.parcelas
StrDateAdd = DateAdd("m", I, Format(Me.lc_data, "dd/mm/yyyy"))
StrParc = I & "/" & Me.parcelas
CurrentDb.Execute "INSERT INTO lc(lc_Data,lc_Descrição,lc_Historico,lc_Valor,lc_Finalidade,lc_Parcela)" _
               & " Values(#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,""" & StrDesc & """, """ & lc_historico & """,""" & lc_valor & """,""" & strfin & """,""" & StrParc & """);"
Next I
End Sub

ele esta DUPLICANDO. Mas não poem numero de finalidade corretamente ele deixa como 0 e na tabela é 1

abraços

Amigo, que tal postar aqui seu BD?

segue o bd. amigao

https://www.dropbox.com/home?preview=testePARCELA.accdb

atenciosamente.

Link errado amigo, tem que clicar em Compartilhar no seu arquivo...

Amigao, desculpa segue novamente.

https://www.dropbox.com/s/sjz91g1olw267n4/testePARCELA.accdb?dl=0

Coloque este Código em Um Botão (ou coloque no evento apos atualizar do campo Parcelas)

Recomendo em um Botão.

Código:

Private Sub btInserirParcelas_Click()
'-------------------------------------------'
'                                           '
'             Gera Parcelas                 '
'    Criado por FabioPaes em 16/06/2016     '
'                                           '
'-------------------------------------------'
'Declaração das Variaveis
Dim DB As Database
Dim rs As DAO.Recordset
Dim F As Integer

Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("lc") 'Abre a tabela LC para lançamento dos dados
  
    For F = 1 To Me.parcelas  'Calcula o Loop
        'Campos e valores a serem preenchidos
        rs.AddNew
        rs("lc_data") = DateAdd("m", F, Format(Me.lc_data, "dd/mm/yyyy"))
        rs("lc_descrição") = Me.lc_descrição.Column(0)
        rs("lc_historico") = Me.lc_historico
        rs("lc_valor") = Me.lc_valor
        rs("lc_situacao") = Me.lc_situacao
        rs("lc_finalidade") = Me.cbo_Finalidade.Column(0)
        rs("lc_Parcela") = Format(F, "00") & "/" & Format(Me.parcelas, "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

Atenção!!!

Caso opte por colocar em um Botão, Remova o Código que esta la no Campo parcelas, se não ira duplicar os dados...
*** Outra coisa que percebi, e que seus Campos estão vinculados a tabela, entao esteja ciente que a medida que abrir o Formulario ira ter um Novo Registro com os Dados preenchidos + a quantidade de parcelas geradas... Se não quer isso, desacople seus campos...

FABIO

obg !

Me atendeu, resolvido