Option Compare Database
' btnOpenForm is the name of button
Private Sub btnOpenForm_Click()
' cboAllForms is the name of ComboBox
DoCmd.OpenForm cboAllForms.Value
End Sub
Private Sub Form_Load()
SetComboBox
End Sub
Private Sub SetComboBox()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
'Debug.Print obj.Name
' cboAllForms is the name of ComboBox
cboAllForms.AddItem (obj.Name)
Next obj
End Sub