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

    Compartilhe

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

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

    Loja virtual - Gilberlânio Rocha

    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)

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

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

    Loja virtual - Gilberlânio Rocha

    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

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

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

    Loja virtual - Gilberlânio Rocha

    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)

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    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

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    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...

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

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

    Loja virtual - Gilberlânio Rocha

      Data/hora atual: Qua 07 Dez 2016, 20:13