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

    Gerar Data de vencimento

    Compartilhe

    igadino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 31/01/2011

    Gerar Data de vencimento

    Mensagem  igadino em Sab 22 Ago 2015, 22:22

    Pessoal estou tentando fazer um for para gerar numero de parcela e data de vencimento no Visual Studio 2012 só que as data não está indo na sequência por por exemplo

    se a primeiro data for   22/08/2015
    a segunda tem que ser 22/09/2015 a assim por adiante



    Código:
    Private Sub Gera_Calc()
           Using con As OleDbConnection = GetConnection()
               Dim i As Integer = 1
               Try
                   con.Open()
                   Dim sql As String = "INSERT INTO tblReceita(ControleVenda,NumParc,ValorParc,DataVenc) VALUES(?,?,?,?)"
                   Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                   For i = 1 To txtParcela.Text
                   cmd.Parameters.Add(New OleDb.OleDbParameter("ControleVenda", txtNovo.Text))
                   cmd.Parameters.Add(New OleDb.OleDbParameter("NumParc", i & "/" & txtParcela.Text))
                   cmd.Parameters.Add(New OleDb.OleDbParameter("ValorParc", txtTotalValor.Text / txtParcela.Text))
                   cmd.Parameters.Add(New OleDb.OleDbParameter("DataVenc", DateAdd("m", i, (txtData.Text))))
                 ' cmd.Parameters.Add(New OleDb.OleDbParameter("Quitada", ""))
                   Next
                  cmd.ExecuteNonQuery()
                  Catch ex As Exception
                  MsgBox(ex.Message)
                  Finally
                  con.Close()
                  End Try
                  End Using
           End Sub
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3674
    Registrado : 20/04/2011

    Re: Gerar Data de vencimento

    Mensagem  Silvio em Qua 26 Ago 2015, 12:46

    Bom dia Idelbrandes...

    O MaximoAccess é destinado ao ambiente de desenvolvimento do MS Access.

    Sugiro procurar em fórum especifico do Visual Studio.

    Grato pela compreensão !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 25 Nov 2017, 00:06