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


4 participantes

    Preencher campos em tabelas baseado em opção da caixa de combinação.

    lgdelai
    lgdelai
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 31/03/2012

    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  lgdelai 31/3/2012, 22:12

    Olá.

    Já dei uma lida no fórum, e não achei uma opção que desse certo para mim.
    ou não estou conseguindo baseado no alto grau das explicações.

    Confesso sou um pouco leigo em access mas sou muito esforçado e consegui
    fazer muita coisa sozinho, mas a partir daqui não consigo continuar,
    ficaria grato a quem puder me ajudar.

    Tenho um cursinho de informática e estou fazendo um banco de dados para
    controlar tudo, dados dos alunos, acompanhamento das aulas, impressão de
    certificado, boletos e tudo mais.

    No meu curso tenho varios pacotes, por exemplo, operador de micro, design gráfico,
    aux. de escritório.

    Cada pacote possui 5 cursos especificos, por exemplo:

    Operador de micro > possui, Windows 7, word 2007, excel 2007, Power point 2007 e internet explorer 7.

    Gostaria que quando estiver cadastrando um aluno, ao selecionar um PACOTE, os
    cursos correspondentes preenchessem os cinco campos destinados a eles.

    Eu já consegui fazer com que apareça na caixa de combinação Pacotes, só os pacotes
    que eu cadastrei previamente e nas 5 caixas de combinações CURSOS, TODOS os cursos
    que ofereço.

    E assim que escolho as opções na caixa de combinação, ela também é salva no campo
    correspondente na tabela com os dados dos alunos.

    Porém apesar de ter poucos pacotes, os cursos são MUITOS, e acaba atrasando o cadastro

    Queria então agilizar isto fazendo com que os 5 campos dos cursos fossem automaticamente
    preenchidos ao selecionar o pacote escolhido pelo aluno, também queria que isto não se perdesse
    e ficasse salvo junto com os dados dos alunos.

    Estou enviando em anexo meu banco de dados em questão, para quem quiser analizar

    é bem simples, com exceção desta função que quero implementar.

    Muito obrigado amigos.

    alcides
    alcides
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 17/04/2011

    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Re: Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  alcides 31/3/2012, 22:43

    Amigo.
    Tambem sou meio novato em access e dependo muito das ajudas dos forums,
    mas à princípio acho que voce vai ter que dar uma estruturada melhor
    na base (tabelas e relacionamentos)
    por exemplo: se cada pacote tem seus respectivos cursos, acho que devem estar em tabelas separadas e relacionadas.
    ví tambem que vc tem uma tabela com todo o restante dos dados misturados (alunos, responsavel, matricula, pagamentos e uma quantidade de numerações (acredito que sobre o andamento das aulas), etc.)

    enfim acho que voce deve primeiro dar uma estruturada no bd.

    um abraço
    lgdelai
    lgdelai
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 31/03/2012

    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Re: Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  lgdelai 1/4/2012, 21:57

    Alcides.
    realmente os numeros são para anotar as notas dos alunos.

    obrigado pela dica.

    mas no momento o meu banco de dados funciona para mim da maneira como está elaborado.

    já dei uma pesquisada e realmente li que teria que ter uma tabela para os cursos e outra para os pacotes, mas como não consegui compreender preferi deixar o meu banco de dados da forma com uso.

    Quem puder me ajudar e me sugerir dizendo onde devo modificar minhas tabelas e como devo proceder para obter o resultado desejado eu agradeço.

    Muito obrigado por ter tomado seu tempo para analisar minha situação.
    lgdelai
    lgdelai
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 31/03/2012

    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Re: Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  lgdelai 4/4/2012, 13:35

    Mais alguém tem alguma idéia?

    Já dei uma melhorada no programa mas não mexi neste recurso.

    segue em anexo.
    lgdelai
    lgdelai
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 31/03/2012

    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Re: Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  lgdelai 3/8/2013, 01:51

    Olá Gente.

    Estou aqui resuscitando o tópico.

    Vejam só, digitei no google a pergunta exatamente do mesmo jeitoque a mais de um ano e meio atrás, e
    caí no meu mesmo tópico kkk.

    Só que agora, estou com um conhecimento mais aprofundado.

    O que eu fiz. peguei o meu BD da informática e comecei outro do zero baseado nela para controlar
    meu outro negócio.

    Desta vez tentei seguir as boas práticas, tabelas relacionadas, nomes padronizados etc.

    Agora estou fazendo o oposto, estou modificando o BD de meu novo negócio para usar na informática.
    e me deparei com o mesmo problema que da primeira vez, só que agora já estou quase lá.

    Vejam o que eu preciso fazer:

    Tenho uma caixa de combinação onde vou selecionar o Pacote escolhido, e após isto o access
    deverá buscar em uma tabela chamada Cursos o conteúdo de um campo para preencher o campo
    Curso_01 do formulário contratos.

    porém não estou sabendo como fazer referencia a esta tabela. eu só sei fazer referencia a um campo
    que está no formulário pai ou subformulários mas em tabelas não.

    segue o código como está até o momento.

    o erro está ocorrendo na 3 linha onde tento referenciar a tabela, está quase certo pois
    ao substituir "Me.Parent.CURSOS![Op_micro_01]" POR "teste"

    o campo é prenchido com a palavra teste ao escolher o curso "Operador de Micro"

    ------------------------------------------------------------------------------------
    Private Sub Pacote_escolhido_tbcont_Change()
    If Me.Parent.CONTRATOS![Pacote_escolhido_tbcont] = "Operador de Micro" Then
    Me.Parent.CONTRATOS![Curso_01] = Me.Parent.CURSOS![Op_micro_01]
    End If
    End Sub
    --------------------------------------------------------------------------------------

    Obrigado a todos desde já.






    avatar
    Convidado
    Convidado


    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Re: Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  Convidado 3/8/2013, 02:38

    Boa Noite Luiz,

    Para o que você quer talvez a função DLookup (ou DPesquisa) funcione. Tipo:

    DLookup("[TeuCampo]", "TuaTabela", "[Critério] = 1")

    Daria para você usar o evento Após Atualizar da tua combo para trazer a informação da sua tabela.

    Se tiver dificuldade na função dá uma olhada na Ajuda do access. Persistindo a dúvida posta novamente que com certeza você será orientado.


    Nivaldo.
    lgdelai
    lgdelai
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 31/03/2012

    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Re: Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  lgdelai 3/8/2013, 06:44

    Olá Nivaldo,

    Muito obrigado, deu certinho.

    Vou pesquisar mais a respeito desta função, parece ser muito útil.

    veja como ficou meu código.

    ------------------------------------------------------
    Private Sub Pacote_escolhido_tbcont_AfterUpdate()
    If Me.Parent.CONTRATOS![Pacote_escolhido_tbcont] = "Operador de Micro" Then
    Me.Parent.CONTRATOS![Curso_01] = DLookup("Op_micro_01", "CURSOS")
    Me.Parent.CONTRATOS![Curso_02] = DLookup("Op_micro_02", "CURSOS")
    Me.Parent.CONTRATOS![Curso_03] = DLookup("Op_micro_03", "CURSOS")
    Me.Parent.CONTRATOS![Curso_04] = DLookup("Op_micro_04", "CURSOS")
    Me.Parent.CONTRATOS![Curso_05] = DLookup("Op_micro_05", "CURSOS")
    End If

    If Me.Parent.CONTRATOS![Pacote_escolhido_tbcont] = "Design Gráfico" Then
    Me.Parent.CONTRATOS![Curso_01] = DLookup("Des_grafico_01", "CURSOS")
    Me.Parent.CONTRATOS![Curso_02] = DLookup("Des_grafico_02", "CURSOS")
    Me.Parent.CONTRATOS![Curso_03] = DLookup("Des_grafico_03", "CURSOS")
    Me.Parent.CONTRATOS![Curso_04] = DLookup("Des_grafico_04", "CURSOS")
    Me.Parent.CONTRATOS![Curso_05] = DLookup("Des_grafico_05", "CURSOS")
    End If

    If Me.Parent.CONTRATOS![Pacote_escolhido_tbcont] = "Web Design" Then
    Me.Parent.CONTRATOS![Curso_01] = DLookup("Web_design_01", "CURSOS")
    Me.Parent.CONTRATOS![Curso_02] = DLookup("Web_design_02", "CURSOS")
    Me.Parent.CONTRATOS![Curso_03] = DLookup("Web_design_03", "CURSOS")
    Me.Parent.CONTRATOS![Curso_04] = DLookup("Web_design_04", "CURSOS")
    Me.Parent.CONTRATOS![Curso_05] = DLookup("Web_design_05", "CURSOS")
    End If

    If Me.Parent.CONTRATOS![Pacote_escolhido_tbcont] = "Auxiliar de Escritório" Then
    Me.Parent.CONTRATOS![Curso_01] = DLookup("Aux_escritorio_01", "CURSOS")
    Me.Parent.CONTRATOS![Curso_02] = DLookup("Aux_escritorio_02", "CURSOS")
    Me.Parent.CONTRATOS![Curso_03] = DLookup("Aux_escritorio_03", "CURSOS")
    Me.Parent.CONTRATOS![Curso_04] = DLookup("Aux_escritorio_04", "CURSOS")
    Me.Parent.CONTRATOS![Curso_05] = DLookup("Aux_escritorio_05", "CURSOS")
    End If

    If Me.Parent.CONTRATOS![Pacote_escolhido_tbcont] = "Auxiliar de Vendas" Then
    Me.Parent.CONTRATOS![Curso_01] = DLookup("Aux_vendas_01", "CURSOS")
    Me.Parent.CONTRATOS![Curso_02] = DLookup("Aux_vendas_02", "CURSOS")
    Me.Parent.CONTRATOS![Curso_03] = DLookup("Aux_vendas_03", "CURSOS")
    Me.Parent.CONTRATOS![Curso_04] = DLookup("Aux_vendas_04", "CURSOS")
    Me.Parent.CONTRATOS![Curso_05] = DLookup("Aux_vendas_05", "CURSOS")
    End If
    End Sub
    ------------------------------------------------------
    avatar
    Convidado
    Convidado


    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Re: Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  Convidado 3/8/2013, 11:14

    Bom dia Luiz.

    Obrigado pelo retorno. O fórum agradece.


    Nivaldo.
    avatar
    suporte_eficaz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 02/11/2012

    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Sem ANEXOS de exemplos

    Mensagem  suporte_eficaz 14/10/2015, 16:27

    A graça (ou a falta dela) é que NÃO HAVER ANEXOS algum nesse tópico, do qual supostamente "o autor" demonstra suas dificuldades. Ficando então, sem ter como ajuda-lo, tão pouco os demais do Fórum. Cujo também poderiam se beneficiar ou aprender com esta duvida, da dificuldade em sim. (criou falsas expectativas para uma possível resolução). Deixando o tópico INCOMPLETO e SEM SENTIDO já que a "resolução" não foi dada a todos. Infelizmente!!


    Última edição por suporte_eficaz em 12/3/2016, 16:45, editado 1 vez(es)
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1012
    Registrado : 23/09/2011

    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Re: Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  cleverson_manaus 17/10/2015, 21:50


    faltou também finalizar o tópico


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    Conteúdo patrocinado


    Preencher campos em tabelas baseado em opção da caixa de combinação. Empty Re: Preencher campos em tabelas baseado em opção da caixa de combinação.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/5/2024, 16:50