change background color if record number is odd?

[AccessIdiot]

I know this one is kind of odd. But I was wondering if it were possible to apply some kind of conditional formatting where the background color of the form changes from one record to the next. Something like odd numbers could be the standard grey and even numbers could be pink or something like that.

Is this even possible?

thanks!

[MMcCarthy]

I know this one is kind of odd. But I was wondering if it were possible to apply some kind of conditional formatting where the background color of the form changes from one record to the next. Something like odd numbers could be the standard grey and even numbers could be pink or something like that.

Is this even possible?

thanks!

conditional formatting will only work on active controls that contain values like textboxes. If the form is not continuous you could code something into the on current even of the form but in a continuous form it would change all the background colours each time.

Mary

[pks00]

As Mary says, use the form_current

Form doesnt have a background colour though, one I think u cant set anyway, though I could be wrong :)

U could set the backcolor for Detail
eg

private sub Form_Current()
    if me.somefield and 1 = 1 then
       detail.backcolor = vbred      'odd
    else
       detail.backcolor = 16777215  'even
    end if
end sub
 

But the colour u pick, u need to ensure form is still readable
u may find labels have different backgrounds as well, so it could be a case of going thru all controls that need colouring

[Rabbit]

If you're using 2003 then:
Shading alternate rows in reports

[AccessIdiot]

As Mary says, use the form_current

Form doesnt have a background colour though, one I think u cant set anyway, though I could be wrong :)

U could set the backcolor for Detail
eg

private sub Form_Current()
    if me.somefield and 1 = 1 then
       detail.backcolor = vbred      'odd
    else
       detail.backcolor = 16777215  'even
    end if
end sub
 

But the colour u pick, u need to ensure form is still readable
u may find labels have different backgrounds as well, so it could be a case of going thru all controls that need colouring

Hey could you explain that code for me a bit? I'm not sure what is meant by me.somefield - is this any textfield control on the form? And what is 1=1? What does that mean to Access?

thanks!

[pks00]

ok, code was an example, based on your example of odd numbers

this is an example based on a value in your form

me.somefield refers to a control on your form
detail is the part of the form where all your controls exist

anding a numerical value with 1 is a way to check if its odd number or not

private sub Form_Current()
 
    'check if field on form called somefield is odd
    if me.somefield and 1 = 1 then
       detail.backcolor = vbred      'odd
    else
       detail.backcolor = 16777215  'even
    end if
end sub
 

[AccessIdiot]

thanks, that's what I figured but I wanted to check if the 1=1 part referred to the value of somefield or if it was totally unrelated.

[Rabbit]

If you're using 2003 then:
Shading alternate rows in reports

Just thought I'd point out that this link outlines the steps to do what you want to do.

[AccessIdiot]

Sorry! I meant to get back to you when I had a chance to check it out. Does it matter that I want to do this in a form and not in a report?

I'll look into it now.

[Rabbit]

Sorry! I meant to get back to you when I had a chance to check it out. Does it matter that I want to do this in a form and not in a report?

I'll look into it now.

Oh, a form? Totally missed that.
Hmm.. maybe, you might have to use a different event though.

[AccessIdiot]

Yes I tried adapting it but I can't figure out how to make it work. :)

I tried just copying and pasting the code in, then calling it from the form_current event, but it wants parameters and I have no idea what parameters to give it!

Private shadeNextRow As Boolean
Const shadedColor = 12632256
' Const shadedColor = 15726583 ' alternative shade colors
' Const shadedColor = 14078404
' Const shadedColor = 13356495
' Const shadedColor = 14281974
Const normalColor = 16777215
 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 
  On Error GoTo Detail_Format_Error
 
' Choose a color based on the shadeNextRow value
  If shadeNextRow = True Then
    Me.Section(acDetail).BackColor = shadedColor
  Else
    Me.Section(acDetail).BackColor = normalColor
  End If
 
' Switch the color for the next row
  shadeNextRow = Not shadeNextRow
 
Detail_Format_Exit:
  Exit Sub
 
Detail_Format_Error:
  MsgBox "Error " & Err.Number & ": " & Err.Description
  Resume Detail_Format_Exit
End Sub
 

Private Sub Form_Current()
Call Detail_Format
End Sub

[ADezii]

I know this one is kind of odd. But I was wondering if it were possible to apply some kind of conditional formatting where the background color of the form changes from one record to the next. Something like odd numbers could be the standard grey and even numbers could be pink or something like that.

Is this even possible?

thanks!

You could use the 'Read Only' property of a Form in its Current() Event:

Private Sub Form_Current()
If Me.CurrentRecord Mod 2 = 0 Then           'Even Record
  Me.Section(acDetail).BackColor = QBColor(13)
Else
  Me.Section(acDetail).BackColor = QBColor(12)
End If
End Sub

[AccessIdiot]

Brilliant! That works great! Except the colors are a bit, um, extreme. I know custom colors are not easy in Access but is there a way to get away from the standard color choices?

And could you explain how the "read only" part comes in? I understand the code but am not sure what you meant by "read only".

Thanks so much! :)
melissa

[ADezii]

Brilliant! That works great! Except the colors are a bit, um, extreme. I know custom colors are not easy in Access but is there a way to get away from the standard color choices?

And could you explain how the "read only" part comes in? I understand the code but am not sure what you meant by "read only".

Thanks so much! :)
melissa

I apologize for the confusing information:

1. CurrentRecord is a 'Read Only' property of a Form, meaning that it can only be read and not written to.
2. The Color choices were of course ugly, but they were for demonstration purposes only.
3. You can have your choice of literally 16,000,00 different colors via the RGB(red, green, blue) Function as indicated below.

Me.Section(acDetail).BackColor = RGB(100, 213, 4)
Me.Section(acDetail).BackColor = RGB(1 - 255, 1 - 255, 1 - 255)

Place this code in the DblClick() Event of a Form's Detail Section for a simple demo:

Private Sub Detail_DblClick(Cancel As Integer)
  Randomize
  Me.Section(acDetail).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub

[AccessIdiot]

Very cool. I knew there must be a way to specify RGB rather than the number off the color palette. Thank you so much!!

:)