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


4 participantes

    [Resolvido]Postgres vs formulário Access

    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 15/10/2020, 14:27

    Pessoal, bom dia

    Estou com o seguinte problema aqui no meu formulário que uso linkado com os campos do meu Postgres, é o seguinte:

    1. Criei uma tabela no meu BD Postgres e existe um campo chamado 'horainicio' esse campo possui o formato "time without time zone", esse campo armazena dados do tipo "01:00:00";

    [Resolvido]Postgres vs formulário Access T120

    [Resolvido]Postgres vs formulário Access T218

    2. Criei um formulário no Access com o tipo de dados "Data/hora", usei a máscara "hora abreviada", a principio ele exibe corretamente o valor do campo, veja abaixo;

    [Resolvido]Postgres vs formulário Access T318

    3. O problema é quando clicamos em cima do campo no formulário, ele adiciona uma data que não sei de onde veio e isso acaba prejudicando a digitação do mesmo, veja:

    [Resolvido]Postgres vs formulário Access T413


    Como fazer com que ao clicar na caixa de texto o usuário consiga editar o campo sem que apareça essa data? Outro detalhe, possuo um formulário que está com o mesmo problema e ele tem mais de 20 campos com esse mesmo "erro/falha";
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Silvio 17/10/2020, 19:36

    Boas...

    Procure o format time nas documentações.

    Creio que deva ser algo parecido com isso... Format Time(HH:mm)

    Isso deve estar no evento Atual e ao abrir do teu formulário

    me.suacaixadetexto=Format time(HH:mm)

    Bons estudos e sucesso.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 19/10/2020, 13:29

    @Silvio, bom dia

    Isso funciona, mas como faria para replicar pra todos os meus 20 campos que tenho? um a um?
    Eu fiz assim no evento onload do formulário:

    Código:
    Private Sub Form_Load()
    Me.horainicio.value = FormatDateTime(Me.horainicio, vbShortTime)
    End Sub

    abs
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Silvio 19/10/2020, 13:45

    Sim, todos os campos


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 19/10/2020, 14:53

    Resolvido amigo,

    Fiz campo a campo, no evento onload e oncurrent do form.

    Abs
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Silvio 19/10/2020, 21:11

    Abraços


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 21/10/2020, 15:26

    @Silvio,

    Tive que reabrir o tópico, pois agora ao navegar pelos meus registros, aparece o seguinte erro:

    [Resolvido]Postgres vs formulário Access T121

    No formulário que está sendo carregado, No evento LOAD, estou usando o seguinte código dos campos:

    Código:
    Private Sub Form_Load()

        'Atualiza a exibição dos campos no padrão HH:MM:SS
        Me.MOHrIniBenef.value = FormatDateTime(Me.MOHrIniBenef, 4)
        Me.MOHrFimBenef.value = FormatDateTime(Me.MOHrFimBenef, 4)
        Me.MOHrIniMoagem.value = FormatDateTime(Me.MOHrIniMoagem, 4)
        Me.MOHrFimMoagem.value = FormatDateTime(Me.MOHrFimMoagem, 4)
        Me.MAHrIniDescMalte.value = FormatDateTime(Me.MAHrIniDescMalte, 4)
        Me.MAHrFimDescMalte.value = FormatDateTime(Me.MAHrFimDescMalte, 4)
        Me.MAHrIni1Repouso.value = FormatDateTime(Me.MAHrIni1Repouso, 4)
        Me.MAHrFim1Repouso.value = FormatDateTime(Me.MAHrFim1Repouso, 4)
        Me.MAHrIniAquec1Repouso.value = FormatDateTime(Me.MAHrIniAquec1Repouso, 4)
        Me.MAHrFimAquec1Repouso.value = FormatDateTime(Me.MAHrFimAquec1Repouso, 4)
        Me.MAHrIni2Repouso.value = FormatDateTime(Me.MAHrIni2Repouso, 4)
        Me.MAHrFim2Repouso.value = FormatDateTime(Me.MAHrFim2Repouso, 4)
        Me.MAHrIniAquec2Repouso.value = FormatDateTime(Me.MAHrIniAquec2Repouso, 4)
        Me.MAHrFimAquec2Repouso.value = FormatDateTime(Me.MAHrFimAquec2Repouso, 4)
        Me.MAHrIni3Repouso.value = FormatDateTime(Me.MAHrIni3Repouso, 4)
        Me.MAHrFim3Repouso.value = FormatDateTime(Me.MAHrFim3Repouso, 4)
        Me.MAHrIniTransferencia.value = FormatDateTime(Me.MAHrIniTransferencia, 4)
        Me.MAHrFimTransferencia.value = FormatDateTime(Me.MAHrFimTransferencia, 4)
        Me.FlHrIniAguaLastro.value = FormatDateTime(Me.FlHrIniAguaLastro, 4)
        Me.FlHrFimAguaLastro.value = FormatDateTime(Me.FlHrFimAguaLastro, 4)
        Me.FLHrIniRecirculacao.value = FormatDateTime(Me.FLHrIniRecirculacao, 4)
        Me.FLHrFimRecirculacao.value = FormatDateTime(Me.FLHrFimRecirculacao, 4)
        Me.FLHrIniFiltracao.value = FormatDateTime(Me.FLHrIniFiltracao, 4)
        Me.FLHrFimFiltracao.value = FormatDateTime(Me.FLHrFimFiltracao, 4)
        Me.flhrinirecircsecund.value = FormatDateTime(Me.flhrinirecircsecund, 4)
        Me.flhrfimrecircsecund.value = FormatDateTime(Me.flhrfimrecircsecund, 4)
        Me.flhrinifiltrsec.value = FormatDateTime(Me.flhrinifiltrsec, 4)
        Me.flhrfimfiltrsec.value = FormatDateTime(Me.flhrfimfiltrsec, 4)
        Me.FLHrIniLimpeza.value = FormatDateTime(Me.FLHrIniLimpeza, 4)
        Me.FLHrFimLimpeza.value = FormatDateTime(Me.FLHrFimLimpeza, 4)
        Me.FRHrIniFervura.value = FormatDateTime(Me.FRHrIniFervura, 4)
        Me.FRHrFimFervura.value = FormatDateTime(Me.FRHrFimFervura, 4)
        Me.frhriniadmaltose.value = FormatDateTime(Me.frhriniadmaltose, 4)
        Me.frhrfimadmaltose.value = FormatDateTime(Me.frhrfimadmaltose, 4)
        Me.FRHrIniRotapool.value = FormatDateTime(Me.FRHrIniRotapool, 4)
        Me.FRHrFimRotapool.value = FormatDateTime(Me.FRHrFimRotapool, 4)
        Me.RFHrIniRepDecant.value = FormatDateTime(Me.RFHrIniRepDecant, 4)
        Me.RFHrFimRepDecant.value = FormatDateTime(Me.RFHrFimRepDecant, 4)
        Me.RFHrIniResfriamento.value = FormatDateTime(Me.RFHrIniResfriamento, 4)
        Me.RFHrFimResfriamento.value = FormatDateTime(Me.RFHrFimResfriamento, 4)
        Me.RFHrIniLimpDecantador.value = FormatDateTime(Me.RFHrIniLimpDecantador, 4)
        Me.RFHrFimLimpDecantador.value = FormatDateTime(Me.RFHrFimLimpDecantador, 4)

    No Evento CURRENT o mesmo código:

    Código:
    Private Sub Form_Current()
        'Atualiza a exibição dos campos no padrão HH:MM:SS
        Me.MOHrIniBenef.value = FormatDateTime(Me.MOHrIniBenef, 4)
        Me.MOHrFimBenef.value = FormatDateTime(Me.MOHrFimBenef, 4)
        Me.MOHrIniMoagem.value = FormatDateTime(Me.MOHrIniMoagem, 4)
        Me.MOHrFimMoagem.value = FormatDateTime(Me.MOHrFimMoagem, 4)
        Me.MAHrIniDescMalte.value = FormatDateTime(Me.MAHrIniDescMalte, 4)
        Me.MAHrFimDescMalte.value = FormatDateTime(Me.MAHrFimDescMalte, 4)
        Me.MAHrIni1Repouso.value = FormatDateTime(Me.MAHrIni1Repouso, 4)
        Me.MAHrFim1Repouso.value = FormatDateTime(Me.MAHrFim1Repouso, 4)
        Me.MAHrIniAquec1Repouso.value = FormatDateTime(Me.MAHrIniAquec1Repouso, 4)
        Me.MAHrFimAquec1Repouso.value = FormatDateTime(Me.MAHrFimAquec1Repouso, 4)
        Me.MAHrIni2Repouso.value = FormatDateTime(Me.MAHrIni2Repouso, 4)
        Me.MAHrFim2Repouso.value = FormatDateTime(Me.MAHrFim2Repouso, 4)
        Me.MAHrIniAquec2Repouso.value = FormatDateTime(Me.MAHrIniAquec2Repouso, 4)
        Me.MAHrFimAquec2Repouso.value = FormatDateTime(Me.MAHrFimAquec2Repouso, 4)
        Me.MAHrIni3Repouso.value = FormatDateTime(Me.MAHrIni3Repouso, 4)
        Me.MAHrFim3Repouso.value = FormatDateTime(Me.MAHrFim3Repouso, 4)
        Me.MAHrIniTransferencia.value = FormatDateTime(Me.MAHrIniTransferencia, 4)
        Me.MAHrFimTransferencia.value = FormatDateTime(Me.MAHrFimTransferencia, 4)
        Me.FlHrIniAguaLastro.value = FormatDateTime(Me.FlHrIniAguaLastro, 4)
        Me.FlHrFimAguaLastro.value = FormatDateTime(Me.FlHrFimAguaLastro, 4)
        Me.FLHrIniRecirculacao.value = FormatDateTime(Me.FLHrIniRecirculacao, 4)
        Me.FLHrFimRecirculacao.value = FormatDateTime(Me.FLHrFimRecirculacao, 4)
        Me.FLHrIniFiltracao.value = FormatDateTime(Me.FLHrIniFiltracao, 4)
        Me.FLHrFimFiltracao.value = FormatDateTime(Me.FLHrFimFiltracao, 4)
        Me.flhrinirecircsecund.value = FormatDateTime(Me.flhrinirecircsecund, 4)
        Me.flhrfimrecircsecund.value = FormatDateTime(Me.flhrfimrecircsecund, 4)
        Me.flhrinifiltrsec.value = FormatDateTime(Me.flhrinifiltrsec, 4)
        Me.flhrfimfiltrsec.value = FormatDateTime(Me.flhrfimfiltrsec, 4)
        Me.FLHrIniLimpeza.value = FormatDateTime(Me.FLHrIniLimpeza, 4)
        Me.FLHrFimLimpeza.value = FormatDateTime(Me.FLHrFimLimpeza, 4)
        Me.FRHrIniFervura.value = FormatDateTime(Me.FRHrIniFervura, 4)
        Me.FRHrFimFervura.value = FormatDateTime(Me.FRHrFimFervura, 4)
        Me.frhriniadmaltose.value = FormatDateTime(Me.frhriniadmaltose, 4)
        Me.frhrfimadmaltose.value = FormatDateTime(Me.frhrfimadmaltose, 4)
        Me.FRHrIniRotapool.value = FormatDateTime(Me.FRHrIniRotapool, 4)
        Me.FRHrFimRotapool.value = FormatDateTime(Me.FRHrFimRotapool, 4)
        Me.RFHrIniRepDecant.value = FormatDateTime(Me.RFHrIniRepDecant, 4)
        Me.RFHrFimRepDecant.value = FormatDateTime(Me.RFHrFimRepDecant, 4)
        Me.RFHrIniResfriamento.value = FormatDateTime(Me.RFHrIniResfriamento, 4)
        Me.RFHrFimResfriamento.value = FormatDateTime(Me.RFHrFimResfriamento, 4)
        Me.RFHrIniLimpDecantador.value = FormatDateTime(Me.RFHrIniLimpDecantador, 4)
        Me.RFHrFimLimpDecantador.value = FormatDateTime(Me.RFHrFimLimpDecantador, 4)
    End Sub

    Eu sei que o erro está no evento Current, pois quando clico em Depurar aparece isso:

    [Resolvido]Postgres vs formulário Access T219

    O que estou fazendo de errado?
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Silvio 21/10/2020, 17:30

    Private Sub Form_current()
    On error resume next
    ...
    ....
    ....

    end sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  DamascenoJr. 21/10/2020, 23:38

    Veja a versão resumida do código utilizado

    Código:
    Dim ctl As Control
       
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox And ctl.Name Like "[MFR][OALRF]Hr*" Then
            ctl.Value = FormatDateTime(ctl.Value, 4)
        End If
    End If


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 22/10/2020, 04:25

    @Silvio, bom dia

    Testei o código e não funcionou, veja como ficou meu código:

    Código:
    Private Sub Form_Current()
    On Error Resume Next
        'Atualiza a exibição dos campos no padrão HH:MM:SS
        Me.MOHrIniBenef.value = FormatDateTime(Me.MOHrIniBenef, 4)
        Me.MOHrFimBenef.value = FormatDateTime(Me.MOHrFimBenef, 4)
        Me.MOHrIniMoagem.value = FormatDateTime(Me.MOHrIniMoagem, 4)
        Me.MOHrFimMoagem.value = FormatDateTime(Me.MOHrFimMoagem, 4)
        Me.MAHrIniDescMalte.value = FormatDateTime(Me.MAHrIniDescMalte, 4)
        Me.MAHrFimDescMalte.value = FormatDateTime(Me.MAHrFimDescMalte, 4)
        Me.MAHrIni1Repouso.value = FormatDateTime(Me.MAHrIni1Repouso, 4)
        Me.MAHrFim1Repouso.value = FormatDateTime(Me.MAHrFim1Repouso, 4)
        Me.MAHrIniAquec1Repouso.value = FormatDateTime(Me.MAHrIniAquec1Repouso, 4)
        Me.MAHrFimAquec1Repouso.value = FormatDateTime(Me.MAHrFimAquec1Repouso, 4)
        Me.MAHrIni2Repouso.value = FormatDateTime(Me.MAHrIni2Repouso, 4)
        Me.MAHrFim2Repouso.value = FormatDateTime(Me.MAHrFim2Repouso, 4)
        Me.MAHrIniAquec2Repouso.value = FormatDateTime(Me.MAHrIniAquec2Repouso, 4)
        Me.MAHrFimAquec2Repouso.value = FormatDateTime(Me.MAHrFimAquec2Repouso, 4)
        Me.MAHrIni3Repouso.value = FormatDateTime(Me.MAHrIni3Repouso, 4)
        Me.MAHrFim3Repouso.value = FormatDateTime(Me.MAHrFim3Repouso, 4)
        Me.MAHrIniTransferencia.value = FormatDateTime(Me.MAHrIniTransferencia, 4)
        Me.MAHrFimTransferencia.value = FormatDateTime(Me.MAHrFimTransferencia, 4)
        Me.FlHrIniAguaLastro.value = FormatDateTime(Me.FlHrIniAguaLastro, 4)
        Me.FlHrFimAguaLastro.value = FormatDateTime(Me.FlHrFimAguaLastro, 4)
        Me.FLHrIniRecirculacao.value = FormatDateTime(Me.FLHrIniRecirculacao, 4)
        Me.FLHrFimRecirculacao.value = FormatDateTime(Me.FLHrFimRecirculacao, 4)
        Me.FLHrIniFiltracao.value = FormatDateTime(Me.FLHrIniFiltracao, 4)
        Me.FLHrFimFiltracao.value = FormatDateTime(Me.FLHrFimFiltracao, 4)
        Me.flhrinirecircsecund.value = FormatDateTime(Me.flhrinirecircsecund, 4)
        Me.flhrfimrecircsecund.value = FormatDateTime(Me.flhrfimrecircsecund, 4)
        Me.flhrinifiltrsec.value = FormatDateTime(Me.flhrinifiltrsec, 4)
        Me.flhrfimfiltrsec.value = FormatDateTime(Me.flhrfimfiltrsec, 4)
        Me.FLHrIniLimpeza.value = FormatDateTime(Me.FLHrIniLimpeza, 4)
        Me.FLHrFimLimpeza.value = FormatDateTime(Me.FLHrFimLimpeza, 4)
        Me.FRHrIniFervura.value = FormatDateTime(Me.FRHrIniFervura, 4)
        Me.FRHrFimFervura.value = FormatDateTime(Me.FRHrFimFervura, 4)
        Me.frhriniadmaltose.value = FormatDateTime(Me.frhriniadmaltose, 4)
        Me.frhrfimadmaltose.value = FormatDateTime(Me.frhrfimadmaltose, 4)
        Me.FRHrIniRotapool.value = FormatDateTime(Me.FRHrIniRotapool, 4)
        Me.FRHrFimRotapool.value = FormatDateTime(Me.FRHrFimRotapool, 4)
        Me.RFHrIniRepDecant.value = FormatDateTime(Me.RFHrIniRepDecant, 4)
        Me.RFHrFimRepDecant.value = FormatDateTime(Me.RFHrFimRepDecant, 4)
        Me.RFHrIniResfriamento.value = FormatDateTime(Me.RFHrIniResfriamento, 4)
        Me.RFHrFimResfriamento.value = FormatDateTime(Me.RFHrFimResfriamento, 4)
        Me.RFHrIniLimpDecantador.value = FormatDateTime(Me.RFHrIniLimpDecantador, 4)
        Me.RFHrFimLimpDecantador.value = FormatDateTime(Me.RFHrFimLimpDecantador, 4)
    End Sub

    Veja o erro que apareceu agora após clicar no formulário em Alterar:

    [Resolvido]Postgres vs formulário Access T220


    @DamascenoJr

    Não consegui entender como ficaria no meu código, uma vez que acredito que o corretor deva ter feito alguma bagunça no teu código, poderia me ajudar a reduzir o código acima?

    Dim ctl As Control
       
    For Each ctl In Me.Controls
       If ctl.ControlType = acTextBox And ctl.Name Like "[MFR][OALRF]Hr*" Then
           ctl.Value = FormatDateTime(ctl.Value, 4)
       End If
    End If

    Não compreendi o que ficou em negrito acima, poderia me explicar melhor?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  DamascenoJr. 22/10/2020, 04:34

    Verificando controles que o nome
    Na primeira posição tenha uma dessas letras [MFR]
    Na segunda posição tenha uma dessas letras [OALRF]
    Depois tenham Hr
    E o * significa que tanto faz o restante


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 23/10/2020, 13:14

    @Silvio, bom dia

    Não consegui parar o erro, continua tendo, fiz assim no evento LOAD e CURRENT;

    LOAD
    Código:
    Me.Form.AllowAdditions = False
    Me.Form.AllowEdits = False
    Me.Form.AllowDeletions = False
    'Contribuição: Silvio
    'Site: Maximo Access
    'Data: 21/10/2020
    'Topico: 38595
    On Error Resume Next
        'Contribuição: DamascenoJr
        'Site: Maximo Access
        'Data: 21/10/2020
        'Topico: 38595
        'Atualiza a exibição dos campos no padrão HH:MM:SS
        'Explicação após o Like
        'Na primeira posição tenha uma dessas letras [MFR]
        'Na segunda posição tenha uma dessas letras [OALRF]
        'Depois tenham Hr
        'E o * significa que tanto faz o restante
        Dim ctl As Control
          
        For Each ctl In Me.Controls
           If ctl.ControlType = acTextBox And ctl.Name Like "[MFR][OALRF]Hr*" Then
               ctl.value = FormatDateTime(ctl.value, 4)
           End If
        Next

        'Indice de tabulação dos campos
        Me.datainiciofabricacao.TabIndex = 0
        Me.MONumSilo1.TabIndex = 1
        Me.MOQtdMalte1.TabIndex = 2
        Me.MONumSilo2.TabIndex = 3
        Me.MOQtdMalte2.TabIndex = 4
        Me.MOHrIniBenef.TabIndex = 5
        Me.MOHrFimBenef.TabIndex = 6
        Me.MOPoePalha.TabIndex = 7
        Me.MONumCaixa.TabIndex = 8
        Me.MONumMoinho.TabIndex = 9
        Me.monumcaixam.TabIndex = 10
        Me.MOHrIniMoagem.TabIndex = 11
        Me.MOHrFimMoagem.TabIndex = 12
        Me.dtinimostura.TabIndex = 13
        Me.MAVolAgua.TabIndex = 14
        Me.MApHAgua.TabIndex = 15
        Me.matempagua.TabIndex = 16
        Me.MAH3PO4.TabIndex = 17
        Me.MACaCl.TabIndex = 18
        Me.MAHrIniDescMalte.TabIndex = 19
        Me.MAHrFimDescMalte.TabIndex = 20
        Me.MApHMosto.TabIndex = 21
        Me.MAbGlucanase.TabIndex = 22
        Me.MaQtdAmilase.TabIndex = 23
        Me.matemp1repouso.TabIndex = 24
        Me.MAHrIni1Repouso.TabIndex = 25
        Me.MAHrFim1Repouso.TabIndex = 26
        Me.MATempIni1Repouso.TabIndex = 27
        Me.MATempFim1Repouso.TabIndex = 28
        Me.MAHrIniAquec1Repouso.TabIndex = 29
        Me.MAHrFimAquec1Repouso.TabIndex = 30
        Me.matemp2repouso.TabIndex = 31
        Me.MAHrIni2Repouso.TabIndex = 32
        Me.MAHrFim2Repouso.TabIndex = 33
        Me.MASacarificacao.TabIndex = 34
        Me.MATempIni2Repouso.TabIndex = 35
        Me.MATempFim2Repouso.TabIndex = 36
        Me.MAHrIniAquec2Repouso.TabIndex = 37
        Me.MAHrFimAquec2Repouso.TabIndex = 38
        Me.matemp3repouso.TabIndex = 39
        Me.MAHrIni3Repouso.TabIndex = 40
        Me.MAHrFim3Repouso.TabIndex = 41
        Me.manumtina.TabIndex = 42
        Me.MAHrIniTransferencia.TabIndex = 43
        Me.MAHrFimTransferencia.TabIndex = 44
        Me.dtinifiltracao.TabIndex = 45
        Me.FlHrIniAguaLastro.TabIndex = 46
        Me.FlHrFimAguaLastro.TabIndex = 47
        Me.FLHrIniRecirculacao.TabIndex = 48
        Me.FLHrFimRecirculacao.TabIndex = 49
        Me.flnumcaldeira.TabIndex = 50
        Me.FLHrIniFiltracao.TabIndex = 51
        Me.FLHrFimFiltracao.TabIndex = 52
        Me.FLExtratoPrimario.TabIndex = 53
        Me.FLVolMosto.TabIndex = 54
        Me.flturbidez.TabIndex = 55
        Me.flhrinirecircsecund.TabIndex = 56
        Me.flhrfimrecircsecund.TabIndex = 57
        Me.flcacl.TabIndex = 58
        Me.FLpHAgua.TabIndex = 59
        Me.FLTempAgua.TabIndex = 60
        Me.FLExtratoResidual.TabIndex = 63
        Me.flvolmostosec.TabIndex = 64
        Me.flvoltotfiltracao.TabIndex = 65
        Me.flhrinifiltrsec.TabIndex = 66
        Me.flhrfimfiltrsec.TabIndex = 67
        Me.flpreaquecferv.TabIndex = 68
        Me.flvoladagua.TabIndex = 69
        Me.FLHrIniLimpeza.TabIndex = 70
        Me.FLHrFimLimpeza.TabIndex = 71
        Me.dtinifervura.TabIndex = 72
        Me.FRH3PO4.TabIndex = 73
        Me.FRCaCl.TabIndex = 74
        Me.FRVolFervedor.TabIndex = 75
        Me.FRExtratoFervura.TabIndex = 76
        Me.FRpHFervura.TabIndex = 77
        Me.FRHrIniFervura.TabIndex = 78
        Me.FRHrFimFervura.TabIndex = 79
        Me.FRTpLupulo.TabIndex = 80
        Me.FRLupulo.TabIndex = 81
        Me.FRAlfaAcido1.TabIndex = 82
        Me.FRTpLupulo2.TabIndex = 83
        Me.FRLupulo2.TabIndex = 84
        Me.FRAlfaAcido2.TabIndex = 85
        Me.FRCaramelo.TabIndex = 86
        Me.FRMaltose.TabIndex = 87
        Me.frhriniadmaltose.TabIndex = 88
        Me.frhrfimadmaltose.TabIndex = 89
        Me.FRZinco.TabIndex = 90
        Me.FRCoagulante.TabIndex = 91
        Me.FRVolMosto.TabIndex = 92
        Me.FRHrIniRotapool.TabIndex = 93
        Me.FRHrFimRotapool.TabIndex = 94
        Me.FRExtratoMosto.TabIndex = 95
        Me.FRpHMosto.TabIndex = 96
        Me.dtiniresfriamento.TabIndex = 97
        Me.RFHrIniRepDecant.TabIndex = 98
        Me.RFHrFimRepDecant.TabIndex = 99
        Me.rfvolmostoquente.TabIndex = 100
        Me.RFNumTanque.TabIndex = 101
        Me.RFNumOP.TabIndex = 102
        Me.rffabrpropagacao.TabIndex = 103
        Me.RFHrIniResfriamento.TabIndex = 104
        Me.RFHrFimResfriamento.TabIndex = 105
        Me.RFMaltose.TabIndex = 106
        Me.RFAeracao.TabIndex = 107
        Me.RFO2.TabIndex = 108
        Me.RFTempAgua.TabIndex = 109
        Me.rftempmostotrans.TabIndex = 110
        Me.RFExtratoResf.TabIndex = 111
        Me.RFpHMosto.TabIndex = 112
        Me.RFCorMosto.TabIndex = 113
        Me.RFAmargorIBU.TabIndex = 114
        Me.rfturbidez.TabIndex = 115
        Me.RFVolMostoFrio.TabIndex = 116
        Me.RFTempAguaQuente.TabIndex = 117
        Me.RFHrIniLimpDecantador.TabIndex = 118
        Me.RFHrFimLimpDecantador.TabIndex = 119
        Me.datafimfabricacao.TabIndex = 120
        Me.horafimfabricacao.TabIndex = 121

        'Abre o formulário maximizado
        DoCmd.Maximize
        
        'Move o foco e limpa dos dados do campo data de Fabricação
        Me.datainiciofabricacao.SetFocus

        'Consulta o Tipo de Malte na tabela estcla do SINC
        Dim qdf As QueryDef
        
        strSql = "SELECT [public_estcla].[tcla_desccla_1] FROM [public_estaux] LEFT JOIN [public_estcla] ON ([public_estaux].[taux_codisku_1]=[public_estcla].[tcla_codicla_1]) WHERE [public_estaux].[taux_codinte_1] ='" & CodProduto & "'"
        
        'Desabilita os avisos do access nesse formulário
        DoCmd.SetWarnings False
            
        'On Error Resume Next
        DoCmd.DeleteObject acQuery, "tempQry"
        
        'On Error GoTo 0
        Set qdf = CurrentDb.CreateQueryDef("tempQry", strSql)
        
    End Sub

    CURRENT
    Código:
    Private Sub Form_Current()
    On Error Resume Next
        'Atualiza a exibição dos campos no padrão HH:MM:SS
        'Explicação após o Like
        'Na primeira posição tenha uma dessas letras [MFR]
        'Na segunda posição tenha uma dessas letras [OALRF]
        'Depois tenham Hr
        'E o * significa que tanto faz o restante
        Dim ctl As Control
          
        For Each ctl In Me.Controls
           If ctl.ControlType = acTextBox And ctl.Name Like "[MFR][OALRF]Hr*" Then
               ctl.value = FormatDateTime(ctl.value, 4)
           End If
        Next
    End Sub

    Eu percebi que esse erro está ocorrendo apenas quando eu dou dois cliques no registro do meu subformulário para que vá para o registro que eu cliquei nele:

    [Resolvido]Postgres vs formulário Access T319

    O código dos dois cliques no subform está assim:

    Código:
    Option Compare Database
    Private Sub Form_DblClick(Cancel As Integer)
    Dim lngRegistro As Long
    Dim Msg As String
    On Error GoTo 1
       
        lngIDRegistro = Me.Fabrico
        Dim rs As Object
     
        Set rs = Forms!FRM_Brassagem_Dt.Form.Recordset.Clone
        rs.FindFirst "[NumFabrico] ='" & (lngIDRegistro) & "'"
        Forms!FRM_Brassagem_Dt.Form.Bookmark = rs.Bookmark
       
    Exit_1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Exit Sub

    1 A:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Msg = "Erro # " & Str(Err.Number) _
            & vbNewLine & "Descrição: " & Err.Description _
            & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
        MsgBox Msg, vbExclamation, "Atenção"
        Resume Exit_1
    End Sub

    pedropfinot
    pedropfinot
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 18/08/2017

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  pedropfinot 24/10/2020, 13:22

    Bom dia!!

    Não sei se já resolveu, mas eu utilizo o Postgres e quando preciso salvar a hora eu crio o campo no postgres como "Timestamp withou time zone" e salvo como now.
    Ex:
    me.hora = now

    Ai se vc precisar somente filtrar o horario vc pode criar uma view dentro do postgres ou usar a função right(campo,6).
    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 26/10/2020, 14:15

    Bom dia, @pedropfinot

    Meu problema não é a gravação do campo, isso está rolando, fiz exatamente assim como vc descreveu.

    O meu problema está no erro que aparece depois que adicionei os códigos no evento "Current" e "Load" do formulário. O erro está no subform que eu criei, pois se eu navego pelos registros usando os botões de navegação do próprio form, não aparece a mensagem abaixo, porém, se eu dou dois cliques no registro do sub form, aparece a mensagem de erro abaixo:

    [Resolvido]Postgres vs formulário Access T414

    Aparece a mensagem abaixo:
    pedropfinot
    pedropfinot
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 18/08/2017

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  pedropfinot 26/10/2020, 14:19

    Bom dia!!

    Eu quando estava tendo este problema, sempre que eu alterava qualquer campo eu mandava o comando: docmd.runcommand accmdsaverecord ou se fosse um combobox eu dava um me.controle.requery

    Faz um teste ai, acredito que vai resolver o seu problema.

    Qualquer dúvida só me chamar.

    Vlww
    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 26/10/2020, 14:25

    Bom dia,

    Ok, entendi, mas como ficaria isso no meu subform?

    Olha meu código:

    Código:
        Private Sub Form_DblClick(Cancel As Integer)
        Dim lngRegistro As Long
        Dim Msg As String
        On Error GoTo 1
           
            lngIDRegistro = Me.Fabrico
            Dim rs As Object
         
            Set rs = Forms!FRM_Brassagem_Dt.Form.Recordset.Clone
            rs.FindFirst "[NumFabrico] ='" & (lngIDRegistro) & "'"
            Forms!FRM_Brassagem_Dt.Form.Bookmark = rs.Bookmark
           
        Exit_1:
            DoCmd.Hourglass False
            DoCmd.Echo True
            Exit Sub

        1 A:
            DoCmd.Hourglass False
            DoCmd.Echo True
            Msg = "Erro # " & Str(Err.Number) _
                & vbNewLine & "Descrição: " & Err.Description _
                & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
            MsgBox Msg, vbExclamation, "Atenção"
            Resume Exit_1
        End Sub

    Quando abro o form principal e dou dois cliques no registro do meu subform, ele traz o registro filtrado na tela do form principal, possibilitando navegação entre os mesmos:

    [Resolvido]Postgres vs formulário Access T510
    [Resolvido]Postgres vs formulário Access T611
    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 29/10/2020, 14:59

    Boa tarde,

    Tirei a funcionalidade do duplo clique e o erro parou de dar, o problema é que agora está dando erro de atualização, eu detectei que esse erro acontece no evento [Form_Current], gostaria de saber se alguém já passou por isso:

    1. Navego nos registro e ao ir para o último registro e voltar 1, aparece a mensagem de erro abaixo:

    [Resolvido]Postgres vs formulário Access T810

    Pressiono a tecla [ESC] e o passa normalmente.

    2. Comentei a linha abaixo e não apresenta o erro, porém, preciso dela, pois ao editar o campo deve converter os caracteres para o formato desejado.

    [Resolvido]Postgres vs formulário Access T910

    []'s
    avatar
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 06/12/2018

    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Kellyton 2/12/2020, 18:04

    Resolvido.
    Coloquei no evento "ao Entrar" de cada campo o seguinte código:

    Código:
    Me.meucampo.value = FormatDateTime(Me.meucampo, vbShortTime)

    Abs a todos

    Conteúdo patrocinado


    [Resolvido]Postgres vs formulário Access Empty Re: [Resolvido]Postgres vs formulário Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:40