Pesquise no PCFórum - Digite sua dúvida aqui
Bem-vindo, Visitante. Por favor efetue Login ou Registre-se
PCFORUM.com.br

    
Notícias:
  Home Fórum Notícias Anuncie AjudaLoginCadastre-se  
 

Como atualizar um Campo em subformulário em Folha de Dados? (Lido 420 vezes)   
Francisco Ferreira


Offline

Indique o PCFORUM
para seus amigos!

Postagens: 1

Como atualizar um Campo em subformulário em Folha de Dados?
15.03.2018 às 22:52:51
 
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.
[FLASH_VIDEO]  [/FLASH_VIDEO]


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.
Voltar ao topo
 
 
Visualizar Perfil   IP registrado



Visite nossa página inicial e veja mais dicas e conteúdos! Clique aqui!!