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


2 participantes

    Gerar Data de vencimento

    avatar
    igadino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Gerar Data de vencimento Empty Gerar Data de vencimento

    Mensagem  igadino 22/8/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Gerar Data de vencimento Empty Re: Gerar Data de vencimento

    Mensagem  Silvio 26/8/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 28/3/2024, 14:34