codigo

[williaaa 0]

me desculpem por esta abrindo mais um topico é que eu nao sei mais oq faço

ja casei tudo que é canto

vcs podem me ajudar neste codigo

 

Private Sub dtVencimento_BeforeUpdate(Cancel As Integer)

Dim curAmntDue As Currency, lngBlack As Long

Dim lngRed As Long

If dtVencimento <= Time() Then

IndRed = RGB(255, 0, 0)

Else

IngBlack = RGB(0, 0, 0)

End If

End Sub

 

 

a intencao desde codigo é o seguinte

se a data do vencimento que aparece for menor ou igual a data de hoje.

a data aparecera escrito em vermelho

 

 

desde ja agradecido

até mais

[Claudio Neto 3]

O que está acontecendo que não está dando certo?

 

Você está armazenando os valores em variáveis diferentes indRed e ingBlack, onde está usando essas variáveis e como ele sabe depois se deve usar uma ou outra?

[williaaa 0]

essa parte do codigo de ingred e ingblack eu peguei no site da microsoft

a intencao é q data mude de cor quando a data de pagamento estiver vencida

e é isso que eu nao to conseguindo

[Claudio Neto 3]

O que é seu object dtVencimento?

 

Sua comparação está errada, se o que quer saber é se é menor que hoje, deve comparar com date() e não com time(), time te dá a hora e não o dia.

 

Onde está exibindo a data resultante?

[williaaa 0]

é que é assim

eu fiz esse programinha em access

ele funciona assim:

a pessoa digite o valor do produto e quantas parcelas

ae automaticamento o programa divide valor/parcelas e mostra nas na caixas de texto o valor do parcelamento e a data do vencimento

por exemplo

valor total é 2.000,00 em 12 vezes

valor da parcela------data do vencimento-------total pago

166,00------------------15/05/09------------------- 0,00

166,00------------------15/06/09--------------------0,00

166,00------------------15/07/09--------------------0,00

.....-------------------- ..... ----------------------- ...

166,00------------------15/05/10--------------------0,00

 

ae eu queria que, se por acaso a parcela vencese, fazer com que a data aparecese de vermelho ou negrito

ex:

valor da parcela-------data do vencimento-------total pago

166,00---------------------15/03/09-----------------166,00

166,00--------------------15/04/09---------------0,00

166,00--------------------15/05/09-------------------0,00

..... ----------------------.... ---------------------------...

166,00---------------------15/04/10------------------0,00

 

acho q agora da pra entender

[scorpio 7]

Onde você exibe isto ?

 

valor da parcela-------data do vencimento-------total pago

166,00---------------------15/03/09-----------------166,00

166,00--------------------15/04/09---------------0,00

166,00--------------------15/05/09-------------------0,00

..... ----------------------.... ---------------------------...

166,00---------------------15/04/10------------------0,00

 

 

???

[williaaa 0]

 

olha ae como é

 

o mes de janeiro, fevereiro, março, todos vencidos

ae queria que esses meses ficasse de vermelho, negrito sei la, alguma coisa q chamase a atencao

[Claudio Neto 3]

Suas datas estão sendo exibidas em um monte de textbox? É isso mesmo que está ali na tela?

 

Se for, o que pode fazer é colocar isso no evento change da text:

 

if cdate(text1.text) < date then
   text1.forecolor = vbred
end if

[Jonathan Fernando Filman 0]

Esse dtvencimento seu esta indexado?

 

Ou cada linha tem um nome?

 

Como que que visualizado as parcelas ou elas são fixas.

 

EX.

 

Só e dividido em 12x

 

 

Caso seja cada um com o seu nome, com certeza o exemplo so nosso amigo aqui vai te ajudar e só colocar

dentro do objeto que dara certo não esqueça de mudar o nome do objeto.