[AccessD] Report Formating Problem

Kaup, Chester Chester_Kaup at kindermorgan.com
Tue Jul 22 09:45:41 CDT 2008


Date-10 seems to be working fine.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at Beach Access Software
Sent: Tuesday, July 22, 2008 9:40 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Report Formating Problem

Chester:

Also, does Date-10 work or do you need to use DateDiff?


Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com
www.bchacc.com



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester
Sent: Tuesday, July 22, 2008 7:29 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Formating Problem

Thanks. That got it.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte
Sent: Tuesday, July 22, 2008 9:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Formating Problem


Chester,

You need to add an 'ELSE' telling it to 'switch' back to black.
if somthing=true then
  RED
else
  BLACK
End if

I do the same thing except in the Detail_Print.

Hope it helps,

Mark A. Matte


> From: Chester_Kaup at kindermorgan.com
> To: accessd at databaseadvisors.com
> Date: Tue, 22 Jul 2008 09:04:28 -0500
> Subject: [AccessD] Report Formating Problem
>
> I have the following code in the on format event of the detail section of
a report. It is setting the forecolor for all dates to red. I have walked
through the code and it is skipping the records that do not meet the
criteria. I have no conditional formatting set. The default foreground color
is set to black. I have also tried the condition with NOW instead of DATE
but no difference. What am I doing wrong here?
>
> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> 'Stop If Last_IT_Date < Date - 10 Then Last_IT_Date.ForeColor = vbRed
> End If End Sub
>
>
> Chester Kaup
>
> Engineering Technician
>
> Kinder Morgan CO2 Company, LLP
>
> Office (432) 688-3797
>
> FAX (432) 688-3799
>
>
>
>
>
> No trees were killed in the sending of this message. However a large
number of electrons were terribly inconvenienced.
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

_________________________________________________________________
Keep your kids safer online with Windows Live Family Safety.
http://www.windowslive.com/family_safety/overview.html?ocid=TXT_TAGLM_WL_fam
ily_safety_072008
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com





More information about the AccessD mailing list