[Resolvido]Postgres vs formulário Access

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";





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;



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:




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";

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.

@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

Sim, todos os campos

Resolvido amigo,

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

Abs

Abraços

@Silvio,

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



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:



O que estou fazendo de errado?

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

end sub

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

@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:




@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?

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

@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:



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


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).

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:



Aparece a mensagem abaixo:

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

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:

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:



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.



[]'s

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