[Resolvido]Tabelas no Banco de Dados

Prezados, bom dia!
Outra vez recorro a valiosa ajuda do grupo. Trabalho em uma grande empresa de telefonia e montei um banco de dados para controlarmos as falhas na rede de backbone. Toda falha na rede é aberto um Trouble Ticket e em seguida inserido no banco de dados para termos o controle. Durante o tratamento do Trouble Ticket, ele fica no banco de dados com status PENDENTE. Quando a falha é normalizada, o status do Trouble Ticket é mudado para NORMALIZADO ficando tudo na mesma tabela de consulta. É possível fazer um script que quando eu mudar o status de uma falha de PENDENTE para NORMALIZADO ele seja aguardado em outra tabela separada automaticamente, ou seja, no meu banco de dados eu teria uma tabela só com o TT com status PENDENTE e outra tabela com status NORMALIZADO.
Desde já, muito grato.
Abs,

No Evento Apos atualizar do seu Campo, onde muda para NORMALIZADO coloque:

Código:


Dim DB As Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset

Set DB = CurrentDb()


    Set rs = DB.OpenRecordset("SELECT * FROM Tb1 WHERE ID = " & Me.ID & " ") ' Tabela onde tem os Dados filtrando pelo ID (registro atual formulario)
    Set rs1 = DB.OpenRecordset("Tb2") ' Tabela que receberá os dados
  
       'Inicia a Gravação dos dados na Tb2
        rs1.AddNew
        rs1("Campo1") = rs("Campo1")
        rs1("Campo2") = rs("Campo2")
        rs1("Campo3") = rs("Campo3")
        rs1.Update
    'Fecha as conexoes
    rs.Close
    rs1.Close
    DB.Close

'Exclui o Registro Copiado
CurrentDb.Execute "DELETE * FROM Tb1 WHERE ID = " & Me.Id & " "
Me.Requery



Obs:

Tb1 = A tabela onde tem os dados para serem Movidos.
Tb2 = A tabela onde receberá os dados movidos da Tabela À cima.


"Campo1", "Campo2" e " Campo3" = São os nomes dos campos da Tabela que receberão os dados movidos.

Adapte para seu Sistema.

Faça esse teste em um Arquivo de Backup.

Oi Amigo,

Inicialmente, obrigado pela rápida resposta. Estou longe do computador neste momento mas assim que for possível, irei testar a sua sugestão.
Muito obrigado.

Abs

Fala amigo.

Vou começar a trabalhar na sua dica agora. O manterei informado sobre o resultado.

Abs,

Prezado amigo, boa noite!

Não consegui usar a sua sugestão porque onde eu mudo o status de PENDENTE para NORNALIZADO é uma Caixa de Listagem. Talvez para você entender melhor, seja necessário eu enviar o banco de dados. Como eu poderia enviá-lo de forma só você poderia visualizá-lo?
Não consegui responder essa mensagem como "Mensagem Privada".
muito obrigado pela sua ajuda.
Abs,

Manda MP com o Link do seu arquivo. Me explique qual formulario etc... Lembre-se Eu nao conheço seu APP...

Link MP : https://www.maximoaccess.com/privmsg?mode=post&u=22368


Outa coisa, Falei pra colocar no Evento apos atualizar, mas vc pode colocar um Botao pra isso amigo... Talvez fique ate melhor...

Ficou assim o Codigo: No evento Apos atualizar do Campo Status:

Código:


Private Sub Status_AfterUpdate()

If Me.Status = 2 Or Me.Status = 3 Then
If MsgBox("Atenção, vc esta Finalizando e Movendo este chamado! Deseja continuar?", vbYesNo + vbCritical, "Atenção!!!") = vbYes Then

Dim F As Integer
F = Me.CodDados

Dim DB As Database
Dim rs As DAO.Recordset

Set DB = CurrentDb()


    Set rs = DB.OpenRecordset("SELECT * FROM Tbl_DadosCanceladosNormalizados") ' Tabela que recebrá os dados
 
        'Lista dos Campos com seus respectivos Valores
        rs.AddNew
        rs("NTT") = Me.NTT
        rs("DataHora") = Me.DataHora
        rs("Descrição da falha") = Me.Descrição_da_Falha
        rs("Status") = Me.Status.Value
        rs("Localidade") = Me.Localidade
        rs("Tratamento da Falha") = Me.Tratamento_da_Falha
        rs("Tipo de Falha") = Me.Tipo_de_Falha
        rs("Fibra") = Me.Fibra
        rs("Chamado Provedor") = Me.Chamado_Provedor
        rs("Id do Provedor") = Me.ID_do_Provedor
        rs("Observações") = Me.Observações
        rs.Update
    'Fecha as conexoes
    rs.Close
    DB.Close

'Exclui o Registro Copiado
 DoCmd.GoToRecord , , acNext ' move para o Proximo Registro para Nao apresentar mensagem de erro qnd excluir o registro
CurrentDb.Execute "DELETE * FROM Tbl_Dados WHERE CodDados = " & F & ""
Me.Requery
End If
End If
End Sub


O que ele faz? Se o Status For 2 ou 3 (Cancelado ou Normalizado), ele pede confirmação antes de Mover o Chamado para Outra Tabela.

Cara,

Valiosa ajuda. Muito obrigado mesmo. Vou agora testar no Banco de Dados principal.

Muito obrigado.