criar tabela de histórico

bom dia a todos,
mais uma vez pedindo um help!
já estou quase na recta final da bd com ajuda de todos aqui no fórum, estou com dificuldade de criar históricos de levantamento e devolução dos terminais rf. já dei uma olhada aqui no fórum mas não encontrei um mais próximo pra fazer uma adaptação.

é o seguinte: já criei uma tabela chamada "tbl_historico_levantamento_e_devolucao" com seu respectivos campos: Id_Hist, nome interno (é o terminal rf levantado), Data_Levantamento, Hora_levantamento, nome de colaborador (que levantou), Departamento (do colaborador que levantou), seccao (do colaborador que levantou), funcao (do colaborador que levantou), Hora_devolucao (a hora que o colaborador devolveu), Nome de colaborador (que devolveu o terminal rf "nome interno"). gostaria que toda vez que faço levantamento no "frm_levantamento" ou devolução "frm_devolucao" ao clicar no botão salvar, insira os dados em outra tabela no "tbl_historico_levantamento_e_devolucao" .
onde a partir desta tabela de histórico criarei uma consulta buscando por data de levantamento.

obs: tendo em conta que um terminal rf pode ser levantado e devolvido e posteriormente ser levantado novamente no mesmo dia, todavia, o terminal rf já existente ou o anterior não pode ser apagada.

desculpe pelo texto.
agradeço desde ajuda de todos.

Crie uma consulta acréscimo e faça com que os dados que desejar sejam inseridos nesta tabela.

https://support.office.com/pt-br/article/Adicionar-recursos-a-uma-tabela-usando-uma-consulta-acr%C3%A9scimo-71cd4fe3-c2d7-4856-a0c8-a2638ccf4ad0

muito obrigado pela dica amigo xoxe, é que com este método todo vez que eu quiser fazer uma consulta, copia repetindo os registos existes + o(s) adicionado(s).
gostaria mesmo que ao clicar no botão salvar do frm_levantamento fizesse isso automaticamente. tem como fazer isso?
alguém pode me ajudar nessa situação.
obrigado

sff, help me.

up

Matheus Chimboto É importante mantermos a AUTORIA dos Códigos, bem como os Comentários e as ATUALIZAÇÕES dos mesmo, a fim de facilitar o entendimento e saber que o fez...





Segue o codigo atualizado... Apague o Comando do botão salvar do seu Formulário de Levantamento, e coloque este:

Código:

Private Sub Guardar_Click()
Call EliminaRegistosAnteriores
'-------------------------------------'
'Criado por Fabio Paes em 27/05/2016  '
'Livre para o Aprendizado            '
'Atualizado 29/07/2016 para incluir o '
'Histórico na tabela de historico    '
'-------------------------------------'

'Declaração das Variaveis
Dim DB As Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim rsHist As DAO.Recordset

Set DB = CurrentDb()

    'Percorre a Tabela e Selecoina os Dados
    Set rs = DB.OpenRecordset("SELECT * FROM [Tbl_Detalhes de Levantamento] WHERE ID_LEV = " & Me.ID_LEV & "")
  'Abre a tabela de historico para inserir os dados
    Set rsHist = DB.OpenRecordset("Tbl_Historico_Levantamento_e_Devolucao")
    'Define a quantidade de Vez que ira Repetir (Loop)
    Do While Not rs.EOF
   
    'Seleciona TERMINAL RF Para atualizar o Estado, Compara o ID_RG com o que foi Lançaod no Subformulario
    Set rs1 = DB.OpenRecordset("SELECT * FROM [TERMINAL RF] WHERE [ID_RF] = " & rs![NOME INTERNO] & "")
        'Inicia a Atualização dos Dados.
        rs1.Edit
        rs1("Estado") = "Levantado"
        rs1.Update
       
            'Insere os dados na tabela Histórico
            rsHist.AddNew
            rsHist("Nome Interno") = rs![NOME INTERNO]
            rsHist("Data_Lev") = Me.[DATA]
            rsHist("Hora_Lev") = Me.HORA
            rsHist("Nome de Colaborador") = Me.txtcomboColaborador.Column(1)
            rsHist("Departamento") = Me.DEPARTAMENTO
            rsHist("Seccao") = Me.SECCAO
            rsHist("Funcao") = Me.FUNCAO
            rsHist("Seccao") = Me.SECCAO
            rsHist.Update
       
    rs.MoveNext
    Loop
   
    'Fecha as conexoes
    rs.Close
    rs1.Close
    rsHist.Close
    Set rs = Nothing
    Set rs1 = Nothing
    Set hist = Nothing
    DB.Close
End Sub


Obs: Mude o Campo Nome Interno da tabela de historico, de Texto para Numero, e faça igual esta o Campo: NOME INTERNO da tabela Tbl_Detalhes de Levantamento.

mestre FabioPaes boas pela advertência!!!

maravilha, está a funcionar mestre, implementei também já no botão salvar do formulário "frm_devolucao". mas gostaria que ao devolver o terminal rf levantado, isto é, na tabela "Tbl_Historico_Levantamento_e_Devolucao" inserisse só nos campos: hora_dev e nome de colaborador_dev na mesma linha de quem levantou assim sucessivamente.
tipo assim por exemplo: mateus levantou o terminal rf "113_rf10" e às x horas a maria devolveu, conforme os campos da tabela "Tbl_Historico_Levantamento_e_Devolucao" (nota: na tabela de histórico tem descrição de cada campo).

é possível!?
grato.

O problema amigo, e que da forma como esta montado seu sistema, nao tem como eu saber de qual LEVANTAMENTO estamos falando...

Me diga como identificar e monto pra vc...

Veja bem... Nesse codigo, eu estou partindo da ideia de que a MESMA pessoa que Pegou o material ira DEVOLVER, se nao for isso dara erro na atualização...

Mude o Codigo do botao salvar do formulario de Devolução para este:

Código:

Private Sub Guardar_Click()
Call EliminaRegistosAnterioresDev
'-------------------------------------'
'Criado por Fabio Paes em 27/05/2016  '
'Livre para o Aprendizado            '
'Atualizado 29/07/2016 para incluir o '
'Histórico na tabela de historico    '
'-------------------------------------'
'Declaração das Variaveis
Dim DB As Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim rsHist As DAO.Recordset

Set DB = CurrentDb()

    'Percorre a Tabela e Selecoina os Dados
    Set rs = DB.OpenRecordset("SELECT * FROM [Tbl_Detalhes de Devolução] WHERE ID_DEV = " & Me.ID_DEV & "")
   
    'Define a quantidade de Vez que ira Repetir (Loop)
    Do While Not rs.EOF
   
    'Seleciona TERMINAL RF Para atualizar o Estado, Compara o ID_RG com o que foi Lançaod no Subformulario
    Set rs1 = DB.OpenRecordset("SELECT * FROM [TERMINAL RF] WHERE [ID_RF] = " & rs![NOME INTERNO] & "")
        'Inicia a Atualização dos Dados.
        rs1.Edit
        rs1("Estado") = "Devolvido"
        rs1.Update
            'Seleciona o Registro da tabela de historico para EDIÇÃO e atualiza com os dados da devolução
            Set rsHist = DB.OpenRecordset("SELECT * FROM Tbl_Historico_Levantamento_e_Devolucao WHERE [Nome de Colaborador ]= '" & Me.txtcomboColaborador.Column(1) & "' AND [Nome Interno] = " & rs1![ID_RF] & "")
            rsHist.Edit
            rsHist("Hora_Dev") = Me.HORA
            rsHist("Nome de Colaborador_Dev") = Me.txtcomboColaborador.Column(1)
            rsHist.Update
    rs.MoveNext
    Loop
    'Fecha as conexoes
    rs.Close
    Set rs = Nothing
    rs1.Close
    Set rs1 = Nothing
    rsHist.Close
    Set rsHist = Nothing
    DB.Close
    Set DB = Nothing
End Sub

a ideia correta é que qualquer pessoa ou colaborador pode devolver o terminal rf ou o material.

Entao remova a condicao Nome comaborador =.... ate o and.

Nao fica 100% mas e o maximo q conseguira...


Pois imagina so, tem o mesmo terminar cautelado para duas pessoas diferentes sem a baixa...

Qnd lancar a primeira Devolucao ele atualiza nos dois registros...

é isso ai mestre o grande problema que estou tendo, mas de qualquer forma muitíssimo obrigado mestre FabioPaes.