List boxes not displaying choices

**WillysK5** · 02-19-2009, 12:16 PM

Hello all. I'm very new to the VB experience and am having trouble getting the choices in my list boxes to show up.

Here's my code.

Private Sub UserForm1_Initialize()
    txtJobNumber.Value = ""
    txtCustomer.Value = ""
    txtProject.Value = ""
    txtDeliverTo.Value = ""
    txtWantedby.Value = ""
    txtSchedbuildon.Value = ""
    txtScheduledon.Value = ""
    txtEsthrs.Value = ""
    cboStatus.Value = ""
    With cboSalesman
        .AddItem "SL"
        .AddItem "MG"
        .AddItem "WC"
    End With
    cboSalesman.Value = ""
    With cboDesigner
        .AddItem "MS"
        .AddItem "BA"
        .AddItem "JM"
        .AddItem "DH"
        .AddItem "DR"
        .AddItem "DC"
    End With
    cboDesigner.Value = ""
    With cboStatus
        .AddItem "Des"
        .AddItem "TRP"
    End With
    cboStatus.Value = ""
    With cboJobtype
        .AddItem "Res"
        .AddItem "Com"
        .AddItem "PB"
        .AddItem "Add"
    End With
    cboJobtype.Value = ""
    txtJobNumber.SetFocus
End Sub

Am I missing something?

Thanks!

**royUK** · 02-19-2009, 12:20 PM

Try this

Option Explicit
Private Sub UserForm1_Initialize()
    txtJobNumber.ListIndex = 0
    txtCustomer.Value = ""
    txtProject.Value = ""
    txtDeliverTo.Value = ""
    txtWantedby.Value = ""
    txtSchedbuildon.Value = ""
    txtScheduledon.Value = ""
    txtEsthrs.Value = ""
    cboStatus.ListIndex = 0
    With cboSalesman
        .AddItem "SL"
        .AddItem "MG"
        .AddItem "WC"
    End With
    cboSalesman.ListIndex = 0
    With cboDesigner
        .AddItem "MS"
        .AddItem "BA"
        .AddItem "JM"
        .AddItem "DH"
        .AddItem "DR"
        .AddItem "DC"
    End With
    cboDesigner.ListIndex = 0
    With cboStatus
        .AddItem "Des"
        .AddItem "TRP"
    End With
    cboStatus.ListIndex = 0
    With cboJobtype
        .AddItem "Res"
        .AddItem "Com"
        .AddItem "PB"
        .AddItem "Add"
    End With
    cboJobtype.ListIndex = 0
    txtJobNumber.SetFocus
End Sub

**Andy Pope** · 02-19-2009, 12:44 PM

Your code should be in the Initialize event of the userform.

Your routine name means that is treated as a private sub in the userform object. Userform1_Initialize is not an event.

Private Sub UserForm_Initialize()

End Sub

**WillysK5** · 02-19-2009, 02:00 PM

That was it! It's always the little stuff...

Thanks Andy!

Originally Posted by Andy Pope

Your code should be in the Initialize event of the userform.

Your routine name means that is treated as a private sub in the userform object. Userform1_Initialize is not an event.

Private Sub UserForm_Initialize()

End Sub

**WillysK5** · 03-10-2009, 12:46 PM

Well, I'm working on a different project and am having the same problem.

The Initialize starts out like this:

Private Sub UserForm_Initialize()
    txtJobNumber.Value = ""
    txtCustomer.Value = ""
    txtProject.Value = ""
    txtDeliverTo.Value = ""

But I get an error pointing to this Module. It highlights UserForm1.show

Sub OpenUserForm1()
    UserForm1.Show
End Sub

The name of the form is UserForm1.

It works in the other project!!

Does it matter what order the Subs are in? Cause that's the only difference I can find.

Thanks!

**Andy Pope** · 03-10-2009, 12:54 PM

You need to step through the code line by line as the error is occuring within the userform load/initialize process.

**WillysK5** · 03-10-2009, 01:07 PM

Thanks for teaching a noob Andy. Got it to work. Thanks!

List boxes not displaying choices

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

List boxes not displaying choices

Re: List boxes not displaying choices

Re: List boxes not displaying choices

Re: List boxes not displaying choices

Re: List boxes not displaying choices

Re: List boxes not displaying choices

Re: List boxes not displaying choices

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions