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


2 participantes

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

    avatar
    Adryadson
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]Código para inserir dados de uma tabela em outra com filtro

    Mensagem  Adryadson 12/7/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
    [Resolvido]Código para inserir dados de uma tabela em outra com filtro AttachmentQualificaçãoColab TESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (116 Kb) Baixado 2 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 13/7/2016, 02:07

    Selecione o Colaborador, e a Função... Apos atualizar ele preenche o subformulario.
    Anexos
    [Resolvido]Código para inserir dados de uma tabela em outra com filtro AttachmentQualificaçãoColab TESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 22 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!
    avatar
    Adryadson
    Novato
    Novato


    Respeito às regras : 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 Empty Muito obrigado!

    Mensagem  Adryadson 13/7/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
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 13/7/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!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:06