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]variar valores em uma caixa de listagem pelo RowSource

    Compartilhe

    Alesk
    Novato
    Novato

    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

    Mensagem  Alesk em Qui 03 Abr 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Leandro em Qui 03 Abr 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


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




    Algumas soluções em access



    Menu Treeview

    Restringir valores já lançados em caixa de combinação - Texto

    Restringir valores já lançados em caixa de combinação - Valores numéricos



    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Jungli em Qui 03 Abr 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

    Alesk
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alesk em Qui 03 Abr 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?

    Alesk
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alesk em Sex 04 Abr 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.

    Alesk
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alesk em Sex 04 Abr 2014, 02:59

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

    Ajuda???

    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Jungli em Sex 04 Abr 2014, 12:02

    Envie o seu formulário  Wink 

    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Leandro em Sex 04 Abr 2014, 12:04

    Como assim, "não chama os dados salvos"?
    Anexos
    Lista.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (8 Kb) Baixado 16 vez(es)


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




    Algumas soluções em access



    Menu Treeview

    Restringir valores já lançados em caixa de combinação - Texto

    Restringir valores já lançados em caixa de combinação - Valores numéricos



    Alesk
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alesk em Sab 05 Abr 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

    Alesk
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alesk em Sab 05 Abr 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Jungli em Seg 07 Abr 2014, 12:28

    Entrando na conversa dos outros Wink

    fiz uma modificação colocando tabelas,
    Anexos
    Lista_Old.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 34 vez(es)

    Alesk
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alesk em Qua 09 Abr 2014, 06:04

    Opa!
    Funcionou direitinho Jungli"
    Valeu mesmo!


    Alesk
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alesk em Qui 10 Abr 2014, 00:11

    Tópico resolvido!
    Obrigado

    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Jungli em Qui 10 Abr 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: Dom 04 Dez 2016, 20:23