asked on Access Load form name and capion to two separate ComboBoxes
Hi
I am using the following Access VBA code to load a list of forms to a Combobox
How do I load the form Captionto an additional ComboBox?
I am using the following Access VBA code to load a list of forms to a Combobox
How do I load the form Captionto an additional ComboBox?
Sub oLoadFormsToCombo()
On Error GoTo EH
Dim frm As Object
Dim I As Integer
For I = cmbFormsAndReports.ListCount - 1 To 0 Step -1
Me.cmbFormsAndReports.RemoveItem (I)
Next I
Me.cmbFormsAndReports.SetFocus
Me.cmbFormsAndReports.Text = ""
Me.cmbFormsAndReports.AddItem ("")
For Each frm In CurrentProject.AllForms
Me.cmbFormsAndReports.AddItem (frm.Name)
Next
Exit Sub
EH:
MsgBox "Error loading forms: " & Err.Description
End Sub
Microsoft AccessVBA
Last Comment
Dale Fye
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
thanks very much
You might need to exclude the active form, otherwise Access will try to switch that into design view. It could be something like this:
if me.name<>frm.name then
docmd.OpenForm frm.name,acDesign,,,,acHidden
me.cmbFormsCaption.AddItem (forms(frm.name).Caption)
docmd.close acForm,frm.name
End If
But why would you want these in two separate combo boxes, instead of displaying both the formname and caption in the same combo with appropriate column widths so that both can be seen when dropped down, which is what I would do. Then, if you need to actually see both after a form is selected from the combo, use the AfterUpdate event to populate a textbox to display the caption of the selected form.