Change commands under program control

[Guest]

Is there a way to have commands changed under program control? In my menue,
I use the following code to check if a Form is already open and, if so make
it visible or if not. Open it.
Forms.mnu_menu.Visible = False
If CurrentProject.AllForms("frm_Stock").IsLoaded = True Then
Forms.frm_Stock.Visible = True
Else
DoCmd.OpenForm "frm_Stock", acNormal, "", "", , acNormal, MenuSelect
End If
I would like to pass the form name to a sub as a string and that way I could
use one piece of code instead of cnstantly duplicating it.

Should be something like DoCmd.openForm.[string containing form name].Visible

Thanks for any help RayC

 

[John Spencer]

You are already working with strings for two of the three. Just use the
alternate syntax of Forms(StrFormName).

Sub sOpenForm(strFormName as string)

If CurrentProject.AllForms(strFormName).IsLoaded = True Then
Forms(strFormName).Visible = True
Else
DoCmd.OpenForm strFormName, acNormal, "", "", , acNormal, MenuSelect
End If


You can refer to forms and reports and controls with alternative syntax

Forms(StrFormName).Controls(strControlname).Visible = True



'====================================================
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
'====================================================

 

[Guest]

Of Course !! Having a "Dumb" Day.

Thanks RayC

You are already working with strings for two of the three. Just use the
alternate syntax of Forms(StrFormName).

Sub sOpenForm(strFormName as string)

If CurrentProject.AllForms(strFormName).IsLoaded = True Then
Forms(strFormName).Visible = True
Else
DoCmd.OpenForm strFormName, acNormal, "", "", , acNormal, MenuSelect
End If


You can refer to forms and reports and controls with alternative syntax

Forms(StrFormName).Controls(strControlname).Visible = True



'====================================================
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
'====================================================

Is there a way to have commands changed under program control? In my menue,
I use the following code to check if a Form is already open and, if so make
it visible or if not. Open it.
Forms.mnu_menu.Visible = False
If CurrentProject.AllForms("frm_Stock").IsLoaded = True Then
Forms.frm_Stock.Visible = True
Else
DoCmd.OpenForm "frm_Stock", acNormal, "", "", , acNormal, MenuSelect
End If
I would like to pass the form name to a sub as a string and that way I could
use one piece of code instead of cnstantly duplicating it.

Should be something like DoCmd.openForm.[string containing form name].Visible

Thanks for any help RayC