MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Sequência numérica em uma caixa de combinação

    novatoVBA
    avatar
    novatoVBA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 20/01/2017
    • Mensagem nº1

    [Resolvido]Sequência numérica em uma caixa de combinação Empty [Resolvido]Sequência numérica em uma caixa de combinação

    Mensagem  novatoVBA 23/1/2017, 18:35

    Boa tarde, pessoal. Estou precisando definir o valor da minha caixa de combinação, iniciando em 2017 e terminando em 9999. Como eu faço isso sem precisar digitar em cada linha o valor 2017, 2018, 2019... e daí por diante até chegar em 9999. Qual o código me ajudaria nessa questão?
    Obrigado!


    Última edição por novatoVBA em 23/1/2017, 21:24, editado 1 vez(es)
    • Ir para o topo
    Noobezinho
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012
    • Mensagem nº2

    [Resolvido]Sequência numérica em uma caixa de combinação Empty Re: [Resolvido]Sequência numérica em uma caixa de combinação

    Mensagem  Noobezinho 23/1/2017, 20:55

    Aqui está o código que deve ser colocado no evento ao abrir do formulário.

    Veja que coloquei para incrementar os anos até o ano 3000, o que é muito,

    pois acredito que esses computadores já estarão obsoletos, quanto mais

    até 9999.



    Dim i As Integer
    Me.Mcombo.RowSourceType = "Value list"
    For i = 2017 To 3000
       Me.Mcombo.AddItem Item:=i

     
    Next i

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    • Ir para o topo
    novatoVBA
    avatar
    novatoVBA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 20/01/2017
    • Mensagem nº3

    [Resolvido]Sequência numérica em uma caixa de combinação Empty [Resolvido]Sequência numérica em uma caixa de combinação

    Mensagem  novatoVBA 23/1/2017, 21:25

    Muito Obrigado, solucionou a minha dificuldade totalmente. cheers
    • Ir para o topo
    Noobezinho
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012
    • Mensagem nº4

    [Resolvido]Sequência numérica em uma caixa de combinação Empty Re: [Resolvido]Sequência numérica em uma caixa de combinação

    Mensagem  Noobezinho 23/1/2017, 21:41

    Ótimo !

    Valeu pelo retorno !


    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº5

    [Resolvido]Sequência numérica em uma caixa de combinação Empty Re: [Resolvido]Sequência numérica em uma caixa de combinação

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 00:43