Combobox Error Message

**Olds442** · 04-20-2007, 10:38 AM

I have a combobox that launches UserForms. When one particular form is selected in the combobox, the form will not open and it generates the following error message: ‘Missing: Crescent Enhanced Edit Controls’. I don't get this error message on my machine, but when I load the workbook on someone else's machine, they get the error message.

I know how to correct the problem on the user's machine by going into the References box.

My problem is that I don't know what I did in the programming/code on that particular UserForm to generate this error.

Has anyone every encountered this?

**Simon Lloyd** · 04-20-2007, 10:47 AM

It was probably already an add in that you had selected on your machine when you saved your workbook, so moving the program to another machine that doesnt have it would evoke the error.

Regards,
Simon

**Olds442** · 04-20-2007, 10:56 AM

Thanks Simon.

But why wouldn't this occur with all of the other UserForms? It only happens with one particular form. All of the other UserForms that fire off of the combobox work fine.

I did take that particular form and add some checkboxes to it and I added a couple of listboxes with some simple code to move objects from one listbox to the other - stuff that's on the other forms.

I did something unique on that form. Actually, I changed one page of a mulitipage form on the form in question.

My only thought was to rebuild that page/code and see what happens.

If you have any other thoughts or suggestions??????

Thanks again

**Simon Lloyd** · 04-20-2007, 12:15 PM

Can you supply the code you are using for your userforms?

Regards,
SImon

**Olds442** · 04-20-2007, 01:10 PM

The following is the code I added that may have created the problem:
1. This creates the list of selected items from the combobox

Private Sub cmdbtncadmiaddsymptoms_Click()
Dim lItem As Long
    For lItem = 0 To lstbxcadmisymptoms.ListCount - 1
        If lstbxcadmisymptoms.Selected(lItem) = True Then
            Sheet3.Range("L15").End(xlUp)(2, 1) = lstbxcadmisymptoms.List(lItem)
            lstbxcadmisymptoms.Selected(lItem) = False
        End If
    Next
End Sub

2. This code just makes the listboxes visible when a checkbox is checked:

Private Sub CheckBox18_Click()
If CheckBox18 = True Then
lblcadmiacutesymptoms.Visible = True
lstbxcadmisymptoms.Visible = True
cmdbtncadmiaddsymptoms.Visible = True
cmdbtncadmiclearsymptoms.Visible = True
lstbxcadmisymptomsselected.Visible = True
cmbobxsymptomhistory.Visible = True
lblcadmioccurrancehistory.Visible = True
Else
lblcadmiacutesymptoms.Visible = False
lstbxcadmisymptoms.Visible = False
cmdbtncadmiaddsymptoms.Visible = False
cmdbtncadmiclearsymptoms.Visible = False
lstbxcadmisymptomsselected.Visible = False
cmbobxsymptomhistory.Visible = False
lblcadmioccurrancehistory.Visible = False
Sheet3.Range("L2:L10") = ""
End If
End Sub

**Simon Lloyd** · 04-20-2007, 04:08 PM

I will take a look at this tomorrow, when adding code to a thread please wrap the code by highlighting all of it and then clicking the # in your thread window.

Failure in the future code lead to your post being deleted.

I have wrapped your code for you this time.

Regards,
Simon

Combobox Error Message

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Combobox Error Message

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions