Gerar Quota

Saudacoes a todos,

Estou desenvolvendo uma BD para cadastro de membros de um organizacao. Tenho dentro do formulario principal um subformulario onde gostaria de ter a seguinte grelha: Parcela(1,2... ate 12) || Valor || Data Pagamento, sendo que para cada ano so vai ate 12 parcelas. Assim gostaria eu de garantir que para o ano seguinte fossem geradas para cada membro cadastrado mais 12 parcelas sem que seja uma a uma, uma vez que ao se cadastrar a peimeira vez poderei fazer isso atraves de um botao geral parcelas..

Espero ter sido claro.

Desde ja agradeco a ajuda de quem puder dispensar.

fsamotiua.

Olá, tente adaptar o código abaixo:

Código:



    'ADICIONAR PARCELAS
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Dim i As Integer
       
        'Abrir o banco de dados
        Set db = CurrentDb
       
        'Abrir a tabela de parcelas
        Set rs = db.OpenRecordset("TabCad_Parcelas")
       
        'Gerar as parcelas
        For i = 1 To Me.NumeroDeParcelas
            rs.AddNew
            rs("Codigo Investimento") = Me.Código
            rs("Colaborador") = Me.Colaborador
            rs("Curso") = Me.Curso
            rs("Valor da Parcela") = Me.ValorParcela
            rs("Metodo Pagamento") = Me.MetodoPagamento
            rs("Vencimento") = DateAdd("m", i - 1, Me.DataPrimeiraParcela)
            rs("Numero da Parcela") = Nz(DMax("[Numero da Parcela]", "TabCad_Parcelas", "[Codigo Investimento] = " & Me.Código), "0") + 1
            rs.Update
        Next i
       
        'Fechar o recordset e o banco de dados
        rs.Close
        db.Close
       
        'Mensagem de conclusão
        MsgBox "As parcelas foram geradas com sucesso!"