MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Erro ao gerar as Parcelas

    avatar
    fabioavila
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 202
    Registrado : 22/03/2011

    [Resolvido]Erro ao gerar as Parcelas Empty [Resolvido]Erro ao gerar as Parcelas

    Mensagem  fabioavila em 11/6/2020, 16:00

    Ola amigos,

    Estou migrando meu bd para Mysql na web , porém tenho um código para gerar parcelas e o mesmo não está funcionando, ex: se mando gerar 12 parcelas ele gera a primeira e as demais 11 parcela ele esta repetindo os dados da primeira parcela.. lembrando que na base local está normal esse erro me da apenas no banco web.

    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0
    3 1 65 01/06/2020 0

    Segue me código para gerar as parcelas :

    Código:
    Private Sub cmdParcelas_Click()

        If Me.curValor <= 0 Then 'Se valor do contrato for <= 0
            Exit Sub
        End If
       
        'Salva o contrato
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
       
        Dim db As Database, rs As Recordset
        Dim ValParc, valdes, valmen As Currency, i As Byte
       
           
        Set db = CurrentDb()
        Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas
        ValParc = Me.curValor '/ Me.bytParcelas 'Valor de cada Parcela
        valdes = Me.TotDesc '/ Me.bytParcelas  'Valor de cada Parcela
        valmen = Me.TotMens '/ Me.bytParcelas  'Valor de cada Parcela
           
        For i = 1 To Me.bytParcelas  'Insere as Parcela na Tabela
            rs.AddNew
            rs("lngNumContrato") = Me.lngNumContrato
            rs("bytParcela") = i
            rs("curValor") = ValParc
            rs("valDesc") = valdes
            rs("valMens") = valmen
            'Calcula as datas de Vencto através da função DateAdd()
            rs("dtVencimento") = DateAdd("m", i - 1, Me.dtContrato)
            rs.UPDATE
        Next
                   
        rs.Close
        db.Close
        Me.subfrm_Parcelas.SetFocus 'Foco no SubForm Parcelas
        Me.cmdParcelas.Enabled = False 'Desativa o botão Parcelas
        Me.subfrm_Parcelas.Requery  'Atualiza o SubForm Parcelas
    avatar
    fabioavila
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 202
    Registrado : 22/03/2011

    [Resolvido]Erro ao gerar as Parcelas Empty Re: [Resolvido]Erro ao gerar as Parcelas

    Mensagem  fabioavila em 20/6/2020, 20:32

    Ola,

    Topico resolvido estava faltando um campo Id autonumerico na tabela Parcelas por isso gerava o erro..

    Obdo
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Erro ao gerar as Parcelas Empty Re: [Resolvido]Erro ao gerar as Parcelas

    Mensagem  ahteixeira em 21/6/2020, 10:46

    Olá Fábio,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 1/12/2020, 12:23