[Resolvido]Carregar combo com datas

**Gilberto Rocha** 11/5/2011, 19:06

Gilberto Rocha: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010

Mensagem nº1

[Resolvido]Carregar combo com datas

Mensagem Gilberto Rocha 11/5/2011, 19:06

Amigos, eu tinha um exemplo e acabei perdendo.

Queria preencher uma combo com datas de Janeiro de 2000 até Dezembro 2020
o formato seria mes/ano
Janeiro/2000
Fevereiro/2000
Março/2000
até chegar em Dezembro/2020

Alguem tem um exemplo de como fazer isso em uma Combo?

Assis 11/5/2011, 19:24

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº2

Re: [Resolvido]Carregar combo com datas

Mensagem Assis 11/5/2011, 19:24

Deve dar para alterar

.................................................................................
*** Só sei que nada sei ***

**Gilberto Rocha** 11/5/2011, 19:37

Gilberto Rocha

Gilberto Rocha: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010

Mensagem nº3

Re: [Resolvido]Carregar combo com datas

Mensagem Gilberto Rocha 11/5/2011, 19:37

é isso, só precisa adaptar, estou tentando.
Muito Obrigado

LEAM 11/5/2011, 19:45

LEAM

LEAM: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 696
Registrado : 02/04/2011

Mensagem nº4

Re: [Resolvido]Carregar combo com datas

Mensagem LEAM 11/5/2011, 19:45

mas so faraira até 2012
o ano da profecia
Maia

.................................................................................
Uma vida sem desafios não vale a pena ser vivida.

criquio 11/5/2011, 20:18

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº5

Re: [Resolvido]Carregar combo com datas

Mensagem criquio 11/5/2011, 20:18

Não vi o exemplo postado pelo amigo Assis, mas como eu me debrucei na elaboração de um aqui tambem, vou postar a forma como fiz. Criei uma combo chamada cboMeses e no evento "Ao carregar" do formulário, coloquei assim:

Dim nDatas As Date
For nDatas = "Janeiro/2000" To "Janeiro/2021"
Me.cboMeses.RowSourceType = "value list"
Me.cboMeses.AddItem Format(nDatas, "mmmm/yyyy")
nDatas = DateAdd("m", 1, nDatas)
Next nDatas

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.