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

    [Resolvido]Repetir registro com datas diferente

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 748
    Registrado : 11/09/2013

    [Resolvido]Repetir registro com datas diferente

    Mensagem  formiga10x em Sex 09 Out 2015, 22:18

    Boa noite a todos.

    Estou empacado numa rotina e preciso da ajuda dos amigos. É o seguinte...

    Tenho um texbox que contem a data atual, e preciso fazer por exemplo 10 lançamentos do mesmo registro adicionando apenas 1 mês a frente.
    Ex:
    09/10/2015
    09/11/2015
    09/12/2015
    09/01/2016
    09/02/2016...




    Esto a tentar..

    Código:
    Dim I As Integer

    For I = 1 To Me.txtQtdLanc

        Me.txtData = DateAdd("m", I - 1, Month(txtData))
     
        CurrentDb.Execute "Insert Into tbl_Lancamento (DataLanc,Tipo,Descricao,ValorLanc,ValorUnt,Quantidade) Values ('" & Me.txtData & "','" & Me.cboTipo & "','" & Me.txtDescricao & "','" & Me.txtValor & "','" & Me.txtValorUnt & "','" & Me.txtQtd & "')"

    Next I

    Mas não tá dando muito certo naum... Crying or Very sad


    Muito agradecido e a paz esteja com todos.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4473
    Registrado : 15/03/2013

    Re: [Resolvido]Repetir registro com datas diferente

    Mensagem  ahteixeira em Sab 10 Out 2015, 10:21

    Olá Elias, teste assim:

    Código:
    Dim I As Integer
    Dim dtCalculada As Date

    For I = 1 To Me.txtQtdLanc

        dtCalculada = DateAdd("m", I - 1, txtData)
     
        CurrentDb.Execute "Insert Into tbl_Lancamento (DataLanc,Tipo,Descricao,ValorLanc,ValorUnt,Quantidade) Values ('" & Format(dtCalculada, "mm/dd/yyyy") & "','" & Me.cboTipo & "','" & Me.txtDescricao & "','" & Me.txtValor & "','" & Me.txtValorUnt & "','" & Me.txtQtd & "')"
        DoEvents
    Next I

    Abraço
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 748
    Registrado : 11/09/2013

    Re: [Resolvido]Repetir registro com datas diferente

    Mensagem  formiga10x em Sab 10 Out 2015, 10:50

    Perfeito Teixeira, muito agradecido mesmo que Deus o abençoe.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4473
    Registrado : 15/03/2013

    Re: [Resolvido]Repetir registro com datas diferente

    Mensagem  ahteixeira em Sab 10 Out 2015, 12:20

    Olá Elias, obrigado pelo retorno.
    Bom fim‑de‑semana
    Abraço

      Data/hora atual: Dom 22 Out 2017, 11:15