[Resolvido]Como atualizar um campo em um subformulário Folha de Dados?

Eu tenho um programinha em Access com dois formulários: F_Principal e F_Subform, onde tem um campo chamado: txt_Mensage (campo texto) e um outro chamado: txtDtCont (campo data), com o seguinte código:

Private Sub txtDtCont_AfterUpdate()
       Dim sProxDataContato As Date
       Dim sDataAtual As Date
       Dim sDataFinalVigencia As Date
                 
       
             
       'Data atual do sistema
       sDataAtual = Date
     
       'Data do Testbox Proximo Contato
       sProxDataContato = txtDtCont.value
       
       'Data do Testbox Final da Vigência
       sDataFinalVigencia = txtDtFinalVigencia.value
                   
       'If sDataFinalVigencia > sProxDataContato Then
       
       'With txtMensage
           'Me.txtMensage.SetFocus
           'Me("txtMensage") = "ENCERRADO"
                       
       'End With
           
       'Se a Data for Maior que a data atual
       If sProxDataContato < sDataAtual Then
         
       With txtMensage
               
           Me.txtMensage.SetFocus
           Me("txtMensage") = "VENCIDO"
     
                         
       End With
           
      ElseIf sProxDataContato > sDataAtual Then
         
       With txtMensage
           
           Me.txtMensage.SetFocus
           Me("txtMensage") = sProxDataContato - sDataAtual & " " & "DIAS PARA VENCER"
                   
           
       End With
   
       
   End If
End Sub

Onde se a data (txtDtCont) for maior que a data atual (do sistema) o título estará "Vencido", se for menor, estará "ENCERRADO", e funciona muito bem, SÓ QUE NÃO ATUALIZA QUANDO ABRE O FORMULÁRIO.

Já tentei de Tudo, mas não consigo atualizar o campo: txt_Mensage, na folha de dados, quando abro o formulários, apenas se clicar no campo data do txtDtCont. Alguém sabe como eu consigo atualizar os dados, em cascata, de um campo que esteja numa folha de dados. Pesquisei em diversos sites e não encontrei uma solução.

Ferreira bom dia,

O código postado faz a alteração somente nos campos do formulário, porém, a tabela de origem desses dados não foi atualizada.
É necessário criar um procedimento para gravar os dados na tabela e, quando abrir o formulário novamente, os dados estarão atualizados corretamente.
Por gentileza, poste seu banco de dados para que o fórum possa analisar.
Obrigado

Att,

Alexandre Fim

O evento está no comando após atualizar', então não vai funcionar quando você abrir o form claro.
Precisa fazer um código para percorrer o formulário fazendo está verificação.

Simples assim....

Boa dia, amigos, fico muito grato por alguém me responder. Estou postando o banco de dados com os arquivos. Se alguém puder me ajudar, eu ficaria muito grato. Eu tentei de várias formas resolver o problema, até achei que não tinha como atualizar em cascata folhas de dados.

Veja ai....
O que esta acontecendo com o site
não consegue postar arquivos.


no evento ao abrir do sub form


'scandinavo 26/03/18
Dim rst As DAO.Recordset
Dim sDataAtual As Date

'Cor da Caixa de Texto
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long

'Configuração das Cores
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)

'Data atual do sistema
sDataAtual = Date

Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
'Se a Data for Maior que a data atual
If Me.txtDtCont.Value < sDataAtual Then
Me("txtMensage") = "VENCIDO"
Else
If Me.txtDtCont.Value > sDataAtual Then
Me("txtMensage") = Me.txtDtCont.Value - sDataAtual & " " & "DIAS PARA VENCER"
End If
End If

.MoveNext
End With
Loop
Set rst = Nothing

Meu amigo scandinavo, foi perfeito, funcionou sensacional. Fico perfeito, muito obrigado!!! Fantástico!

Resolvido....

Valeu Scandinavo....

Valeu pessoal pelo retorno, e obrigado