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

3 participantes

    [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    avatar
    Alesk
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/04/2012

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Alesk 3/4/2014, 21:13

    Olá a todos!

    Pesquisei no forum e após algumas tentativas próprias estou completamente perdido.

    Preciso que a lista de um campo (que está no formato de caixa de listagem, chamado "NAulas") atualize conforme a informação obtida em outro campo, porém não estou conseguindo isso.
    O segundo campo citado (também é uma ListBox) chama-se "Período" e possui 3 opções de escolha: 1 mês, 6 meses e 11 meses.
    Preciso que a lista do campo "NAulas" se atualize da seguinte maneira:

    Período = 1 mês -> ListBox do campo NAulas = 1, 2, 4, 8 e 12
    Período = 6 meses -> ListBox do campo NAulas = 10, 21 e 42
    Período = 11 meses -> ListBox do campo NAulas = 21, 42, 84 e 126

    Tentei da seguinte forma:

    If Me.Período = "1 mês" then
    Me.Naulas.RowSource = "1";"2"; "4"; "8"; "12"

    End if

    Alguém pode ajudar por favor?
    Grato


    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Leandro 3/4/2014, 21:25

    Olá,
    Para isso você tem que definir o "Tipo de origem da linha" da ListBox como "Lista de valores" e o código pode ser assim:

    Select Case Me!Periodo.Value
    Case "1 mês"
    Me!Naulas.RowSource = "1;2;4;8;12"
    Case "6 meses"
    Me!Naulas.RowSource = "10;21;42"
    Case "11 meses"
    Me!Naulas.RowSource = "21;42;84;126"
    End Select

    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 692
    Registrado : 07/05/2010

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Jungli 3/4/2014, 21:39

     Razz Outra maneira Wink

    Naulas.RowSource = ""
    Naulas.RowSourceType = "Value List"
    If Me.Periodo = "1 mês" Then
    With Me.Naulas
    .AddItem "1"
    .AddItem "2"
    .AddItem "4"
    .AddItem "8"
    .AddItem "12"
    End With
    ElseIf Me.Periodo = "6 meses" Then
    With Me.Naulas
    .AddItem "10"
    .AddItem "21"
    .AddItem "42"
    End With
    ElseIf Me.Periodo = "11 meses" Then
    With Me.Naulas
    .AddItem "21"
    .AddItem "42"
    .AddItem "84"
    .AddItem "126"
    End With
    End If
    Me.Naulas.Requery
    avatar
    Alesk
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/04/2012

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Alesk 3/4/2014, 22:04

    Pessoal muito obrigado por responderem, porém ambos não funcionam.
    Após atualizar o campo período, a lista do campo "NAulas" fica vazio.

    O que pode ser?
    Devo enviar o formuário em questão para que seja analisado?
    avatar
    Alesk
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/04/2012

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Alesk 4/4/2014, 01:47

    Consegui descobrir o que estava impossibilitando todas as minhas tentativas em inserir valores à lista via código através de uma da mais antigas técnicas: fuçando.
    Para validar isso, a fonte do controle na guia dados da propriedade do campo não pode estar associada a nenhuma fonte.
    Agora td funciona.

    Obrigado aos amigos Leandro e Jungli.

    Tópico resolvido.
    avatar
    Alesk
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/04/2012

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Alesk 4/4/2014, 02:59

    Porém agora o campo não chama os dados salvos...
    Estaca zero!

    Ajuda???
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 692
    Registrado : 07/05/2010

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Jungli 4/4/2014, 12:02

    Envie o seu formulário  Wink 
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Leandro 4/4/2014, 12:04

    Como assim, "não chama os dados salvos"?
    Anexos
    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource AttachmentLista.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (8 Kb) Baixado 27 vez(es)

    avatar
    Alesk
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/04/2012

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Alesk 5/4/2014, 07:20

    Oi!
    Desculpem a demora, eu estava muito ocupado.

    O campo não atualiza a lista!
    Após a atualização do campo "Período" a lista do campo "NAulas" fica vazia.
    Assim que eu desvinculei a fonte do controle, o campo passou a funcionar corretamente, porém o campo não "puxa" os dados de referencia do banco de dados, pois a fonte do controle foi desabilitada.

    OBS.: Eu vou reduzir o tamanho do form para postar para vcs, pois vejo que há uma limitação para envio. O farei pouco após o meio dia.
    Obrigado
    avatar
    Alesk
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/04/2012

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Alesk 5/4/2014, 07:28

    Leandro,
    Acabei de checar o seu exemplo, e no caso, ambos os campos não possuem um banco de dados (tabela) como origem, portanto sem fonte do controle.
    No meu caso, os campos provém de uma tabela, pois preciso registrar os dados aplicados provenientes da lista, ou seja, após atualisar o campo "Período", e escolhido o valor da lista gerada, os dados dos mesmos precisam ficar salvos registro por registro.

    Há alguma forma de isso acontecer sem que a gambiarra corra solta? lol

    Muito grato!
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 692
    Registrado : 07/05/2010

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Jungli 7/4/2014, 12:28

    Entrando na conversa dos outros Wink

    fiz uma modificação colocando tabelas,
    Anexos
    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource AttachmentLista_Old.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 51 vez(es)
    avatar
    Alesk
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/04/2012

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Alesk 9/4/2014, 06:04

    Opa!
    Funcionou direitinho Jungli"
    Valeu mesmo!

    avatar
    Alesk
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/04/2012

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Alesk 10/4/2014, 00:11

    Tópico resolvido!
    Obrigado
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 692
    Registrado : 07/05/2010

    [Resolvido]variar valores em uma caixa de listagem  pelo RowSource Empty Re: [Resolvido]variar valores em uma caixa de listagem pelo RowSource

    Mensagem  Jungli 10/4/2014, 11:27

    Bom que conseguimos resolver, não nos esqueçamos dos agradecimentos ao mestre Leandro.

    O fórum agradece o retorno Wink.


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles

      Data/hora atual: 6/10/2022, 07:24