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]Mês anterior

    Compartilhe
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 669
    Registrado : 30/08/2010

    [Resolvido]Mês anterior

    Mensagem  gilberlanio em Ter 03 Fev 2015, 12:42

    Olá pessoal tudo bem

    Tenho dois campos:
    txtData1 e txtData2

    Queria que quando digitasse 10/02/2015 em txtdata1 preenchesse txtdata2 com 10/01/2015.
    Mudaria só o mês o dia ficaria o mesmo.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Mês anterior

    Mensagem  Roberto_1977 em Ter 03 Fev 2015, 15:38

    Boa tarde,

    Após algumas tentativas acho que consegui o ajudar...
    Estava eu a complicar tanto quando resultado é simples...
    Veja exemplo abaixo...

    Abraço... Cool
    Anexos
    Database2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 19 vez(es)
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 669
    Registrado : 30/08/2010

    Re: [Resolvido]Mês anterior

    Mensagem  gilberlanio em Ter 03 Fev 2015, 17:41

    Era isso mesmo. Obrigado pela ajuda.
    Sucesso.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Mês anterior

    Mensagem  Roberto_1977 em Ter 03 Fev 2015, 17:42

    De nada....

    Abraço... Cool
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 669
    Registrado : 30/08/2010

    Re: [Resolvido]Mês anterior

    Mensagem  gilberlanio em Ter 03 Fev 2015, 18:05

    Roberto, desculpe mais percebi um pequeno erro.

    Se coloco por exemplo: 01/01/2015 ele não retorna 01/12/2014.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Mês anterior

    Mensagem  Roberto_1977 em Qua 04 Fev 2015, 09:14

    Bom dia,

    Substitua o seu código por o abaixo...

    Private Sub Text3_AfterUpdate()
    If Month(Me.Text3) <> 1 Then
    Text1.Value = Day(Me.Text3) & "-" & Month(Me.Text3) - 1 & "-" & Year(Me.Text3)
    Else
    Text1.Value = Day(Me.Text3) & "-" & Month(Me.Text3) + 11 & "-" & Year(Me.Text3) - 1
    End If
    End Sub



    Abraço... Cool
    Anexos
    Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 9 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3044
    Registrado : 06/11/2009

    Re: [Resolvido]Mês anterior

    Mensagem  Assis em Qua 04 Fev 2015, 12:08

    Bom dia
    Diferente do Roberto


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Mês anterior

    Mensagem  Roberto_1977 em Qua 04 Fev 2015, 13:14

    Boa tarde,

    Grande Assis, gostava de saber qual a diferença??? (Sem maldade..)
    Algum erro no meu código ou poderia vir a ter?

    Abraço... Cool
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3044
    Registrado : 06/11/2009

    Re: [Resolvido]Mês anterior

    Mensagem  Assis em Qua 04 Fev 2015, 13:39

    Roberto
    No meu PC com WIN 8 e Office 2007.
    O seu exemplo ao atualizar o campo MesAgora, no campo MesAnterior do formulário não aparece o valor, mas aparece na tabela.
    Cumprimentos


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Mês anterior

    Mensagem  Roberto_1977 em Qua 04 Fev 2015, 13:51

    OK, obrigaodo...
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 669
    Registrado : 30/08/2010

    Re: [Resolvido]Mês anterior

    Mensagem  gilberlanio em Qua 04 Fev 2015, 16:12

    Obrigado Roberto e Assis, tópico resolvido.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qua 13 Dez 2017, 09:22