Thanks to TheSmileyCoder, I have followed his advise and now got it working. The code ended up as:
Code:
Private Sub Command8_Click()
Dim strSourceSubForm As String
strSourceSubForm = "frmUpdate"
With Forms("frmUIMain").Child20
.SourceObject = strSourceSubForm
End With
End Sub
Leave a comment: