[Resolvido]Geração automática de registro em tabela

Boa noite, Amigos.
Estou tentando montar um programa de gerenciamento de Ordens de Serviço de Manutenções Sistematizadas, baseadas em periodicidades.

Cada Ordem de Serviço deve ter uma periodicidade (em dias) para ser realizada, conforme eu cadastro a data de fechamento da OS, um novo registro deve ser gerado na tabela, com a mesma descrição de OS, porém, com um novo número e nova data prevista baseada na periodicidade (Data de fechamento + número de dias da periodicidade).

Alguém sabe como fazer isso?

Desde já agradeço

Ola bom dia !

poderia disponibilizar o projeto para melhor ajuda-lo ?

Boa noite.
Segue um exemplo abaixo:

OS  Desc. OS                                  Máquina    Periodicidade     Data Prevista Resp.         Data Fechamento
1011           Manutenção Sistema Pneumático        CBO-01        30 dias              05/06/15              Olaor         10/06/15
1012           Manutenção Conjunto Esteira              QTO-01       45 dias               06/06/15             Zeca          
1013           Lubrificação                                       CBO-02       15 dias               06/06/15             Olaor          
1014           Manutenção Sistema Elétrico               QTO-01       60 dias              07/06/15              Zeca        
1015           Manutenção Sistema Pneumático        CBO-01        30 dias              10/07/15                      


Ex. A intenção, e de que quando eu digitar a Data de Fechamento da OS 1011, seja gerado automaticamente uma nova OS, com outro número, porém com o mesmos dados da OS fechada, com uma nova data prevista, baseada na periodicidade (10/06/15 + 30 dias = 10/07/15).

Desde já agradeço

Bom dia, Amigos.
Segue o Banco de dados anexo, para facilitar o entendimento.

Preciso que ao clicar no botão "GERAR NOVA OS", seja criada na tabela "TBOS" um novo registro com os dados do registro que foi encerrado, entretanto com uma nova Data Prevista, baseada na soma da Data Encerramento + Periodicidade.

Desde já agradeço a ajuda.

Att. Ilson

Olá, teste com o seguinte código:

Código:

Private Sub CmdGeraOS_Click()
   
   If IsNull(Me.DtEncerramento) Then 'verifica se tem data fechamento
       MsgBox "Não pode agendar, falta data fechamento", vbCritical, ""
       Exit Sub
   Else
       CurrentDb.Execute "INSERT INTO TBOS ( DescOs, Maquina, Periodicidade, DtPrevista, Responsavel ) SELECT " _
       & "'" & Me.DescOs & "'," _
       & "'" & Me.Maquina & "'," _
       & "'" & Me.Periodicidade & "'," _
       & "'" & Me.DtEncerramento + Me.Periodicidade & "'," _
       & "'" & Me.Responsavel & "';"
               
       MsgBox "Concluído", vbInformation, ""
       
       Me.Requery
       DoCmd.GoToRecord , "", acLast
   End If

End Sub

Exemplo de teste DB_OS_teste.rar
Abraço

Muito obrigado, ahteixeira.
Ficou perfeito.

Att. Ilson

Ola Ilson, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço

Valeu, ahteixeira.
No fim me deparei com outra dificuldade, após a geração da nova OS, se o usuário clicar em "GERAR OS", um novo registro é gerado com os mesmos dados, gerando duplicidade.
Tentei resolver, mas ainda não consegui.

Olá, crie um campo Sim/Não na tabela com o nome Gerado

No código, para verificar se foi gerado utilizamos:

If [gerado] = -1 Then MsgBox "Já foi gerado para esta OS.", vbInformation, "": Exit Sub

Também devemos alterar o valor do campo Gerado , quando está a processar, e para tal:

[gerado] = -1

Ficando assim:

Código:

Private Sub CmdGeraOS_Click()
    
    If [gerado] = -1 Then MsgBox "Já foi gerado para esta OS.", vbInformation, "": Exit Sub
    
    If IsNull(Me.DtEncerramento) Then 'verifica se tem data fechamento
        MsgBox "Não pode agendar, falta data fechamento", vbCritical, ""
        Exit Sub
    Else
        CurrentDb.Execute "INSERT INTO TBOS ( DescOs, Maquina, Periodicidade, DtPrevista, Responsavel ) SELECT " _
        & "'" & Me.DescOs & "'," _
        & "'" & Me.Maquina & "'," _
        & "'" & Me.Periodicidade & "'," _
        & "'" & Me.DtEncerramento + Me.Periodicidade & "'," _
        & "'" & Me.Responsavel & "';"
                
        'atribuir que foi gerado
        [gerado] = -1
                
        MsgBox "Concluído", vbInformation, ""
        
        Me.Requery
        DoCmd.GoToRecord , "", acLast
    End If

End Sub


Teste DB_OS_gerado.zip

Abraço

Obrigado novamente, ahteixeira.
Muito bom.


Att. Ilson

Olá Ilson, obrigado pelo retorno.
Qualquer coisa estamos cá.
Abraço