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]Código para inserir dados de uma tabela em outra com filtro

    Compartilhe

    Adryadson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 22/10/2014

    [Resolvido]Código para inserir dados de uma tabela em outra com filtro

    Mensagem  Adryadson em Ter 12 Jul 2016, 21:34

    Boa tarde amigos
    Tenho uma dúvida e peço ajuda do Fórum.
    Estou montando um banco de dados onde irei qualificar colaboradores baseado nos treinamentos realizados.

    As tabelas são: Colaboradores, Funções, Treinamentos e Qualificação e Status do Treinamento.
    Criei as tabelas e já fiz os relacionamentos, sendo que existe um formulário de cadastro de função (ex: contador, auditor) e seus respectivos treinamentos exigidos para a função cadastrada.
    Minha dúvida é a seguinte.

    No formulário Qualificação ao selecionar o Colaborador e a Função (Cbo) que desejo qualificar, preciso que o access insira os treinamentos já cadastrados na tabela de Treinamentos para a Tabela de Status (subformulário do Formulário Qualificação), para que eu possa qualificar cada colaborador.

    Tentei realizar um código INSERT INTO ao atualizar a cbo IDFunção mas contem erros, pois ele insere apenas uma linha em branco na tabela Status. Deixei o código para que entenda onde deve ir os registros inseridos.

    Desde já agradeço pela ajuda.
    Anexos
    QualificaçãoColab TESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (116 Kb) Baixado 2 vez(es)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2314
    Registrado : 14/08/2013

    Re: [Resolvido]Código para inserir dados de uma tabela em outra com filtro

    Mensagem  FabioPaes em Qua 13 Jul 2016, 02:07

    Selecione o Colaborador, e a Função... Apos atualizar ele preenche o subformulario.
    Anexos
    QualificaçãoColab TESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 6 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Adryadson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 22/10/2014

    Muito obrigado!

    Mensagem  Adryadson em Qua 13 Jul 2016, 15:21

    Meu amigo.
    Muito obrigado por partilhar seus conhecimentos comigo.
    Era isso mesmo que eu precisava.
    Agradeço muito mesmo.
    Deus o abençoe!
    Parabéns pela rapidez que me respondeu e resolveu o meu problema.
    Grande abraço!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2314
    Registrado : 14/08/2013

    Re: [Resolvido]Código para inserir dados de uma tabela em outra com filtro

    Mensagem  FabioPaes em Qua 13 Jul 2016, 15:57

    Bacana meu amigo, que bom que deu certo! Ate a próxima!


    Postando o Codigo, pois minha cota de Anexo ta no Limite!

    Código:
    Private Sub IdFunção_AfterUpdate()
    '------------------------------------------------------------------'
    '                          Criado por Fabio Paes                '
    '            Para o MaximoAccess em 12/07/2016      '
    '------------------------------------------------------------------'
    Dim DB As Database
    Dim rs As DAO.Recordset
    Dim rs1 As DAO.Recordset

    Set DB = CurrentDb()


        Set rs = DB.OpenRecordset("SELECT * FROM treinamentos WHERE [Função] = " & Me.[IdFunção] & "") ' Tabela onde tem os Dados
        Set rs1 = DB.OpenRecordset("SELECT * FROM Status") ' Tabela que receberá os dados
        'Percorre a Tabela de Origem dados
        Do While Not rs.EOF
            'Inicia a Gravação dos dados
            rs1.AddNew
            rs1("IdQualific") = Me.idQualificacao
            rs1("IdFunção") = Me.IdFunção
            rs1("IdTreinamentos") = rs("idTreinamento")
            rs1("Tipo") = rs("Tipo")
            rs1.Update
        rs.MoveNext
        Loop
        'Fecha as conexoes
        rs.Close
        rs1.Close
        DB.Close
     'Recarrega os dados do Formulario
    Me.Recalc
    End Sub


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Ter 06 Dez 2016, 05:43