MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Atualizar campo

    Compartilhe

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    [Resolvido]Atualizar campo

    Mensagem  MateusC em Ter 05 Abr 2016, 16:34

    Boa tarde,

    Estou a desenvolver um sistema de controlo de Terminal Radio Frequência de uma empresa (entrada e saída dos mesmos) já estou quase na reta final. Mas encontrei um problema e serei grato pela vossa ajuda. Sou novo na matéria sobre access só tenho noçõesinha.

    Resumo: o problema é que não consigo criar Relatório ou Consulta que me retorna SOMENTE os Terminais que não foram entregues/devolvidos naquela data.
    Obs: De referir que um determinado Terminal pode ser levantada e devolvida e mais tarde ser levantada outra vez na mesma data. a data é inserido por parâmetro.

    Já tentei muito mas está acontecer o seguinte:
    "Exemplo: Suponhamos que Fernando levante um Terminal 15, e em seguida dá a entrada do mesmo, o sistema vai registar que ao Terminal foi levantado e devolvido pelo Fernando. O problema é que quando o Francisco fazer o levantamento do mesmo terminal o sistema vai registar que o terminal foi levantado pelo Francisco, mas devolvido pelo Fernando." (a consulta está guardada como RESUMO).

    Em anexo envio o BD zipado.
    user: admin
    password:12345678
    ou tecle shift+enter

    OBRIGADO!
    Anexos
    Controlo_Terminal_Radio_Frequencia_teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (859 Kb) Baixado 13 vez(es)


    Última edição por Mateus Chimboto em Qui 07 Abr 2016, 17:13, editado 1 vez(es)
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1021
    Registrado : 23/04/2013

    Re: [Resolvido]Atualizar campo

    Mensagem  Uilson Brasil em Ter 05 Abr 2016, 16:58

    Faltou o anexo ...


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Qui 07 Abr 2016, 17:21

    Obrigado!
    já inserido o ficheiro.

    agradeço deste já a vossa ajuda
    Anexos
    Controlo_Terminal_Radio_Frequencia_teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (859 Kb) Baixado 19 vez(es)

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Qua 13 Abr 2016, 20:12

    boa noite,

    Sff, alguém pode me ajudar?

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Sex 15 Abr 2016, 16:35

    help

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Ter 19 Abr 2016, 18:16

    help me!

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Qua 27 Abr 2016, 20:10

    up

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Qua 11 Maio 2016, 14:50

    Alguém pode me dar uma ideia

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Sab 14 Maio 2016, 13:22

    Up

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    [Resolvido]Atualizar campo

    Mensagem  MateusC em Dom 22 Maio 2016, 17:51

    boa tarde a todos,

    sou novato em vba e solicito a vossa ajuda,
    tenho uma bd de controlo de terminal rf e estou usar o codigo abaixo.
    quero atualizar uma determinada tabela "Tbl_Detalhes de Levantamento" onde tenho o campo "Id_DetLv", "Id_Lev", "Nome interno" e "Estado".
    pretendo que ao clicar no botão guardar (já escolhido os terminal rf para dar entra) no Campo "Estado" atualiza somente onde Id_DetLv seja igual o novo Id_DetLv mas está atualizar tudo.

    Private Sub Guardar_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE [Tbl_Detalhes de Levantamento] Set [Tbl_Detalhes de Levantamento].[Estado] = Levantdado WHERE [Tbl_Detalhes de Levantamento].[ID_DetLv] = [ID_DetLv]"
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.SetWarnings True

    End Sub

    Obrigado.

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Ter 24 Maio 2016, 13:06

    up

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Qui 26 Maio 2016, 14:53

    por favor alguém ajuda nessa situação

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2284
    Registrado : 09/04/2012

    Re: [Resolvido]Atualizar campo

    Mensagem  Kaynan em Qui 26 Maio 2016, 15:46

    Ola amigo pra ser bem mais fácil do pessoal ajuda-lo,poste o bd.
    Abçs.

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Sex 27 Maio 2016, 14:10

    em anexo segue a bd.

    por lapso, não é a tabela "detalhes de Terminal rf" que pretendo atualizar mas sim a tabela "Terminal rf".

    pretendo que ao clicar no botão guardar atualiza a tabela "terminal rf" no campo "estado" para lev ou levantado somente nos terminais levantado. mas está atualizar tudo.

    Private Sub Guardar_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE [TERMINAL RF] Set [TERMINAL RF].[Estado] = Lev WHERE [TERMINAL RF].[NOME INTERNO] = [Tbl_Detalhes de Levantamento].[NOME INTERNO]"
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.SetWarnings True
    End Sub

    agradeço desde já ajuda de todos.
    Obrigado
    Anexos
    Controlo_Terminal_RF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (664 Kb) Baixado 11 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Atualizar campo

    Mensagem  FabioPaes em Sex 27 Maio 2016, 17:48

    Meu amigo, tem duas Formas de Fazer isso:

    1ª Mais Simples:
    É colocando o Comando para atualizar no Evento Apos atualizar do Campo

    NOME INTERNO Do subformulario. Coloque:

    Código:

    CurrentDb.Execute "UPDATE [TERMINAL RF] Set [Estado] = 'Lev' WHERE [NOME INTERNO] = '" & Me.NOME_INTERNO.Column(1) & "'"

    2ª A outra forma é Como vc pretende, com o comando no Botão salvar!

    Coloque este Comando no Botão Salvar:

    Código:

    Private Sub Guardar_Click()
    '-------------------------------------'
    'Criado por Fabio Paes em 27/05/2016  '
    'Livre para o Aprendizado            '
    '-------------------------------------'

    'Declaração das Variaveis
    Dim DB As Database
    Dim rs As DAO.Recordset
    Dim rs1 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 & "")
       
        '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
        rs.MoveNext
        Loop
        'Fecha as conexoes
        rs.Close
        rs1.Close
        DB.Close
    End Sub


    Todas fazem a mesma coisa, a diferença e que uma atualiza a medida que Seleciona o Terminal, e a Outra atualizar ao Final, quando Clica no Botão Salvar.


    .................................................................................
    _____________________________________________________________________
    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!

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Sab 28 Maio 2016, 19:38

    valeu deu certo. muito obrigado a todos especialmente FabioPaes. este forum é demais rapidez nas respostas o melhor que encontrei.
    de referir que os dois codigos estão a funcionar corretamente como pretendido mas implemente mesmo o 2º.

    mas encontrei outro problema que postarei no outro topito.
    compartilho a bd.

    Obrigado.
    Anexos
    Controlo_Terminal_RF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (666 Kb) Baixado 2 vez(es)

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    consulta ou relatorio terminal rf

    Mensagem  MateusC em Sab 28 Maio 2016, 20:08

    conforme ja disse no topico anterior, o problema é que estou com dificuldade de criar Relatório ou Consulta que me retorna somente os Terminais rf que não foram entregue/devolvidos naquela data. De referir que um determinado Terminal pode ser levantada e devolvida e mais tarde ser levantada outra vez na mesma data. a data é inserido por parâmetro.

    resumindo: por exemplo se o terminal rf "113_rf12" for levantado por um colaborador e for devolvido por o mesmo ou outro colaborador e mais tarde for levantado novamente na mesma data, já não devolve o terminal rf "113_rf12".

    SELECT *
    FROM [Levantamento por Data]
    WHERE ((Tbl_Levantamento.DATA)=[digite a data]) AND [Levantamento por Data].[NOME INTERNO] NOT IN (SELECT [Devolução por Data].[NOME INTERNO] FROM [Devolução por Data] WHERE ((Tbl_Devolução.DATA)=[digite a data]));

    agradeço desde já ajuda de todos.
    Anexos
    Controlo_Terminal_RF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (664 Kb) Baixado 5 vez(es)

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Dom 29 Maio 2016, 10:04

    valeu

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Seg 30 Maio 2016, 11:50

    up

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Qua 01 Jun 2016, 10:20

    sff, alguém pode me ajuda nessa situação

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Sex 03 Jun 2016, 15:45

    por favor, alguém me ajuda

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Sab 04 Jun 2016, 15:40

    up

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Sab 04 Jun 2016, 15:41

    up

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    registo duplicado

    Mensagem  MateusC em Dom 05 Jun 2016, 16:18

    boa tarde,

    agradeço ajuda de todos desde já.
    tenho uma bd "controle de terminal rf", gostaria que ao clicar no botão guardar, excluir ou substitui o (s) terminal rf que já estão lançado ou gravado na tabela "Tbl_Detalhes de Levantamento" no campo "nome interno" e grave o (s) novo terminal rf que está sendo levantado.

    de referir que, estou adaptar o codigo do mestre JPaulo não está funcionando como gostaria, está sempre a duplicar os terminal rf que uma vez levantado e devolvido e depois levantado novamente.

    Private Sub Guardar_Click()
    Call DeletaRegistrosDuplicados("[Tbl_Detalhes de Levantamento]")
    End Function

    Coloquei num módulo novo e salvei:

    Public Function DeletaRegistrosDuplicados(strTabela As String)
    'By JPaulo ® Maximo Access
    Dim rst As DAO.Recordset, rst2 As DAO.Recordset
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim strSQL As String
    Dim varX As Variant

    Set tdf = DBEngine(0)(0).TableDefs(strTabela)
    strSQL = "SELECT * FROM " & strTabela & " ORDER BY "
    For Each fld In tdf.Fields
    If (fld.Type <> dbMemo) And (fld.Type <> dbLongBinary) Then
    strSQL = strSQL & fld.Name & ", "
    End If
    Next fld

    strSQL = Left(strSQL, Len(strSQL) - 2)
    Set tdf = Nothing

    Set rst = CurrentDb.OpenRecordset(strSQL)
    Set rst2 = rst.Clone
    rst.MoveNext
    Do Until rst.EOF
    varX = rst.Bookmark
    For Each fld In rst.Fields
    If fld.Value <> rst2.Fields(fld.Name).Value Then
    GoTo NextRecord
    End If
    Next fld
    rst.Delete
    GoTo SkipBookmark
    NextRecord:
    rst2.Bookmark = varX
    SkipBookmark:
    rst.MoveNext
    Loop
    rst.Close
    MsgBox "Registros duplicados encontrado(s) e deletados com sucesso...", vbInformation
    End Function
    Anexos
    Controlo_Terminal_RF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (675 Kb) Baixado 12 vez(es)

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Ter 07 Jun 2016, 14:39

    up
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6445
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar campo

    Mensagem  Alexandre Neves em Qua 08 Jun 2016, 21:26

    Boa noite,
    Dê todos os detalhes
    Abri a bd e nem sei como chegar à sua dúvida


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Qui 09 Jun 2016, 18:07

    ok. obrigado Alexandre.

    o objectivo é substituir o antigo terminal rf levantado pelo novo na tabela "Tbl_Detalhes de Levantamento" no campo "nome interno".
    por exemplo: na bd enviado em anexo está repetido o terminal 113_rf12, um que foi levantado ás 19:25 e o outro ás 20:00 na mesma data (28-05-2016). gostaria que ao clicar no botão guardar, guardasse o terminal rf ex. 113_rf12 levantado às 20h:00 mas substituindo/eliminando o mesmo terminal ex. 113_rf12 já levantado às 19h:25min.

    obs: De referir que, um determinado terminal pode ser levantada e devolvida e mais tarde ser levantada outra vez na mesma data.

    agradeço desde já.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6445
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar campo

    Mensagem  Alexandre Neves em Sex 10 Jun 2016, 21:27

    Boa noite
    Dê todos os detalhes
    Fala em botão guardar. Qual botão guardar?
    Fala em substituindo/eliminando. Quer substituir ou eliminar?
    Explique tudo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Sex 10 Jun 2016, 21:52

    ok.

    estou a me referir do botão guardar do formulário "Frm_Levantamento",
    o objectivo é substituir qualquer terminal já existente a tabela "Tbl_Detalhes de Levantamento" no campo "nome interno" com o mesmo nome interno. exemplo terminal rf 113_rf12 já explicado acima. estou utilizando o access 2010.

    obrigado.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6445
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar campo

    Mensagem  Alexandre Neves em Sab 11 Jun 2016, 11:23

    Bom dia,
    Respeite as regras

    1º Não prolifere a mesma dúvida
    Sempre que der por resolvida, se essa dúvida vier a persistir, reabra-a (pressionando no botão "Resolvido" (abre/fecha))

    2º uni as suas dúvidas relacionadas e retirei o Resolvido

    3º a função que o Mestre JPaulo lhe passou não funcionou aqui no seu bd, porque não respeitou as boas práticas de numenclatura de campos

    4º cole num módulo e chame-o no botão Guardar
    Código:
    Sub EliminaRegistosAnteriores()
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim Rst As DAO.Recordset, strNomeAnterior As String
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM [Tbl_Detalhes de levantamento] ORDER BY [Nome interno], ID_DetLv DESC")
       
        Do While Not Rst.EOF
            If Rst("nome interno") = strNomeAnterior Then
                Rst.Delete
            Else
                strNomeAnterior = Rst("nome interno")
            End If
            Rst.MoveNext
        Loop
        Set Rst = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    MateusC
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 93
    Registrado : 29/03/2016

    Re: [Resolvido]Atualizar campo

    Mensagem  MateusC em Sab 11 Jun 2016, 21:21

    obrigado mestre Alexandre, o código funciona como o previsto, és o máximo.

    com relação a chamada de atenção no 1º ponto e demais, farei a questão de reler novamente as regras do forúm e respeitar as regras, valeu pelas dicas e ajuda.

    muito obrigado.

      Data/hora atual: Seg 23 Out 2017, 05:25