VBA: Create Userform in MS-Access Programatically

access_Userform

Option Compare Database

Public Function getEmptyForm() As Object
 
    'This is to stop screen flashing while creating form
    ' Application.VBE.MainWindow.Visible = False
    Set getEmptyForm = Application.VBE.ActiveVBProject.VBComponents.Add(3)
     
End Function

Public Sub showForm(ByVal frm As Object)
    VBA.UserForms.Add(frm.Name).Show
End Sub

Public Sub closeForm(ByVal frm As Object)
    Application.VBE.ActiveVBProject.VBComponents.Remove frm
End Sub