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


2 participantes

    [Resolvido]Determinar hora de abertura e de fechamento de um formulário

    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    [Resolvido]Determinar hora de abertura e de fechamento de um formulário Empty [Resolvido]Determinar hora de abertura e de fechamento de um formulário

    Mensagem  vailson 20/4/2016, 19:46

    Olá amigos, preciso que o formulário capture o horário em que foi aberto e o horário em que foi fechado.
    Coloquei uma caixa de texto com o valor padrão =agora(), ela capta o horário que o form abre. Mas preciso do horário que o usuário clica no botão fechar seja inserido na tabela.

    Código:
    Private Sub Comando8_Click()
    Dim DB As Database, RS As DAO.Recordset
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("tbl_ocor_andamento")
    RS.AddNew
    RS("Hora da Finalização") = Now
    RS.Update
    RS.Close
    DoCmd.Close
    End Sub

    Tentei esse botão acima, mas ele insere o horário em uma nova linha na tabela. Tem como ele colocar na linha atual do formulário? Eu olhei na lista de comandos para substituir o AddNew porém não consegui.

    Abraços
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Determinar hora de abertura e de fechamento de um formulário Empty RS.Edit Para Editar

    Mensagem  FabioPaes 20/4/2016, 20:42

    Private Sub Comando8_Click()
    Dim DB As Database, RS As DAO.Recordset
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("SELECT [Hora da Finalização] FROM tbl_ocor_andamento WHERE ID = " & Me.txtID &"")
    RS.Edit
    RS("Hora da Finalização") = Now
    RS.Update
    RS.Close
    DoCmd.Close

    End Sub


    Tente assim amigo...


    Mudei para RS.EDIT (para editar um registro e nao add um novo)

    E ao inves de abrir toda a tabela, Selecionamos um único registro (SELECT [Hora da Finalização] FROM tbl_ocor_andamento WHERE ID = " & Me.txtID &") Veja que compara o campo ID da tabela com o Campo txtID do formulario(que mostra a chave primaria da tabela).


    Assim ele irá Buscar o registro atual, e apenas editar esse campo.
    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    [Resolvido]Determinar hora de abertura e de fechamento de um formulário Empty Re: [Resolvido]Determinar hora de abertura e de fechamento de um formulário

    Mensagem  vailson 20/4/2016, 23:59

    Não funcionou. Deu ERRO DE COMPILAÇÃO: Método ou membro de dados não encontrado, na parte

    Private Sub Comando8_Click()
    Dim DB As Database, RS As DAO.Recordset
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("SELECT [Hora da Finalização] FROM tbl_ocor_andamento WHERE ID = " & Me.txtID &"")
    RS.Edit
    RS("Hora da Finalização") = Now
    RS.Update
    RS.Close
    DoCmd.Close
    End Sub


    Só pra constar, tem uma macro no formulário que faz ele sempre carregar em um novo registro.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Determinar hora de abertura e de fechamento de um formulário Empty Re: [Resolvido]Determinar hora de abertura e de fechamento de um formulário

    Mensagem  FabioPaes 21/4/2016, 01:30

    Amigo, vc tem que alterar essa parte em vermelho com os nomes dos seus campos... ID E Me.TXTID.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Determinar hora de abertura e de fechamento de um formulário Empty Re: [Resolvido]Determinar hora de abertura e de fechamento de um formulário

    Mensagem  FabioPaes 21/4/2016, 03:23

    veja esse exemplo...
    Anexos
    [Resolvido]Determinar hora de abertura e de fechamento de um formulário AttachmentEdição Reg.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 25 vez(es)
    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    [Resolvido]Determinar hora de abertura e de fechamento de um formulário Empty Re: [Resolvido]Determinar hora de abertura e de fechamento de um formulário

    Mensagem  vailson 25/4/2016, 14:39

    Ok, muito obrigado. Solucionado conforme orientação do FabioPaes

    Código:
    Private Sub Comando8_Click()
    Me.DataFim = Now()
    DoCmd.Close
    End Sub

    O campo DataFim oculto no formulário e o campo DataInicial com valor padrão =Now()

    Conteúdo patrocinado


    [Resolvido]Determinar hora de abertura e de fechamento de um formulário Empty Re: [Resolvido]Determinar hora de abertura e de fechamento de um formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:51