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

    Gerei um novo campo e esta dando erro

    Compartilhe

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 29/03/2011

    Gerei um novo campo e esta dando erro

    Mensagem  athenas1200 em Ter 19 Jan 2016, 21:35

    Inserir o campo CpParcelas, que pertence ao txtparcelas.
    Mas acredito que falta fechar ou inserir algo. está dando erro.
    Alguém podem me ajudar.
    Obrigado



    Private Sub btnGerar_Click()
    Dim I As Integer
    Dim StrDateAdd As Date
    Dim StrValorParc As Double
    Dim Parc As String
    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 tblExemplo(Compra,CpData,CpParcelas ,CpValor)" _
                   & " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,  """ & txtparcelas & """)&  #, """ & StrValorParc & """);"
    Next I
    Me.lstParcelas.Requery
    End Sub
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    Registrado : 14/08/2013

    Re: Gerei um novo campo e esta dando erro

    Mensagem  FabioPaes em Ter 19 Jan 2016, 22:53

    Amigo, o Professor Gilberlanio Rocha, ensina a fazer isso nessas video Aulas...


    O Código que ele usa no Botao é esse:
    Código:
    Private Sub bt_GerarParcelas_Click()
     Set db = CurrentDb()
        Set rs = db.OpenRecordset("Tbl_ContasAreceber") 'Abre Tbl_ContasAreceber
        Valor_Parcela = Me.txt_TotalVenda / Me.QtdeParcelas 'Valor de cada Parcela
       
        For I = 1 To Me.QtdeParcelas  'Insere as Parcela na Tbl_ContasAreceber
            rs.AddNew
            rs("Cod_TabVenda") = Me.CodVenda
            rs("Parcelas") = I & "/" & Me.QtdeParcelas
            rs("Valor_Parcela") = Valor_Parcela
            rs("Dt_Vencimento") = DateAdd("m", I - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto através da função DateAdd()
            rs.Update
        Next
        rs.Close
        db.Close
        Me.frmSub_ContasAreceber.Requery  'Atualiza o SubForm
       
    End Sub

    Tabela é a Tbl_ContasAreceber

    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Seg 23 Out 2017, 16:14