title image


Smiley Re: Sorry, habe nur Access 97




Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

 If DateDiff("d", Me![bis], Date) <= -1 And DateDiff("d", Me![bis], Date) >= -14 Then

  Me![bis].ForeColor = 255

 Else

  Me![bis].ForeColor = 0

 End If

End Sub



Code eingefügt mit Syntaxhighlighter 2.1




Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: