Problema com datas

Moderador: Avelino Sampaio

Fernando Carvalho
Mensagens: 20
Registrado em: 29 Jun 2018, 10:02

Problema com datas

Mensagempor Fernando Carvalho » 04 Nov 2018, 15:45

Boa tarde, amigos do fórum. Tenho uma caixa de combinação que quero que me retorne todos os anos anteriores ao actual. Assim, me cada vez que passa de ano, a caixa deveria mostra-me, neste momento, o ano de 2017 até 2000. no próximo ano deveria mostrar o ano de 2018 até 2000. Como faço isto? Obrigado.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Problema com datas

Mensagempor Damasceno Jr. » 05 Nov 2018, 01:56

Criei um formulário. Adicionei um controle do tipo Combobox (caixa de combinação) e chamei de cboAnos. Código utilizado no formulário para fazer o que você pretende foi esse

Código:
Option Compare Database
Option Explicit

Dim booCarregouListaAnos As Boolean 'variável para armazenar valor que a lista está carregada

Private Sub cboAnos_GotFocus() 'evento ao receber foto

Dim intAno As Integer 'variável do tipo inteiro para auxiliar no laço for... next

If Not booCarregouListaAnos Then 'se a variável booCarregouListaAnos estiver com o valor False então

Me!cboAnos.RowSource = "" 'limpa os valores da lista

For intAno = (Year(Date) -1) To 2000 Step -1 'laço que começa no ano anterior ao atual e vai até o ano 2000
Me!cboAnos.AddItem intAno 'adiciona na lista o ano em que o laço estiver passando
Next intAno 'próximo ano

booCarregouListaAnos = True 'deixo a variável booCarregouListaAnos como True

End If 'fim da estrutura condicional

Me!cboAnos.Dropdown 'exibindo lista de anos

End Sub 'fim do evento
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Fernando Carvalho
Mensagens: 20
Registrado em: 29 Jun 2018, 10:02

Re: Problema com datas

Mensagempor Fernando Carvalho » 05 Nov 2018, 13:30

Grande Damasceno, está a trabalhar a 100% e logo à primeira. Muito obrigado pela ajuda, um forte abraço.

Fernando Carvalho
Mensagens: 20
Registrado em: 29 Jun 2018, 10:02

Re: Problema com datas

Mensagempor Fernando Carvalho » 05 Nov 2018, 13:34

Amigo Damasceno, só uma questão. se, na tabela não existirem registos de 2000 ou 2004, por exemplo, como é que ficaria se clicasse num desses anos? desculpe, mas veio-me agora à ideia essa possibilidade.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 6 visitantes