Change workspace colour?

[ParanoidAndroid]

Hi comrades,

I have two copies of the same database... one that is "live" the other I use to test changes.

To make it obvious to me which of the two databases I am in I'd like to colour the workspace area. After many fruitless google searches I am begining to wonder if this is possible.

Failing this - can I colour the window borders? I'd like to be able to do this via some VBA is at all possible.

Many thanks in advance...

 

[RuralGuy]

Maybe something like this will work for you.

 

[NigelShaw]

Hi RG

i remember a while ago i was doing something that required the "AddressOf" which your link refers to. upon visiting the link that is on the page to get the AddressOf module, it wasnt there or it is but very difficult to find.

Nigel

 

[RuralGuy]

Sorry Nigel, I can't find it either.

 

[MSAccessRookie]

Hi comrades,

I have two copies of the same database... one that is "live" the other I use to test changes.

To make it obvious to me which of the two databases I am in I'd like to colour the workspace area. After many fruitless google searches I am begining to wonder if this is possible.

Failing this - can I colour the window borders? I'd like to be able to do this via some VBA is at all possible.

Many thanks in advance...

Maybe I misunderstand what you are asking (based on the other replies), but I think I had the same issue and resolved it with a relatively crude but effective Function SetFormProperties() (SEE BELOW) that I call in the On Load event of any Form that I display.

Public Function SetFormProperties(frm As Form, TitleString As String, theMode As Integer) As Variant
 
    frm.Caption = SetFormTitle(TitleString)
    
    frm.FormDetail.BackColor = SetFormBackColor()
    
    If theMode = 1 Then
        frm.FormHeader.BackColor = SetFormBackColor()
        frm.FormFooter.BackColor = SetFormBackColor()
    End If
    
End Function
 
Public Function SetFormBackColor() As Variant
 
    If ProgramMode = "Production" Then
        SetFormBackColor = 12632256
    ElseIf ProgramMode = "QA Testing" Then
        SetFormBackColor = 5327805
    ElseIf ProgramMode = "Development" Then
        SetFormBackColor = 16705454
    End If
 
End Function
 
Public Function SetFormTitle(TitleString As String) As String
 
    SetFormTitle = TitleString & " - Version " & VersionID 
             
End Function

ProgramMode and VersionID are Global Variables that are defined as required.

In the Function SetFormProperties, theMode exists because the Forms that I have are of two types (Complete Forms and Details Only Forms).

 

[ParanoidAndroid]

Maybe something like this will work for you.

That is fantastic! That's some of the maddest code I've seen yet. Thank you.

Now perhaps I wont break the "live" database by accident

 

[RuralGuy]

Have fun! Glad I could help.