Dim TempForm as FormFor Each TempForm In Forms
If TempForm.Caption="frmTest" Ten Exit For
Next TempFormIf TempForm is Nothing Then Exit Sub
TempForm就是你要找的Form
If TempForm.Caption="frmTest" Ten Exit For
Next TempFormIf TempForm is Nothing Then Exit Sub
TempForm就是你要找的Form
CallForm "Form1", "Caption", VbLet, "Hello world"
End SubPrivate Sub CallForm(ByVal sFormName As String, _
ByVal sProcName As String, _
ByVal eCallType As VbCallType, _
Args As Variant)
Dim oFRM As Form
Dim sName As String
For Each oFRM In Forms
sName = oFRM.Name
Debug.Print sName
If UCase(sName) = UCase(sFormName) Then
CallByName oFRM, sProcName, eCallType, Args
Exit Sub
End If
Next
End Sub
Or you have to use script control I think