MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Criar caixas de combinação em cascata

    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido]Criar caixas de combinação em cascata Empty [Resolvido]Criar caixas de combinação em cascata

    Mensagem  julianovv em 16/5/2012, 19:16

    Caixas de combinação em cascata

    Boa tarde. Tenho um sistema de gerenciamento de ordens de serviço (Controle de OS). Nele são cadastradas as OS (projetos mecânicos) e cada um é dado um projetista (ou vários) que executará o projeto.
    As OS possuem informações únicas como os itens e sub-itens ou, para ficar mais claro, atividades para cada projeto que cada projetista seleciona depois no apontamento de horas. Os sub-itens seriam informações relacionadas aos itens (e não a OS).

    Ex:

    OS | Item | Sub-item

    1002-12 | Oficialização | Estudo
    Desenho para Sourcing
    Execução


    Outro sistema, o Apontamento de Horas, puxa pela rede os dados das OS, itens e sub-itens e o projetista lança suas horas.

    Quando ele escolhe a OS na primeira caixa de combinação, a segunda caixa exibe os itens relacionados desta OS e na terceira caixa aparecem os sub-itens relacionados ao item.

    A parte da filtragem funcionou mas o formulário ficou pesado para abrir e os dados já inseridos ficaram sumindo e aparecendo.

    Seguem os códigos que usei. Eles fizeram com que as caixas ficassem em branco até que fossem clicadas e o usuário não visualizaria os dados inseridos das OS.

    Na caixa de combinação das OS (cboNumOS) no evento "ao receber foco":

    Private Sub cbNumOS_GotFocus()
    ' Limpa a combo cboItens toda
    ' vez que cbNumOS recebe o foco.
    cboItens = Null

    End Sub


    Na caixa de combinação dos Itens (cboItens), no evento "ao receber foco"

    Private Sub cboItens_GotFocus()
    ' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    cboItens.Requery

    End Sub


    Na caixa de combinação dos Sub-itens (cboSubItens), no evento "ao receber foco".

    Private Sub cboSubItens_GotFocus()
    ' Refaz a consulta origem dos
    ' registros sempre que receber o foco.
    cboSubItens.Requery

    End Sub


    Se alguém souber onde está o erro será muito bem vindo.

    Rolling Eyes


    Última edição por julianovv em 6/6/2012, 15:49, editado 2 vez(es)
    avatar
    Convidad
    Convidado

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  Convidad em 16/5/2012, 20:43

    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido]Criar caixas de combinação em cascata Empty Re: Criar caixas de combinação em cascata

    Mensagem  julianovv em 17/5/2012, 20:46

    Obrigado. Vou dar uma estudada e mando um retorno.

    Wink
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido]Criar caixas de combinação em cascata Empty Re: Criar caixas de combinação em cascata

    Mensagem  julianovv em 6/6/2012, 15:44

    Bom dia! Eu fiz o teste aqui e só funcionou a filtragem. Os campos quando o formulário é aberto ficam em branco até que seja escolhido algum item na lista. Para uma tabela que é acessada pela rede, com um servidor meio capenga, a abertura também ficou lenta.
    Vou fechar o tópico e abro outro posteriormente.
    Obrigado!

    Wink
    avatar
    nilson.cordeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 29/08/2016

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  nilson.cordeiro em 10/10/2016, 21:06

    Amigos, estou quebrando a cabeça com essa problema que sei ser bem simples. Não consigo fazer duas combobox em cascata. Já tentei de várias formas seguindo diferentes tutorias. Inclusive daqui. Mas a segunda combo simplesmente não filtra. Aliás, retorna sempre vazia. Cheguei a fazer um BD só pra seguir o tutorial. Nesse BD de exemplo funcionou perfeitamente. Mas no meu BD real não funciona. Digitei a seguinte busca SQL na propriedade Origem da Linha:
    SELECT TblCategoriaDoBem.NomeSubCategoria, TblCategoriaDoBem.NomeCategoria FROM TblCategoriaDoBem WHERE (((TblCategoriaDoBem.NomeSubCategoria)=[Formulários]![FrmProcessosTombamento]![CboCategoria]));


    No evento Após Atualizar da primeira Combo coloquei

    Me.[CboSubCategoria].Requery


    Só que a segunda combo retorna sempre com a lista vazia.

    Onde estou errando? Tem alguma outra forma mais simples de fazer combobox em cascata?
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  julianovv em 10/10/2016, 22:48

    Olá, não avancei tanto em combos em cascata. Uso muito a simples de uma expansão apenas.
    Segue o modelo.

    Juliano
    Smile
    Anexos
    [Resolvido]Criar caixas de combinação em cascata AttachmentCombosExpandem.zip
    Segue um modelo simples zipado.
    Você não tem permissão para fazer download dos arquivos anexados.
    (13 Kb) Baixado 38 vez(es)


    .................................................................................
    Juliano

    Uso o Access 2007 no XP Professional SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    avatar
    nilson.cordeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 29/08/2016

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  nilson.cordeiro em 11/10/2016, 15:49

    Olá, Juliano.

    Já tinha tentando essa solução mas tive o mesmo problema. A segunda Combo retorna sempre sem nenhum valor. Não consegui entender onde está o erro pois em outro BD que fiz apenas para testar opções de combo em cascata funcionou. Quando passei para o BD que estou desenvolvendo apareceu o problema.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  julianovv em 12/10/2016, 04:30

    Oi Nilson, tenta ver se essa videoaula ajuda. Talvez possa estar faltando alguma coisa nas consultas das caixas.
    Espero que ajude.

    Access - Combos Relacionadas.zip

    Wink


    .................................................................................
    Juliano

    Uso o Access 2007 no XP Professional SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    avatar
    nilson.cordeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 29/08/2016

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  nilson.cordeiro em 14/10/2016, 16:26

    Segui esses passos (que não é muito diferente de outro tutorial que vi aqui) e ainda continua com o mesmo problema. Não entendo onde está o erro pois eu fiz em outro BD e funcionou perfeitamente!
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  julianovv em 15/10/2016, 18:12

    Nilson, fiz uma versão compacta do sistema que uso para cadastro de imagens. Deixei alguns dados para compor o resultado das caixas.
    Ela é baseada em um modelo que baixei mas perdi o arquivo.
    Espero que ajude.

    Wink
    Anexos
    [Resolvido]Criar caixas de combinação em cascata AttachmentModelo Combox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (58 Kb) Baixado 53 vez(es)


    .................................................................................
    Juliano

    Uso o Access 2007 no XP Professional SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    avatar
    nilson.cordeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 29/08/2016

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  nilson.cordeiro em 17/10/2016, 14:47

    Bom dia Juliano!

    Vou dar uma olhada e ver se consigo adaptar. Muito obrigado pela disposição e ajuda. Abraços
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  julianovv em 17/10/2016, 15:47

    Beleza! Não há de quê. Eu também vou treinando porque não é sempre que preciso.

    Smile


    .................................................................................
    Juliano

    Uso o Access 2007 no XP Professional SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile

    Conteúdo patrocinado

    [Resolvido]Criar caixas de combinação em cascata Empty Re: [Resolvido]Criar caixas de combinação em cascata

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 14:06