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

    [Resolvido]Repetir registro com datas diferente

    Compartilhe

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3227
    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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3227
    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: Sab 10 Dez 2016, 12:40