My main database is "Clubs.AccDb"
I have a reference in the Clubs database to "Utilities.AccDb or AccDe".
Within Utilities a have a progress meter form "ProgressMeterRainbow" and a
class module "ClsMeterRainbow" which is used to open, close and update the
meter. How do I set a reference to ClsMeterRainbow from the main Clubs
database I have trie Dim PMeterRainbow As New Utilities.ClsPMeterRainbow and
Dim PMeterRainbow As New ClsPMeterRainbow.
Both give a compile error of User-defined type not defined

Thanks

Phil

On May 6, 12:05*am, "Phil" <p... (AT) stantonfamily (DOT) co.uk> wrote:
Hi Phil,

When you have a reference from Clubs to Utilities, then you can open
the ProgressMeterRainbow form Clubs.
As far as I know, that should not be a problem.

Imb.

On 05/05/2011 23:24:00, imb wrote:
Hi Imb

In the Utilities DB, if I want to use the Progress meter, I need to set a
reference in the form to the Class module .

Dim PMeterRainbow As New ClsPMeterRainbow goes in the Declarations

Then I can use

PMeterRainbow.RainShowProgress Progress ' Opens the form ProgressMeterRainbow
PMeterRainbow.RainSetCaption tCaption = "" ' Default Progress Meter Caption
PMeterRainbow.RainSetTitle SetTitle = "Sending Emails ..." ' Progress Meter
label Caption PMeterRainbow.RainSetLabToProcess = "To send:" ' Progress Meter
label Caption PMeterRainbow.RainSetLabProcessed = "Sent:" ' Progress Meter
label Caption PMeterRainbow.RainSetFromColour = -1 ' Default from colour
(Red) PMeterRainbow.RainSetToColour = -1 ' Default to colour (Green)
PMeterRainbow.RainSetToProcess = PMFrmMax ' RecordCount
PMeterRainbow.RainSetSmoothness = Smoothness

to set up the titles and how many records

PMeterRainbow.RainIncOne (RecordNo) moves the bar along

SendEMail_Click_Exit:
PMeterRainbow.RainHideProgress ' Close the progress meter
Set MyDb = Nothing
Exit Sub

That seems a lot neater solution than opening the form directly, and althogh
more complicated than the Call SysCmd(acSysCmdInitMeter ............)
Call SysCmd(acSysCmdUpdateMeter, i)
Call SysCmd(acSysCmdRemoveMeter)
there is a lot more functionality

Phil

On 06/05/2011 07:38:29, "Phil" wrote:
Partially solved it

Exporting the ClsPMeterRainbow the header is

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "ClsPMeterRainbow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Compare Database
Option Explicit

Public FrmProgressMeterRainbow As Form_ProgressMeterRainbow

On 06/05/2011 12:04:01, "Phil" wrote:
Ignore my last post as I have cracked it

Need to add in the referenced database (Utilities)

Public Property Get GetPMRainbow() As Object

Set GetPMRainbow = New ClsPMeterRainbow

End Property

In the calling database in the appropraite function / sub

Dim PMRainbow As ClsPMeterRainbow
Set PMRainbow = GetPMRainbow

and we're away

Thanks for your help

Phil