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

3 participantes

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

    avatar
    ilsonyp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 16/06/2014

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

    Mensagem  ilsonyp 10/6/2015, 02:28

    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
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

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

    Mensagem  daniloreiis 10/6/2015, 12:15

    Ola bom dia !

    poderia disponibilizar o projeto para melhor ajuda-lo ?


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    ilsonyp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 16/06/2014

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

    Mensagem  ilsonyp 10/6/2015, 23:43

    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
    avatar
    ilsonyp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 16/06/2014

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

    Mensagem  ilsonyp 21/6/2015, 18:17

    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
    Anexos
    [Resolvido]Geração automática de registro em tabela AttachmentDB_OS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 15 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7700
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 21/6/2015, 19:39

    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
    avatar
    ilsonyp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 16/06/2014

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

    Mensagem  ilsonyp 21/6/2015, 23:33

    Muito obrigado, ahteixeira.
    Ficou perfeito.

    Att. Ilson
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7700
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 22/6/2015, 01:11

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 16/06/2014

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

    Mensagem  ilsonyp 23/6/2015, 00:23

    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7700
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 23/6/2015, 08:17

    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
    avatar
    ilsonyp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 16/06/2014

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

    Mensagem  ilsonyp 23/6/2015, 11:45

    Obrigado novamente, ahteixeira.
    Muito bom.


    Att. Ilson
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7700
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 1/7/2015, 21:16

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

      Data/hora atual: 26/11/2022, 19:14