LoadByFormName
Open any form whose name is passed as a parameter.
Returns a TRUE value if there were no errors.
Public Function LoadFormByName(frmName As String) As Boolean
Dim f As Form
On Error Resume Next
Set f = Forms.Add(frmName)
If Err.Number = 0 Then
f.Show
LoadFormByName = True
End If
End Function
Dim f As Form
On Error Resume Next
Set f = Forms.Add(frmName)
If Err.Number = 0 Then
f.Show
LoadFormByName = True
End If
End Function
Copyright © 2006-2024, LQSystems,Inc. All rights reserved.
