LoadByFormName

by Linda Quinn

Close Window

  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






=================================================================
This content was created by Linda Quinn of LQNet.

See http://www.lqnet.com for a great collection of articles on this and other topics.

=================================================================
Copyright © 2006-2008, LQ Systems,Inc. All rights reserved.


====================================================================
Want an expert to help with your project?    LQ Systems, Inc.   Business Solutions
====================================================================