Userform not wanting to initialize

Question

Hello, I've created a Userform for a Project Leader to complete and have the end results entered into a final report.

When I started a new template I was able to get everything working fine, but when I exported the Module and Form I came up with multiple errors. Most of them I've fixed... I think:) However there is one that refuses to do as I tell it...

My code goes like this:

"Private Sub UserForm_Initialize()

    vProjLeader = NewFAR.ProjLeader.Text

    vProjManager = NewFAR.ProjManager.Text

    vADRating = NewFAR.ADRating.Text

    vHigh = NewFAR.High.Text

    vMedium = NewFAR.Medium.Text

    vLow = NewFAR.Low.Text

ProjLeader.ColumnCount = 1

    vProjLeader.List() = Array("mulitple names")

    vProjManager.ColumnCount = 1

    vProjManager.List() = Array("Manager 1", "Manager 2", "Manager 3", "Manager 4")

    vADRating.ColumnCount = 1

    vADRating.List() = Array("1 - Commendable", "2 - Good", "3 - Satisfactory", "4 - Needs Improvement", "5 - Unsatisfactory", "Not Rated")

    vHigh.ColumnCount = 1

    bkHigh.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10")

    vMedium.ColumnCount = 1

    bkMedium.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10")

    vLow.ColumnCount = 1

    bkLow.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10")"

When I change the Userform to "Click" instead of "Initialize" it starts but the Combo boxes are blank. When I keep it as "Initialize" I get the 454 Object error.

Do you know how I can fix this?

Thanks!

Jen

Answer 1

I have no idea to what NewFAR refers, but as far as the comboboxes are concernet, I would use

Dim i as long

vProjectLeader.AddItem "Multiple Names"

vProjManager.List = Split("Manager 1,Manager 2,Manager 3,Manager 4", ",")

vADRating.List = Split("1 - Commendable,2 - Good,3 - Satisfactory,4 - Needs Improvement,5 - Unsatisfactory,Not Rated", ",")

For i = 1 to 10

bkHigh.AddItem i

bkMedium.AddItem i

bmLow.AddItem i

Next i

--

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my

services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"Jenneedshelp" wrote in message news:28fb5406-462a-4998-a35d-34833776efaa...

Hello, I've created a Userform for a Project Leader to complete and have the end results entered into a final report.

When I started a new template I was able to get everything working fine, but when I exported the Module and Form I came up with multiple errors. Most of them I've fixed... I think:) However there is one that refuses to do as I tell it...

My code goes like this:

"Private Sub UserForm_Initialize()

    vProjLeader = NewFAR.ProjLeader.Text

    vProjManager = NewFAR.ProjManager.Text

    vADRating = NewFAR.ADRating.Text

    vHigh = NewFAR.High.Text

    vMedium = NewFAR.Medium.Text

    vLow = NewFAR.Low.Text

ProjLeader.ColumnCount = 1

    vProjLeader.List() = Array("mulitple names")

  

    

    vProjManager.ColumnCount = 1

    vProjManager.List() = Array("Manager 1", "Manager 2", "Manager 3", "Manager 4")

   

   

    vADRating.ColumnCount = 1

   

    vADRating.List() = Array("1 - Commendable", "2 - Good", "3 - Satisfactory", "4 - Needs Improvement", "5 - Unsatisfactory", "Not Rated")

   

   

    vHigh.ColumnCount = 1

   

    bkHigh.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10")

   

   

    vMedium.ColumnCount = 1

   

    bkMedium.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10")

     

   

    vLow.ColumnCount = 1

   

    bkLow.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10")"

When I change the Userform to "Click" instead of "Initialize" it starts but the Combo boxes are blank. When I keep it as "Initialize" I get the 454 Object error.

Do you know how I can fix this?

Thanks!

Jen