MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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: Sex 09 Dez 2016, 07:39