Ir para conteúdo
Fórum Script Brasil

Francisco L. Ferreira

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Francisco L. Ferreira

Francisco L. Ferreira's Achievements

0

Reputação

  1. Estou tentando carregar dois formulários abertos ao mesmo tempo, mas quando eu faço, as duas janelas, ficam congeladas. Alguém saberia como eu devo proceder?
  2. 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.
×
×
  • Criar Novo...