Solved

Can I use VBA to do conditional formatting in an Access 2003 form?

Posted on 2010-08-27
8
556 Views
Last Modified: 2013-11-28
Hello,
I have about 15 conditions to consider in the formatting of a particular text box on a form.  Since the Conditional Formatting on the menu bar allows a maximum of three conditions, I would like to know if I can get around this by using VBA.

Thank you.
0
Comment
Question by:Saleve
8 Comments
 
LVL 13

Expert Comment

by:lucas911
ID: 33541632
Sure you can try select case statement
Private Sub FormatBox(intFormatType as integer)



Select case intFormatType

CASE 1:

  Me.txtTextBox.BackColor = RGB(255, 255, 66)

  Me.txtTextBox.FontBold = True

CASE 2:

  Me.txtTextBox.BackColor = RGB(63, 25, 66)

  Me.txtTextBox.FontBold = False

CASE Else

  Me.txtTextBox.BackColor = RGB(255,255,255)

  Me.txtTextBox.FontBold = False

End Select



End Sub

Open in new window

0
 
LVL 5

Expert Comment

by:INHOUSERES
ID: 33541712
could also use these (if it's a number):

Case Is Between 1 and 6
Case Is >3
Case Is <=4
0
 

Author Comment

by:Saleve
ID: 33541756
Actually, I have a continuous form and each record needs to be considered separately.  That's the difficulty.  Is it possible in VBA or are we limited to the menu function to do this?
0
 
LVL 5

Expert Comment

by:INHOUSERES
ID: 33541804
What that be "onLoad"?

I'd be interested in this too!
0
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

 

Author Comment

by:Saleve
ID: 33541845
Format > Conditional Formatting (in Access 2003)
0
 
LVL 47

Accepted Solution

by:
Dale Fye (Access MVP) earned 500 total points
ID: 33541894
Unfortunately, not in a continuous form (in 2003).  However, this is possible in 2007, if that helps any.
0
 
LVL 5

Expert Comment

by:INHOUSERES
ID: 33541896
I'm aware of the conditional formatting.
Knowing how do to something to a textbox individually for a continuous form might NOT be possible.

I'm hoping, like you are, that an expert knows of a way.
0
 

Author Closing Comment

by:Saleve
ID: 33541933
I was afraid of that.  I'm going to look into upgrading.  It's about time (although it's not up to me...).

Thanks.
0

Featured Post

U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In the previous article, Using a Critera Form to Filter Records (http://www.experts-exchange.com/A_6069.html), the form was basically a data container storing user input, which queries and other database objects could read. The form had to remain op…
When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now