MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Postgres vs formulário Access

    avatar
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Postgres vs formulário Access

    Mensagem  kasa1982 em 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";

    Postgres vs formulário Access T120

    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;

    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:

    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 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  Silvio em 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
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  kasa1982 em 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 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  Silvio em 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
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  kasa1982 em 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 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  Silvio em 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
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  kasa1982 em 21/10/2020, 15:26

    @Silvio,

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

    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:

    Postgres vs formulário Access T219

    O que estou fazendo de errado?
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  Silvio em 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 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  DamascenoJr. em 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
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  kasa1982 em 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:

    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 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  DamascenoJr. em 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
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  kasa1982 em 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:

    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 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  pedropfinot em 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
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  kasa1982 Hoje à(s) 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:

    Postgres vs formulário Access T414

    Aparece a mensagem abaixo:
    pedropfinot
    pedropfinot
    Novato
    Novato

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  pedropfinot Hoje à(s) 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
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

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

    Postgres vs formulário Access Empty Re: Postgres vs formulário Access

    Mensagem  kasa1982 Hoje à(s) 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:

    Postgres vs formulário Access T510
    Postgres vs formulário Access T611

      Data/hora atual: 26/10/2020, 18:58