[mso] Re: Access VB ? with color :VSMail MX2

Karen,

I was under the impression that you only wanted those matching the else
criteria to show up.  If this is the case, you can go into the design view
of your report and enter the snippet I gave you under the filter field in
properties.  

If this is not the case, you can create custom sort fields and sort your
items on those.  Let me know what it is you need to ultimately accomplish
and I will try to help as best I can.

James La Borde
South Western Federal Credit Union

-----Original Message-----
From: Karen Willingham [mailto:kwillingham@xxxxxxxxxxxxxxxxxxxxxxxxx]
Sent: Tuesday, June 25, 2002 6:49 AM
To: 'mso@xxxxxxxxxxxxx'
Subject: [mso] Re: Access VB ? with color :VSMail MX2



James I wish it was that simple.

Here some of the code I am using:
,,,,,,,,,,,,,,,,,,,,,,,,,,,
[TxtCase] 
=IIf([effectivedate]<Date(),[listcase],[oldlistcase])
,,,,,,,,,,,,,,,,,,,,,,,,,,,,
TxtbottleXqty 
=[TxtListBottle]*[TxtQtyPerCase]

,,,,,,,,,,,,,,,,,,,,,,,,,,

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
     Dim str1 As String
     Dim pos1 As Integer
     str1 = CStr([TxtCase] / [TxtQtyPerCase])
     pos1 = InStr(1, str1, ".")
     If Mid(str1, pos1 + 3, 3) > "000" Then
        str1 = CStr([TxtCase] / [TxtQtyPerCase]) + 0.01
        Mid(str1, pos1 + 3, 3) = "000"
        [TxtListBottle] = CDbl(str1)
     Else
        [TxtListBottle] = ([TxtCase] / [TxtQtyPerCase])
     End If
End Sub

Private Sub Detail_Print(Cancel As Integer, FormatCount As Integer)
    If [TxtbottleXqty] = [TxtCase] Then
        [TxtbottleXqty].ForeColor = 0
        [TxtCase].ForeColor = 0
    Else
        [TxtbottleXqty].ForeColor = 255
        [TxtCase].ForeColor = 255
        
    End If
End Sub

I do not know now to put this 
[TxtbottleXqty] <> [TxtCase]

so it will run after last.

Karen


From: James LaBorde <jlaborde@xxxxxxxxx>
Subject: [mso] Re: FW: Access VB ? with color
Date: Fri, 21 Jun 2002 09:09:18 -0700


Karen,

If you want only the else to show up in the report that the line that
Anthony gave you below:

[TxtbottleXqty] <> [TxtCase] 

and add it to the filter portion of your report.  That way only the else
will even show up on the report.

James
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx?Subject=unsubscribe

Or, visit the group's homepage and use the dropdown menu.  This will also
allow you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation
with instructions.  Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx?Subject=unsubscribe

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: