MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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]Gerando parcela com valor nulo

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1715
    Registrado : 23/01/2018

    [Resolvido]Gerando parcela com valor nulo Empty [Resolvido]Gerando parcela com valor nulo

    Mensagem  crysostomo 2/11/2019, 15:53

    Boa tarde amigos, estou com ima lista de gerar parcelas que pesquisei daqui do forum e fiz umas alterações e ela gera normalmente , mas so que a primeira parcela fica com valor 0. poderia me ajudar?

    Código:
    Private Sub btnGerar_Click()
    Dim I As Integer
    Dim StrDateAdd As Date
    Dim StrValorParc As Double
    Dim Parc As String
    Me.opcaoApagar.Visible = False
        Me.opcaoPago.Visible = False
        Me.opcaoTodos.Visible = False
        Me.RótuloApagar.Visible = False
        Me.Rótulopagos.Visible = False
        Me.Rótulotodos.Visible = False
        Me.Quadro39.Visible = False
    If IsNull(Me.txtParc) Then
        MsgBox " Voce esquceu de colocar as parcelas", vbInformation, "Center`Print"
        Me.txtParc.SetFocus
    ElseIf IsNull(Me.txtData) Then
        MsgBox "Coloque a data", vbInformation, "Center Print"
        Me.txtData.SetFocus
    ElseIf IsNull(Me.txtValor_Total) Then
        MsgBox "Você esqueceu de colocar o valor", vbInformation, "CenterPrint"
        Me.txtValor_Total.SetFocus
    ElseIf IsNull(Me.txtDescricao) Then
        MsgBox " O que vai ser parcelado?", vbInformation, "Cenetr Print"
        Me.txtDescricao.SetFocus
        Else
    For I = 1 To Me.txtParc
    StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
    StrParc = I & "/" & Me.txtParc
    CurrentDb.Execute "INSERT INTO tblFNparcelas(Compra,CpData,CpValor)" _
                    & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
                StrValorParc = Me.txtValor_Total
    Next I
    Me.txtParc = Null
    Me.txtData = Null
    Me.txtValor_Total = Null
    Me.txtDescricao = Null

    Me.lstParcelas.Requery


    End If
    End Sub

    [Resolvido]Gerando parcela com valor nulo Sem_tz58


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7956
    Registrado : 05/11/2009

    [Resolvido]Gerando parcela com valor nulo Empty Re: [Resolvido]Gerando parcela com valor nulo

    Mensagem  Alexandre Neves 3/11/2019, 18:23

    Boa tarde
    Julgo que não conferiu a execução do código passo-a-passo e verificar a evolução do valor de cada variável.
    Será assim:
    Código:
    Private Sub btnGerar_Click()
        Dim I As Integer, StrDateAdd As Date, StrValorParc As Double, Parc As String
        Me.opcaoApagar.Visible = False
        Me.opcaoPago.Visible = False
        Me.opcaoTodos.Visible = False
        Me.RótuloApagar.Visible = False
        Me.Rótulopagos.Visible = False
        Me.Rótulotodos.Visible = False
        Me.Quadro39.Visible = False
        If IsNull(Me.txtParc) Then
            MsgBox " Voce esquceu de colocar as parcelas", vbInformation, "Center`Print"
            Me.txtParc.SetFocus
        ElseIf IsNull(Me.txtData) Then
            MsgBox "Coloque a data", vbInformation, "Center Print"
            Me.txtData.SetFocus
        ElseIf IsNull(Me.txtValor_Total) Then
            MsgBox "Você esqueceu de colocar o valor", vbInformation, "CenterPrint"
            Me.txtValor_Total.SetFocus
        ElseIf IsNull(Me.txtDescricao) Then
            MsgBox " O que vai ser parcelado?", vbInformation, "Cenetr Print"
            Me.txtDescricao.SetFocus
        Else
            StrValorParc = Me.txtValor_Total
            For I = 1 To Me.txtParc
                StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
                StrParc = I & "/" & Me.txtParc
                CurrentDb.Execute "INSERT INTO tblFNparcelas(Compra,CpData,CpValor)" _
                    & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
            Next I
            Me.txtParc = Null
            Me.txtData = Null
            Me.txtValor_Total = Null
            Me.txtDescricao = Null
            Me.lstParcelas.Requery
        End If
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1715
    Registrado : 23/01/2018

    [Resolvido]Gerando parcela com valor nulo Empty Re: [Resolvido]Gerando parcela com valor nulo

    Mensagem  crysostomo 4/11/2019, 13:25

    Puts ,affraid bom dia Alexandre.
    caraca , fui validando os campos e refazendo com as alterações e tirei o principal da execção.
    Obrigado amigo,


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 16/6/2021, 22:11