Dim F48911_001 As Form
Set F48911_001 = Me![NameOfYourSubformCONTROL].Form

Select all