Use the CallByName "Replace" mode window

A modal window can sometimes be handy to use, such as adding a piece of data, popping up a modal window, adding the following code when it's done, and sometimes getting the new added value, such as:

...
Frmclient.show vbmodal
If Increase Success Then
Get new value
End If
...

But if you use an MDI window, it's a hassle, because MDI child forms aren't allowed to display in a modal window, so the above method doesn't work.

So I use CallByName plus a global variable to achieve the above function.

Private Type Selectinfos
Blnaddnewreturn as Boolean ' returns information after it is added
Frmsource as Form ' source Call window
Strfunctionname as String ' The name of the function/procedure to execute when the argument is returned
End Type

Public Guselectinfos as Selectinfos ' information selection

Frminfos

'//Note Be sure to use public, otherwise it cannot be invoked in other windows.
Public Sub Loadclientinfos (ByVal lngid as Long)
' Load Customer information
End Sub

Private Sub AddNew ()
...
With Guselectinfos
. Blnaddnewreturn = True
'//Set source window
Set. Frmsource = Me
'//Set the name of the function to invoke
. Strfunctionname = "Loadclientinfos"
Frmclient.show
End With
...
End Sub

Frmclient

Private Function updateclient ()
...
'***************************************
' * * To determine if it is new when called by another window, and if so, to return the current number
'***************************************
With Guselectinfos
If. Blnaddnewreturn Then
'//Call function return value in Source window
Call CallByName (. Frmsource,. Strfunctionname, Vbmethod, Lngid)
. Blnaddnewreturn = False
End If
End With
'***************************************
...
End Function

The general process is this, although a bit troublesome, but finally is a solution.