Adicionar vários registros de uma vez

[Jailson Mateus 0]

Olá pessoal,

 

Já tentei um monte, não consegui ainda!

 

Tenho um formulário que registra clientes em minha loja

Tenho um subformulário que mostra os registros para um cliente (através de relacionamento)

 

Desejo que, a partir do primeiro registro inserido no subformulário, que automaticamente ele adicione outros de acordo com a quantidade de parcelas, incrementando o mês e o número da parcela. Ex:

 

CÓD(AUTO) PARCELA PC_TOTAL DATA VALOR

623 01 03 01/01/2011 60,00

624 02 03 01/02/2011 60,00

624 03 03 01/03/2011 60,00

 

Espero ter sido claro.

 

Desejo com isso aprender como criar registros a partir do primeiro.

 

Obrigado!

[Julien.Sorel 0]

Olá Jailson,

 

Segue rotina abaixo...:

 

Basicamente criei um botão no form principal, que através de SQL, divide o ValorTotal da prestação pelas prestações e inclui na tabela do sub-form...

 

 

Private Sub calcularCommand_Click()

        On Error GoTo Err_Calcular

        Call InserirParcelas
        MsgBox "Processo realizado com sucesso!", vbInformation, "iMasters"


Exit_Calcular:
Exit Sub

Err_Calcular:
    MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "iMasters"

Resume Exit_Calcular

End Sub

Sub InserirParcelas()

    'Atribuição dos valores dos campos dos formulários
    Dim NumPed As Integer
    NumPed = Form_ifrmPedidos.NrPedido
    Dim DtPrest As Date
    DtPrest = Form_ifrmPedidos.DtPedido - 30
    DtPrest = DtPrest + (1 * 30)
    Dim NumPrest As Integer
    NumPrest = Form_ifrmPedidos.QtdParc
    Dim VlrTotal As Integer
    VlrTotal = Form_ifrmPedidos.ValorAPagar

        Dim i As Integer
        For i = 1 To NumPrest
            Dim SQL As String
            DoCmd.SetWarnings False 'Aviso de execução
            SQL = "INSERT INTO tblDetalhesDoPedido ( NrPedido, DtPrest, Num, VlrPrest ) " & _
            "SELECT " & NumPed & " AS NrPedido, '" & DtPrest + (i * 30) & "' AS DtPrest, " & i & " AS Num, " & _
            VlrTotal / NumPrest & " AS VlrPrest"
            DoCmd.RunSQL SQL 'Inclusão das parcelas no sub-form
        Next
        DoCmd.RunCommand acCmdRefreshPage 'Atualização da página

End Sub[/Code]

 

 

 

 

 

Sem mais,

 

Julien Sorel