The assumed method is
Expand|Select|Wrap|Line Numbers
- DoCmd.BrowseTo acBrowseToForm,[Form Name],[Path To Subform],,,,acFormAdd
One workaround is to declare a public variable the suborm can use during the On_Load event.
First: create a new module 'modForms'
add the following Type and Enum
Expand|Select|Wrap|Line Numbers
- Public Enum FormDataMode
- EditMode = 1
- AddMode = 2
- End Enum
- Public Type Q_Forms
- frmMode As FormDataMode
- End Type
- Public QForms As Q_Forms
Expand|Select|Wrap|Line Numbers
- Private Sub OpenSubForm(DataMode As FormDataMode)
- On Error GoTo ErrorHandler
- QForms.frmMode = DataMode
- DoCmd.BrowseTo acBrowseToForm, "[MySubForm]"
- End Sub
Expand|Select|Wrap|Line Numbers
- OpenMySubform AddMode
Expand|Select|Wrap|Line Numbers
- Private Sub Form_Load()
- Select Case QForms.frmMode
- Case AddMode
- Me.DataEntry = True
- Case EditMode
- Me.DataEntry = False
- End Select
- End Sub