MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Calculo parcelas

    Compartilhe

    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/08/2010

    Calculo parcelas

    Mensagem  marcelo3092 em Qui 02 Jun 2016, 18:13

    Boa tarde galera venho mais uma vez tirar uma duvida espero alguém possa me avisar
    Tenho um código num botão que pega o SubTotal e o Numero de parcelas e gera as parcelas sequenciais p que eu queria saber e como posso fazer para tipo se eu gerar as parcelas erradas para excluir e gera de novo tem que excluir as que foi gerada o problema e q tem que ser excluida uma por uma o que eu queria era um botão para excluir todas de uma vez... espero e agradeço a ajuda...

    Private Sub Comando21_Click()
    Dim i, strDetalhe_Calculo As Integer
    Dim strValor As Currency
    Dim strData_Parcela As Date

    strDetalhe_Calculo = [Forms]![Alunos]![Qtda_Mes]
    strValor_Parcela = [Forms]![Alunos]![ValorR$] / strDetalhe_Calculo
    strData_Parcela = [Forms]![Alunos]![Data_Parcela]

    If NParcela = "" Or IsNull(NParcela) Or NParcela = "0" Then
    For i = 1 To strDetalhe_Calculo
    DoCmd.GoToRecord , , acNewRec
    Me.NParcela = i
    Me.Valor_Parcela = strValor_Parcela
    Me.Vencimento = DateAdd("m", i - 1, strData_Parcela)
    Next
    Else
    MsgBox "Já foram calculadas as prestações desta nota." _
    & " Para calcular novamente tem que excluir as Atuais.", vbCritical, "Erro"
    End If

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2284
    Registrado : 09/04/2012

    Re: Calculo parcelas

    Mensagem  Kaynan em Qui 02 Jun 2016, 22:08

    Amigo do céu,esta sala é só pra exemplos prontos e não para dúvidas veja as regras do forum, aqui nem um colega vai te atender.

    Abçs.

      Data/hora atual: Qui 20 Jul 2017, 15:24